Question

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

e=1+1/1!+1/2!+1/3!+……+1+50！

Answer 1

Private Sub Command1_Click()
Dim I As Integer, J As Integer, NS As Double, T As Double
For I = 1 To 50
T = 1
For J = 1 To I
T = T * J
Next
NS = NS + 1 / T
Next
NS = NS + 1
Text1.Text = Round(NS, 20)
End Sub

结果：e = 2.71828182845905

Answer 2

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

Answer 3

Private Sub Form_click()
jc = 1
s = 1
For i = 1 To 50
jc = jc * i
s = s + 1 / jc
Next
MsgBox s
End Sub