作业帮 > 数学 > 作业

vb 程序改错 已知自然对数的底数e的级数表示如下:' e=1+1/1!+1/2!+1/3!+.+1/n!+.' 本程序

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/04/26 06:55:02
vb 程序改错
已知自然对数的底数e的级数表示如下:
' e=1+1/1!+1/2!+1/3!+.+1/n!+.
' 本程序利用函数过程fact()求e,其中绝对值小于
' 1E-8的项被忽略.
'------------------------------------------------
'注意:不可增加或删除程序行,也不可以更改程序结构
'------------------------------------------------
Private Function fact(m As Integer) As Single
Dim x As Single,i As Integer
x = 1
For i = 1 To m
'
Loop While item >= 0.01
Form1.Print "e="; e
End Sub
vb 程序改错 已知自然对数的底数e的级数表示如下:' e=1+1/1!+1/2!+1/3!+.+1/n!+.' 本程序
1 x=i改为x=x*i
2 item = 1 / fact(n)改为item = 1 / fact(n+1)
3 Loop While item >= 0.01改为Loop While item >= 1e-8