Программа зацикливается и выделяет 26-ую строку - VB

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

Привет всем любителям VB6! Я не думаю что в преддверии Нового года мне кто-то ответит, но все же. Программа зацикливается и выделяет 26-ую строку. Первая команда выполняется верно Задание сильно не отличается

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

Function f(u)
If u <= 1 Then f = 1 Else f = f(u - 1) * u
End Function
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1)
s = 0
a = 1
For k = 1 To n Step 1
u = (2 * k - 1)
a = f(u)
c = ((-1) ^ (k - 1)) / a
s = s + c
Next k
Picture1.Print s
End Sub
Private Sub Command2_Click()
n = Val(Text1)
e = Val(Text2)
s2 = 0
a = 1
k = 2
Do
a = f(u)
j = ((-1) ^ (k - 1)) / a
s2 = s2 + j
k = k + 1
Loop Until Abs(j) < e
Picture2.Print s2
End Sub
 
Private Sub Command3_Click()
Picture1.Cls
Picture2.Cls
Text1 = ""
Text2 = ""
End Sub
 
Private Sub Command4_Click()
End
End Sub

Поправил программу но все равно не то,суммы должны быть почти одинаковыми

Function f(u)
If u <= 1 Then f = 1 Else f = f(u - 1) * u
End Function
Private Sub Command1_Click()
Picture1.Cls
n = Val(Text1)
s = 0
a = 1
For k = 1 To n Step 1
u = (2 * k - 1)
c = ((-1) ^ (k - 1)) / f(u)
s = s + c
Next k
Picture1.Print s
End Sub
Private Sub Command2_Click()
n = Val(Text1)
e = Val(Text2)
s2 = 1
For k = 1 To n Step 1
u = (2 * k - 1)
j = ((-1) ^ k - 1) / f(u)
If Abs(j) >= e Then
Exit For
Else: s2 = s2 + j
End If
Next k
Picture2.Print s2
End Sub
 
Private Sub Command3_Click()
Picture1.Cls
Picture2.Cls
Text1 = ""
Text2 = ""
End Sub
 
Private Sub Command4_Click()
End
End Sub

Решение задачи: «Программа зацикливается и выделяет 26-ую строку»

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

                            f = f(u - 1) * u
u = (2 * k - 1)
c = ((-1) ^ (k - 1)) / f(u)
                        