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