Найти сумму ряда с заданной точностью - VB (63192)

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

Помогите решить, пожалуйста, пропускал информатику - теперь засада самая настоящяя. Прям без предельно буду благодарен. 1) Вычислить значиение выражения Y. Y = 2 + 1/1*2*3 + 1/2*3*4 + 1/3*4*5...

Ответ: Y=2.2486843

2) Найти сумму ряда с заданной точностью ƹ = 10 в минус 3 степени S = 1 + 1/2 в 4 степ. + 1/3 в 4 степ. + 1/4 в 4 степ. + ... 3) Напечатать в обратном порядке 30 чисел, кратных 5, по пять в ряду ЗЫ (тут я даже представить не смог как это должно выглядеть) 4) Вычислить значение выражения Y

Y = Ʃ

(сверху 7, снизу l=1)

( l в квадрате - Ʃ

(сверху l, снизу h=1)

h l )

Help me plz!

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim S As Single, K As Integer, Eps As Single
Eps= Val (InputBox ***)
s=0
k=1
while 1/k^2>=Eps
s=s+1/k^2
k=k+1
wend
print "sume=" ; s