Вычисление функции с заданной точностью.

[Absent]

Составить программу вычисления бесконечного ряда с точностью до 0,0001

y=1+1/3!+....+1/(2n-1)!+.....
(бейсик в Exel)
Вот что получилось у меня. Прошу помочь

Sub ывап()
Sheets("Лист1").Select
Dim y, y0 As Single
Dim s, n, i As Integer
y = 0
n = 1
Do While y0 > 0.0001
s = 1
For i = 1 To (2 * n - 1)
s = s * i
Next i
y0 = 1 / s
y = y + y0
n = n + 1
Loop
Cells(2, 2) = y
Exit Sub
End Sub

[Serge_Bliznykov]

проверяйте:

Sub Расчет()
    Sheets("Лист1").Select
    Dim y, y0 As Double
    Dim n, Factorial As Long
    y = 0
    y0 = 1
    n = 1
    Factorial = 1
    Do While y0 > 0.0001
      y = y + y0
      Factorial = Factorial * (n + 1) * (n + 2)
      n = n + 2
      y0 = 1 / Factorial
    Loop
    Cells(2, 2) = y
End Sub