Найти сумму бесконечного ряда - VB (60354)

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

Знатоки бейсика, прошу вашей помощи.

Решение задачи: «Найти сумму бесконечного ряда»

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

                            Function SumSeq(x As Double, Optional eps As Double = 0.0000000001, Optional q As Double = 1, Optional n As Integer = 0) As Double
    If x > 2 Or x < 0 Then
       Error 666
    Else
       If n = 0 Then
          SumSeq = SumSeq(x, eps, (x - 1), 1)
       Else
          z# = q * Sin(q) / (n * n)
          If Abs(z#) < eps Then
             SumSeq = z#
          Else
             SumSeq = z# + SumSeq(x, eps, q * (x - 1), n + 1)
          End If
      End If
   End If
End Function
 
Sub Test()
 
    x# = 0.5
    
    Debug.Print SumSeq(x#)
 
End Sub
                        