PrivateFunction JC(ByVal Number AsInteger) AsDouble JC =1 If Number =0Then JC =0 Else DoUntil Number =0 JC = JC * Number Number = Number -1 Loop EndIf End FunctionFunction JC()
计算e值
PublicFunction e() AsDouble For n =1To170 e = e + (1/ JC(n)) Next n : e = e + 1 End FunctionFunction e()
需要说明的是,由于
Double 类型的限制,所得e值只包括小数点后14位数且阶乘的最大运算值不能超过170,否则会出现溢出错误。此程序计算结果为
e = 2.71828182845905。