VB中并没常数e,我们需要通过运算得到它,数学中其运算方法为:
e=1+1/1!+1/2!+1/3!+...+1/(n-1)!+1/n!
用程序实现起来可以分为 计算阶乘和 计算e值两部分,其分别对应的过程如下:
计算阶乘
计算e值
需要说明的是,由于
Double 类型的限制,所得e值只包括小数点后14位数且阶乘的最大运算值不能超过170,否则会出现溢出错误。此程序计算结果为
e = 2.71828182845905。
用程序实现起来可以分为 计算阶乘和 计算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 Function Function JC()
JC = 1
If Number = 0 Then
JC = 0
Else
Do Until Number = 0
JC = JC * Number
Number = Number - 1
Loop
End If
End Function Function JC()
Public Function e() As Double
For n = 1 To 170
e = e + (1 / JC(n))
Next n : e = e + 1
End Function Function e()
For n = 1 To 170
e = e + (1 / JC(n))
Next n : e = e + 1
End Function Function e()