Как записать элемент суммы в цикле?

Private Sub mnuSpravka_Click()
MsgBox ", 10-АС, 29.12.10" _
& vbCrLf & "Лабораторная работа №7" _
& vbCrLf & "Вычисление бесконечной суммы" _
& vbCrLf & "Вариант 2"
End Sub
 
Private Sub pMnuClear_Click()
Cls
End Sub
 
Private Sub pMnuRezult_Click()
'объявляем переменные
'[a,b]- отрезок, п- число разбиений, h- шаг, eps- погрешность
Dim a As Single, b As Single, n As Integer, h As Single, eps As Single
'x- аргумент, y- функция
Dim x As Single, y As Single
'i,k- счетчики внешнего и вложенного циклов, ak- элемент суммы, sum- сумма
Dim i As Integer, k As Integer, ak, sum As Single
'открываем файлы для ввода и вывода данных
Open "E:\07\vyvodIn.txt" For Input As #1
Open "E:\07\vyvodOut.txt" For Output As #2
'ввод исходных данных
Input #1, a, b, n, eps
'шаг
h = (b - a) / n
'внешний цикл изменяет значения аргумента
For i = 0 To n
x = a + i * h
'начальные значения для суммирования ряда
ak = 6
sum = 1
k = 0 ' !!! мы a(n+1) выразили через а(n), a(0) = 6, в формуле s(0) = 1/6*6 = 1
Do
ak = -ak * (x * (k + 4) / (k + 1)) / 6 ' может, тут стоит поделить на 6,
' но тогда в след. строке ak/6 заменить на ak
sum = sum + 1 + ak / 6
k = k + 1
Loop While Abs(ak) > eps
'вычисление стандартной функции
If x = 0 Then y = 0.0039062 Else y = (1 / ((x + 4) ^ 4))
'вывод результатов на форму и в файл на диск
Print "x="; x, "функция у="; y, "сумма ="; sum, "просуммировано "; k; " элементов"
Print #2, "x="; x, "функция у="; y, "сумма ="; sum, "просуммировано "; k; " элементов"
Print
Next
End Sub
 
Private Sub pMnuStop_Click()
End
End Sub

Private Sub Command1_Click()
Dim x As Single, eps As Single
Dim Sr  As Single, Sk As Single, S As Single, n As Long
x = Val(Replace(InputBox("|x|<1", , 0.2), ",", "."))
eps = Val(Replace(InputBox("eps", , 0.001), ",", "."))
If Abs(x) < 1 And eps > 0 Then
List1.Clear
Sr = 1: Sk = 0: S = 0
n = 1
 Do While Abs(Sr - Sk) > eps
 Sk = Sr
 S = S + f(x, n)
 Sr = 1 - S / 6
 List1.AddItem n & "    " & Round(S, 6)
 n = n + 1
 If n > 400 Then
 MsgBox "слишком высокая точность"
 Exit Sub
End If
 Loop
 
 List1.AddItem "----------"
   List1.AddItem " результат         " & Round(S, 6)
      List1.AddItem "----------"
        List1.AddItem "прямой расчет  " & Round(1 / ((x + 4) ^ 4), 6)
Else
MsgBox "ложный ввод"
End If
End Sub
Function f(x As Single, k As Long) As Single
    ' тут задай правильно
f = ((x * (k + 4)) / ((-1) ^ (k + 1))) '(((-1) ^ (k + 1)) * (x ^ n)) / ((k + 1) * (k + 2) * (k + 3))
 
End Function