vb程序改错已知自然对数的底数e的级数表示如下:'e=1+1/1!+1/2!+1/3!+.+1/n!+.'本程序利用函数过程fact()求e,其中绝对值小于'1E-8的项被忽略.'------------------------------------------------'注意：不可增加

Question

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

Answer 1

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