1到n的階乘的倒數求和？

Private Function f(ByVal x%)

If x = 1 Then

f = 1

Else

f = x * f(x - 1)

End If

End Function

Private Sub Form_Click()

Dim n%, s!

n = InputBox("請輸入一個正整數n:")

For i = 1 To n

m = f(i)

s = s + 1 / m

Next

Print "n項階乘倒數的和為："; s

End Sub

lim (1/1!+ 1/2!+...+1/n!) = e-1，lim底下是n→∞，意思是n趨近無窮。

e是自然常數，為數學中一個常數，是一個無限不循環小數，且為超越數，其值約為2.71828。

在e的起源中，e被定義為以下兩種形式：

所以1到n 階乘的倒數的和是e-1，當n趨近無窮的時候。

?

?