对自然对数 e 的计算

VB中并没常数e，我们需要通过运算得到它，数学中其运算方法为：e=1+1/1!+1/2!+1/3!+...+1/(n-1)!+1/n!
用程序实现起来可以分为计算阶乘和计算e值两部分，其分别对应的过程如下：
计算阶乘

Private Function JC(ByVal Number As Integer) As Double
JC = 1
If Number = 0 Then
  JC = 0
Else
  Do Until Number = 0
    JC = JC * Number
    Number = Number - 1
  Loop
End If
End FunctionFunction JC()

计算e值

Public Function e() As Double
For n = 1 To 170
  e = e + (1 / JC(n))
Next n : e = e + 1
End FunctionFunction e()

需要说明的是，由于 Double 类型的限制，所得e值只包括小数点后14位数且阶乘的最大运算值不能超过170，否则会出现溢出错误。此程序计算结果为 e = 2.71828182845905。