求e=1+1/1!+1/2!+1/3!+1/4!+......+1/20!用vfp编程

&& 代码如下： CLEAR SET DECIMALS TO 12 LOCAL i, e e = 1 FOR i = 1 TO 20 e = e + 1/m_Factorial(i) ENDFOR ? "e=",e SET DECIMALS TO 2 RETURN && 阶乘函数 PROCEDURE m_Factorial(n) IF n < 0 RETURN -1 ENDIF IF n = 0 RETURN 1 ENDIF