Вычислить значение выражения - VB (58689)

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

Ребят, помогите пожалуйста!!! Не могу решить задачу Visual Basic: Вычислить:

Решение задачи: «Вычислить значение выражения»

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

                            Option Explicit
Public Function Factorial(ByVal n As Integer) As Long
    If (n = 0) Then
        Factorial = 1
    Else
        Factorial = n * Factorial(n - 1)
    End If
End Function
Private Sub Form_Load()
Dim x As Double, i As Integer
 
For i = 1 To 10
x = 2 + 1 / Factorial(i)
Debug.Print x
Next
 
End Sub
                        