Табулирование функции и суммы функционального ряда - VB (61818)

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

Вид вычисляемой функции задать с помощью подпрограммы-функции. Функциональный ряд S вычисляется с точностью до e по рекуррентной формуле s=1+2*x/2+...+(n^2+1)/n!*(x/2)^n+... 0.1<=x<=1 e=30^-4 y=((x^2)/4+x/2+1)^(e^x/2) Основная программа работает,но вот функция никак не хочет...Подскажите плз))

Function f(a)
t = 1
For i = 1 To a
    t = ( i ^ 2 + 1 ) / t * i
Next i
f = t
End Function
 
Private Sub Command1_Click()
a = Val(Text1)
b = Val(Text2)
h = Val(Text3)
e = Val(Text4)
ex = 2.718
 
For x = a To b Step h
    s = 1
    k = 1
    y = ((x ^ 2) / 4 + x / 2 + 1) * ex ^ x / 2
    Do
       s = s + ((x / 2) ^ k) / f(k)
       k = k + 1
    Loop Until ((x / 2) ^ k) / f(k) < e
    Picture1.Print x
    Picture2.Print Format(y, "0.00000")
    Picture3.Print Format(s, "0.00000")
Next x
 
End Sub

Решение задачи: «Табулирование функции и суммы функционального ряда»

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

                            Option Explicit
 
Private Function f(ByVal a As Integer) As Double
    Dim I As Integer
    Dim T As Double
    T = 1
    For I = 1 To a
        T = (I ^ 2 + 1) / T * I
    Next I
    f = T
End Function
 
Private Sub Command1_Click()
    Dim a As Integer, b As Integer, h As Integer, k As Integer, x As Integer
    Dim e As Double, ex As Double, s As Double, y As Double, n As Double
    On Error GoTo ErrHand
    a = Text1.Text
    b = Text2.Text
    h = Text3.Text
    e = Text4.Text
    ex = 2.718
    Text5.Text = ""
    For x = a To b Step h
        s = 1
        k = 1
        y = ((x ^ 2) / 4 + x / 2 + 1) * ex ^ x / 2
        Do
            n = ((x / 2) ^ k) / f(k)
            s = s + n
            k = k + 1
        Loop Until n < e
        Text5.Text = Text5.Text & x & vbCrLf
        Text5.Text = Text5.Text & Format(y, "0.00000") & vbCrLf
        Text5.Text = Text5.Text & Format(s, "0.00000") & vbCrLf
    Next x
    Exit Sub
ErrHand:
    Text5.Text = Text5.Text & "Ошибка переполнения"
End Sub
                        