十万火急!请VB高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!【程序改错】'------------------------------------------------已知自然对数的底数e的级数表示如下:' e=1+

十万火急!请VB高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!【程序改错】'------------------------------------------------已知自然对数的底数e的级数表示如下:' e=1+
十万火急!请VB高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!
【程序改错】
'------------------------------------------------
已知自然对数的底数e的级数表示如下:
' e=1+1/1!+1/2!+1/3!+.+1/n!+.
' 本程序利用函数过程fact()求e,其中绝对值小于
' 1E-8的项被忽略.
'------------------------------------------------
Option Explicit
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高手帮我解答此程序改错题!每个FOUND的下一行都有错误,请改正.明天就考试了,着急!【程序改错】'------------------------------------------------已知自然对数的底数e的级数表示如下:' e=1+
x = 1
For i = 1 To m
'
Loop While item >= 0.01
不成立