自然对数e的值约等于（自然对数e的值）

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

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 时结束了循环，这个只是到这一项为止。

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