Private Sub Command1_Click()
Dim i, t, s
s = 1
For i = 1 To 50
s = s + 1 / fc(i)
Next
Print s, i
End Sub
Private Sub Command2_Click()
Dim s, i, k
s = 1
Do
i = i + 1
k = 1 / fc(i)
If k < 10 ^ (-6) Then Exit Do
s = s + k
Loop
Print s, i - 1
End Sub
Function fc(n)
Dim i
fc = 1
For i = 1 To n
fc = fc * i
Next
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024