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

　　vb程序改错

　　已知自然对数的底数e的级数表示如下:

　　'e=1+1/1!+1/2!+1/3!+.+1/n!+.

　　'本程序利用函数过程fact()求e,其中绝对值小于

　　'1E-8的项被忽略.

　　'------------------------------------------------

　　'注意：不可增加或删除程序行,也不可以更改程序结构

　　'------------------------------------------------

　　PrivateFunctionfact(mAsInteger)AsSingle

　　DimxAsSingle,iAsInteger

　　x=1

　　Fori=1Tom

　　'

　　LoopWhileitem>=0.01

　　Form1.Print"e=";e

　　EndSub