Почему значения повторяются, а не идут по порядку?

Dim S, a, c, x, y As Double
        Dim n, k As Int32
        Dim xn, xk, h, eps As Double
        xn = Val(TextBox1.Text)
        xk = Val(TextBox2.Text)
        h = Val(TextBox3.Text)
        eps = Val(TextBox4.Text)
        n = Convert.ToInt32((xk - xn) / h) + 1
        x = xn ' Начальное значение аргумента x
        For i As Int32 = 1 To n
            y = ((x ^ 2) / 4 + x / 2 + 1) * Math.Exp(x / 2)
            TextBox5.Text &= TextBox5.Text & Format("{0,6:0.00} ", x) & vbCrLf
            TextBox6.Text &= TextBox6.Text & Format("{0,10:0.00000}", y) & vbCrLf
            a = x ' Первое слагаемое
            k = 1 ' Номер первого слагаемого
            S = 0
            Do ' Организация цикла для суммирования
                S += a
                c = ((x / 2) ^ k) / f(k) ' Очередной коэффициент c
                a = a * c * x ^ 2 ' Очередное слагаемое
                k += 1 ' Номер следующего слагаемого
            Loop Until Math.Abs(a) < eps
            'Вывод суммы рядаS
            TextBox7.Text &= TextBox7.Text & Format("{0,10:0.00000}", S) & vbCrLf
            ' Вывод абсолютной погрешности
            TextBox9.Text &= TextBox9.Text & Format("{0,10:0.0000000}", Math.Abs(S - y)) & vbCrLf
            ' Вывод относительной погрешности
            TextBox8.Text &= TextBox8.Text & Format("{0,10:0.0000000}", Math.Abs(S - y) / S) & vbCrLf
            x += h ' Следующее значение аргумента x
        Next i

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