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

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

Private Sub Command1_Click()
    Const Pi = 3.1415926
    Dim x As Single, i As Integer
    Dim Y As Double, S As Double, N As Integer
    N = 10
    For x = 0 To Pi / 4 Step 0.15
            Y = 2 * ((Cos(x)) ^ 2 - 1)
            S = 0
        For i = 1 To 10
            S = S + ((-1) ^ i) * ((2 * x) ^ (2 * i)) / F(2 * i)
        Next i
        Picture1.Print "N = " & N
        Picture1.Print "X = " & x
        Picture1.Print "Y = " & Y ' Round(Y, 4)
        Picture1.Print "S = " & S ' Round(S, 4)
        Picture1.Print
    Next x
End Sub
 
Private Function F(ByVal i As Integer)
    If i = 1 Then F = 1 Else F = F(i - 1) * i
End Function

For i = 1 To N