章末問題８－１の解答例１

Dim i, 計算結果 As Integer

階乗(0, 0).Value = 1

計算結果 = 1
For i = 1 to 2
    計算結果 = 計算結果 * i
Next
階乗(1, 0).Value = 計算結果

計算結果 = 1
For i = 1 to 3
    計算結果 = 計算結果 * i
Next
階乗(2, 0).Value = 計算結果

計算結果 = 1
For i = 1 to 4
    計算結果 = 計算結果 * i
Next
階乗(3, 0).Value = 計算結果

計算結果 = 1
For i = 1 to 5
    計算結果 = 計算結果 * i
Next
階乗(4, 0).Value = 計算結果


章末問題８－１の解答例２

Dim i, j, 計算結果 As Integer

For i = 1 to 5
    計算結果 = 1
    For j = 1 to i
         計算結果 = 計算結果 * i
    Next
    階乗(j - 1, 0).Value = 計算結果
Next