Sub 计算阶乘()
Dim n, i As Integer
Dim f As Long
n = Val(InputBox("输入n的值:", "计算阶乘"))
f = 1
For i = 1 To n
f = f * i
Next i
MsgBox n & "!=" & f, vbOKOnly, "计算阶乘"
End Sub
新手上路,求大神解答!
问了老师应该经F定义为double,long也是不够的。虽然没有得到满意答案还是采纳了,谢谢。
只用改integer就好了吗?那个数组不是很懂。改了还是溢出