VB编程题：求自然对数e的近似值e=1+1/1!+1/2!+1/3!+……+1+50!
问题描述：
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