Табулирование функции на отрезке [а, b] с шагом h - VB (61403)

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

Табулирование функции и суммы функционального ряда Протабулировать 1. функцию y на отрезке [а, b] с шагом h. 2. сумму S функционального ряда разложения этой функции на отрезке [а, b] с шагом h. Сравнить значения заданной функции и ее разложения.

Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
h = Val(Text3.Text)
e = Val(Text4.Text)
n = 0: s = 0
For x = a To b Step h
y = Exp(2 * x)
Do
f = (2 * x) ^ n / Fakt(n)
s = s + f
n = n + 1
Loop While f > e
List1.AddItem Format(x)
List2.AddItem Format(y)
List3.AddItem Format(s)
Next x
 
End Sub
 
 Private Function Fakt(n)
 Fakt = 1
 If n > 1 Then Fakt = n * Fakt(n - 1)
 End Function
 
Private Sub Command2_Click()
End
End Sub

Решение задачи: «Табулирование функции на отрезке [а, b] с шагом h»

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

                            a = Val(Text1.Text)
b = Val(Text2.Text)
h = Val(Text3.Text)
e = Val(Text4.Text)
                        