Найти сумму бесконечного ряда - VB (63065)

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

Алгоритмизация и программирование задач циклической структуры. Вычислить на ЭВМ значение суммы членов бесконечного ряда с заданной точностью . Напечатать значение суммы и число членов ряда, вошедших в сумму. В соответствии с вариантом составить блок-схему алгоритма к задаче и составить программу на языке программирования Visual Basic. Сумма членов ряда: s=((x^3)/3)-((x^5)/15)+...+((-1)^x+1)*((x^2x)+1)/((4*n^2)-1)+...

Решение задачи: «Найти сумму бесконечного ряда»

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

                            dim n as integer
dim Z,H,S as double
 
I=1
 
N=TextBox1.text
 
цикл...
 
Z=4*I^2-1
H=0/3^(2*N+1)
S=S+H/Z
 
.....
 
Label1.text=Z
label2.text=N
                        