vb简单编程： 求自然对数e的近似值，当任意项的值小于10^（-4）是结束运算。ps：用公式e=1+1/1!+1/2!+1/3!

#include main() { float i=1,j=1; float p,r,e; r=1;e=1;p=1; while(r>1e-4) { i=i*j; p=(1/i); e=e+p; j++; r=3 / (i*j); } printf("e=%f",e); return 0;}