第1１講　Sub プロシージャの再帰的呼び出し
第７話　Subプロシージャの再帰的呼び出しによる階乗の計算

このプログラムは大変簡単です。例えば、
Dim k As Long
Private Sub CommandButton1_Click()
　　Dim i As Integer

　　Cells(4, 1) = "階乗計算"
　　For i = 1 To 10
　　　　k = 1
　　　　kaijyou (i)
　　　　Cells(5, i) = i
　　　　Cells(6, i) = k
　　Next

End Sub

Sub kaijyou(g As Integer)

　　k = k * g
　　If g > 2 Then　kaijyou (g - 1)

End Sub

で階乗計算ができてしまいます。
例えば、i = 5ときは
１＊５＝５
５＊４＝２０
２０＊３＝６０
６０＊２＝１２０
の計算で１２０が答えとなります。

階乗計算プログラム


第６話へ　第１２講第１話へ