Напечатать значение суммы и число членов ряда, вошедших в сумму - VB

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

Вычислить на ЭВМ значение суммы членов бесконечного ряда с заданной точностью . Напечатать значение суммы и число членов ряда, вошедших в сумму. В соответствии с вариантом составить блок-схему алгоритма к задаче и составить программу на языке программирования Visual Basic 6.0. значение=0.7 точность вычисления=10^-4

Решение задачи: «Напечатать значение суммы и число членов ряда, вошедших в сумму»

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

                            'Option Explicit
 
Private Sub Form_click()
   Const x  As Double = 0.7
   Const acc  As Double = 10 ^ (-4)
   Dim k As Integer
   
   Caption = "ch(" & x & ") = " & Format(ch(x), "0.000000")
   Print " k", "Част. сумма", "Остаток"
   Do
      a = x ^ (2 * k) / f(2 * k)
      s = s + a
      d = ch(x) - s
      Print k, Format(s, "0.000000"), Format(d, "0.000000")
      If Abs(d) < acc Then Exit Do
      k = k + 1
   Loop
   
End Sub
 
Function ch(x As Double) 'гиперболический косинус
   ch = (Exp(x) + Exp(-x)) / 2
End Function
 
Function f(n As Integer)
   If n = 0 Then f = 1: Exit Function
   
   f = f(n - 1) * n
End Function
                        