(资料图片)

1、要求：误差小于0.00001 　　 Private Sub Command1_Click（） 　　 Dim i%， n&， t！。

2、 e！ 　　 e = 2 　　 i = 1 　　 t = 1 　　 Do While t > 0.00001 　　 i = i + 1 　　 t = t / i 　　 e = e + t 　　 Loop 　　 Print "计算了"； i； "项目和是："； e 　　 Print Exp（1） ‘与上句输出值进行对比以证明算法的正确性 　　 End Sub 这种算法是有问题的，不能达到指定的精度的！t<= 0.00001 时结束了循环，这个只是到这一项为止。

3、该项的值比精度小，但是不能保证被舍掉的后面部分（无穷项之和）阶乘的倒数之和比指定的精度小！。

本文分享完毕，希望对大家有所帮助。

关键词：