对自然对数 e 的计算

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