Вычислить сумму ряда 2 способами в Visual Basic

[frommeaway]

Доброго всем дня. Помогите, пожалуйста, решить данную задачу на visual basic. Преподаватель толком не объяснил ничего, приходится самому копаться. Вот задание:


Нужно вычислить сумму 2 способами: с заданной точностью и с заданным N(10).
Я так понял, нужно преобразовать формулу суммы, у меня вот это получилось:

А вот мой код программы(только по тому способу, где задано N, с заданной точностью я не разобрался пока):

Private Sub Command1_Click()
Const Pi = 3.1415926
For x = 0 To (Pi / 4) Step 0.15
y = 2 * ((Cos(x)) ^ 2 - 1)
s = 0: p = 1
For i = 1 To 10 Step 1
p = p * 2 * i * (2 * i - 1)
s = s + ((-1) ^ i) * ((2 * x) ^ (2 * i)) / (p)
 
Next i
Picture1.Print x
Picture2.Print y
Picture3.Print i
Picture4.Print s
 
Next x
End Sub

Вобщем, я полный новичок в программировании, пришлось самому все изучать, так что, наверное, ошибок куча, особенно в том фрагменте, где указан вывод на picturebox(с этим фрагментом я даже не разбирался, просто хотел посмотреть результат). Делал все в соответствии с блок-схемой, которую дал преподаватель, но в ней я не уверен. Заранее спасибо за помощь.

[BDA]

Для всех заинтересовавшихся, но не видящих формулы - они во вложении.
frommeaway, на будущее - формулы не прогружаются, вместо них пользователи видят картинку во вложении.