Посчитать сумму числового ряда+посчитать сумму ряда для 9 слагаемых - VB

Формулировка задачи:

задача №1 у(n)=1-x+x^2-...+(-x)^n Посчитать сумму числового ряда для 9 слагаемых задача №2 Посчитать сумму числового ряда. y=(e^x)/cos(x/n)+...+(e^x*n)/cos(x) Значение x и n задать с клавиатуры очень надеюсь на вашу помощь...ибо в программировании дуб-дубом

Решение задачи: «Посчитать сумму числового ряда+посчитать сумму ряда для 9 слагаемых»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim x As Single, sum As Single, i As Integer, l As Integer
x = Val(Text1.Text)
l = 1
sum = 1
For i = 1 To 8
l = -l
sum = sum + (l * x ^ i)
Next i
Text2.Text = sum
End Sub
                        