UC知道求自然对数e的近似值，帮忙编个程序
来源：百度知道 编辑：UC知道 时间：2024/06/15 11:35:53
根据下列公式，求自然对数e的的近似值。
e=1+1/1!+1/2!+1/3!+……+1/n!
要求：误差小于0.00001
请问误差小于0.00001指的什么意思？顺便帮忙编写一个简单程序，谢谢
Private Sub Command1_Click()
e = 2
i = 1
t = 1
Do While t > 0.00001
i = i + 1
t = t / i
e = e + t
Loop
Print "计算了"; i; "项目和是："; e
Print Exp(1)
End Sub
这是问题的答案，请帮忙解释下该程序？
该程序用途是什么？为什么循环体的结束条件是t< 0.00001?
e=1+1/1!+1/2!+1/3!+……+1/n!
要求：误差小于0.00001
请问误差小于0.00001指的什么意思？顺便帮忙编写一个简单程序，谢谢
Private Sub Command1_Click()
e = 2
i = 1
t = 1
Do While t > 0.00001
i = i + 1
t = t / i
e = e + t
Loop
Print "计算了"; i; "项目和是："; e
Print Exp(1)
End Sub
这是问题的答案，请帮忙解释下该程序？
该程序用途是什么？为什么循环体的结束条件是t< 0.00001?
Dim He As Double
Dim J As Long
Dim FenMu As Long
Private Sub Command1_Click()
He = 1
J = 1
FenMu = 1
While (1 / FenMu) >= 0.00001
He = He + 1 / FenMu
J = J + 1
FenMu = 1
For i = 1 To J
FenMu = FenMu * i
Next i
Wend
Print He, J, FenMu, 1 / FenMu
End Sub
Fuction jc(a as long)
for i = 1 to a
jc = jc * i
next
end function
private sub command1_click()
n=inputbox("n=?")
if len(n)=0 then exit sub
c=1
for e = 1 to n
c=c+1/jc(e)
next
c=mid(c,1,7)
msgbox "e = " & c
end sub