Не могу найти ошибку (VB)

[Radmir853]

Табулирование функции и суммы функционального ряда
Протабулировать


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 = e ^ 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
For i = 1 To n
Fakt = Fakt * i
Next i
End Function

[gaw4]

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

 Private Function Fakt(n)
 Fakt = 1
 If n > 1 Then Fakt = n * Fakt(n - 1)
 End Function