long会溢出的
debug.print Factorial(100)
Private Function Factorial(ByVal parameter As Integer) As Double
If parameter < 2 Then Return 1
Factorial = parameter * Factorial(parameter - 1)
End Function
如果不行还可以查阅以下几个网站：
①
②
希望我的答案是最佳的。谢谢！^_^
long会溢出的
debug.print Factorial(100)
Private Function Factorial(ByVal parameter As Integer) As Double
If parameter < 2 Then Return 1
Factorial = parameter * Factorial(parameter - 1)
End Function
如果不行还可以查阅以下几个网站：
①
②
希望我的答案是最佳的。谢谢！^_^