VB编程：求自然对数的底e的近似值,要求其误差小于10^(-6)e=1+1/1!+1/2!+1/3!+…+1/n!

Question

VB编程：求自然对数的底e的近似值,要求其误差小于10^(-6)
e=1+1/1!+1/2!+1/3!+…+1/n!

Answer 1

Dim i As Integer
Dim e As Double,f As Double
i=1
f=1
e=0
while (1/f)>10^(-6)
f=i*f
e=e+1/f
end