Excel中計算階乘（n!)的VBA代碼

在Excel中可以通過FACT函數來計算非負整數n的階乘（n!)，而如果要通過VBA來計算階乘，可以用下面的兩個自定義函數：

1.使用循環：

Function Factorial_a(ByVal Num As Integer)If Num < 0 ThenFactorial_a = "#NUM!"ElseFactorial_a = 1For i = 1 To NumFactorial_a = Factorial_a * iNextEnd IfEnd Function

2.使用遞歸：

Function Factorial_b(ByVal Num As Integer)If Num < 0 ThenFactorial_b = "#NUM!"ElseIf Num = 0 Or Num = 1 ThenFactorial_b = 1ElseFactorial_b = Num * Factorial_b(Num – 1)End IfEnd Function