編寫階乘計算精確值的自定義函數

整體思路就是利用數組存放每一位數字，模擬乘法規則進行計算。

Function MyFact(DNumber) Dim ArrJG, ArrTemp Dim SumA As Double Dim i&, j& Dim strJG$ '結果輸出 '計算階乘長度 SumA = 1 For i = 1 To DNumber SumA = Log(i) / Log(10) + SumA Next i ReDim ArrJG(Int(SumA) - 1) ReDim ArrTemp(UBound(ArrJG)) '初始化結果數組 ArrJG(0) = 1 '計算階乘結果 For i = 2 To DNumber For j = 0 To UBound(ArrJG) ArrTemp(j) = ArrJG(j) * i Next j j = 0 Do While j <= UBound(ArrJG) ArrJG(j) = ArrTemp(j) Mod 10 If ArrTemp(j) >= 10 Then ArrTemp(j + 1) = ArrTemp(j + 1) + ArrTemp(j) / 10 j = j + 1 Loop Next i '結果輸出 For i = UBound(ArrJG) To 0 Step -1 strJG = strJG & ArrJG(i) Next i MyFact = strJG End Function

用以下代碼看一下結果：

Sub Test() MsgBox MyFact(100) End Sub

結果如下：

 

 

請參考下貼：

100的階乘的結果的每位數之和等於多少？ http://www.exceltip.net/thread-7618-1-1-11314.html