上面的写得不够清楚，也有个地方错了，以下为准
无标题文档
table{line-height:30px; }td{font-size:12px;}
Function calculate()Dim nn,tem1,ResJC,temp2,inn = 0 '分母tem1 = 1 '结果之和ResJC =1 '分母阶乘temp2=1　'分子除以分母　　　While tem1 >0.00001　　 nn = nn + 1for i=1 to nn '求分母的阶乘ResJC = ResJC *inexttemp2 = temp2 / ResJC　　 tem1=tem1+ temp2　　WendEnd Function


点击下方按钮查看自然数e(精确到10的负4次方)的值



(2274) 近视真的不能治么？真相何在？脱掉眼镜就在你轻轻的点击之中……试试贝茨方法、转眼球方法，周祥民方法。让你的眼睛瞬间舒畅！百度搜索一下“改善你的视力”，有很多方法的