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趋近无穷的时候。