VB编程题：求自然对数e的近似值

题目

VB编程题：求自然对数e的近似值
e=1+1/1!+1/2!+1/3!+……+1+50!

答案

Private Sub Form_Load()
For i = 1 To 50
n = 1
For j = 2 To i
n = n * j
Next
s = s + 1 / n
Next
MsgBox s
End Sub