Question

VB题目，求【1】【2】【3】

程序填空，并调试如下程序
程序功能：求自然对数e的近似值,要求其误差小于0.00001，近似公式为:e=1+1/1!+1/2!+1/3!+……+1/i!+……
Private Sub Form_Click()
Dim i%,n&, t!, e!
e = 【1】
n = 1
i = 0
t = 1
Do While t【2】 0.00001
e = e + t
i = i + 1
n = n * i
t = 【3】
Loop
Print "计算了 "; i; " 项的和是 "; e
End Sub

Answer 1

Private Sub Form_Click()
Dim i%, n&, t!, e!
e = 0
n = 1
i = 0
t = 1
Do While t > 0.00001
e = e + t
i = i + 1
n = n * i
t = 1 / n
Loop
Print "计算了 "; i; " 项的和是 "; e
End Sub