Вычисление суммы ряда - VB (62097)

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

Помогите с лабораторной пожалуйста По заданной формуле члена последовательности с номером k составить две программы: -программу вычисления суммы первых n членов последовательности (k=1,2,3..,n); -программу вычисления суммы всех членов последовательности, не меньших заданного числа e.

Решение задачи: «Вычисление суммы ряда»

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

                            Private Sub Command2_Click()
e = CDbl(Text2)
If e > 0 Then
    Sum = 0
    i = 1
    Do
        f = (2 * i + 1) / (2 * i ^ 2 + 3) / i
        Sum = Sum + f
        i = i + 1
    Loop Until f < e
    Print Sum
End If
End Sub
                        