VB求e的近似值

题目

VB求e的近似值
利用e^x的近似公式计算e（直到最后一项小于10^-6）
e^x=1+x/1!+x^2/2!+……x^n/n!
注意是求e的近似值!

答案

Private Sub Command1_Click()
x = InputBox("请输入x：")
s = 1
fact = 1
Do
i = i + 1
fact = fact * i
t = x ^ i / fact
s = s + t
Loop Until t