关于自然对数e的由来，自然对数e的值这个问题很多朋友还不知道，今天小六来为大家解答以上的问题，现在让我们一起来看看吧！

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

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