来自邵辉的问题
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
错在哪?求分析错误程序
