我编了一个计求1!+2!+3!+...+n!的值的小程序,如果输入的n值稍大一点,运行时就提示为溢出,是什么原因,是不是显示运行结果的文本框用科学计数法来显示数据就能解决问题,请各位帮帮忙!
代码如下:
ption Explicit
Dim fact As Long '声明fact作为该窗体全局变量，以便各过程的调用

Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim sum As Double
n = Val(Text1.Text)
sum = 0
For i = 1 To n
Call jc(i) '调用计算阶层的子函数
sum = sum + fact '累加阶乘和
Next i
Text2.Text = Str(sum) '将累计结果转换成字符串
End Sub

Public Sub jc(ByVal x As Integer) '计算阶乘的子过程
Dim i As Integer
fact = 1
For i = 1 To x
fact = fact * i
Next i
End Sub

End Sub