level 1
ohohyeah
楼主
以下代码老是在状态栏中提示脚本出错,我调了半天都不成,各位帮我看看。谢谢
无标题文档
table{line-height:30px; }td{font-size:12px;}
Function calculate()Dim nn,tem1,ResSum,temp2,inn = 0tem1 = 1ResSum =1temp2=1 While tem1 >0.00001 nn = nn + 1for i=1 to nn '求分母的阶乘ResSum = ResSum *inexttemp2 = temp2 / ResSum tem1=tem1+ t WendEnd Function
点击下方按钮查看自然数e(精确到10的负4次方)的值
2006年05月15日 03点05分
1
无标题文档
table{line-height:30px; }td{font-size:12px;}
Function calculate()Dim nn,tem1,ResSum,temp2,inn = 0tem1 = 1ResSum =1temp2=1 While tem1 >0.00001 nn = nn + 1for i=1 to nn '求分母的阶乘ResSum = ResSum *inexttemp2 = temp2 / ResSum tem1=tem1+ t WendEnd Function
点击下方按钮查看自然数e(精确到10的负4次方)的值