vb简单编程：求自然对数e的近似值,当任意项的值小于10^（-4）是结束运算.用公式e=1+1/1!+1/2!+1/nPrivateSubCommand1_Click()Dima#,s#,e%a=1s=1Dos=s*at=1/se=e+ta=a+1LoopWhiles>10000Print"e=";eEndSu

　　vb简单编程：求自然对数e的近似值,当任意项的值小于10^（-4）是结束运算.用公式e=1+1/1!+1/2!+1/n

　　PrivateSubCommand1_Click()

　　Dima#,s#,e%

　　a=1

　　s=1

　　Do

　　s=s*a

　　t=1/s

　　e=e+t

　　a=a+1

　　LoopWhiles>10000

　　Print"e=";e

　　EndSub

　　错在哪?求分析错误程序