VF 如何用公式e=1+1/1!+1/2!+...+1/n!计算e的近似值?

问题描述:

VF 如何用公式e=1+1/1!+1/2!+...+1/n!计算e的近似值?
直到1/n!

clear
e=1
n=1
do while .t.
k=1
for i=1 to n
k=k*i
endfor
m=1/k
e=e+m
if m