コード再掲
Dim x(15) As Byte, cn As Long, n As Byte
Private Sub CommandButton1_Click()
n = Cells(3, 11)
cn = 0
f (0)
End Sub
Sub f(g As Byte)
Dim h As Byte, i As Byte, j As Byte, a As Byte, s As Long
a = cn Mod 10
s = Int(cn / 10)
For i = 1 To n
x(g) = i
h = 1
If g > 0 Then
For j = 0 To g - 1
If x(j) = x(g) Then
h = 0
Exit For
End If
Next
End If
If h = 1 Then
If g + 1 < n Then
f (g + 1)
Else
For j = 0 To n - 1
Cells(5 + 2 * s, 2 + (n + 1) * a + j) = x(j)
Next
cn = cn + 1
End If
End If
Next
End Sub
と時に応じて様々な姿をしています。
プロシージャは、呼び出されたときだけメモリ上に存在しています。
プロシージャが活動を終えたとき、プロシージャはメモリ上から消滅します。
変数と同じで、プロシージャもメモリ上に存在していて、
メモリ上で生成消滅を繰り返すのです。
まず、Private Sub CommandButton1_Clickから、f (0)で呼び出されて、はじめて世界
０
ｉ
が生まれます。そして、f (0)からf (1)が呼び出されたとき、２番目の世界
０
１
ｉ
ｉ
が生誕します。そして、f (1)からf (2)が呼び出されて、３番目の世界
０
１
２
ｉ
ｉ
ｉ
が発生します。f (2)が任務を遂行し終わると、f (2)は消滅して
０
１
ｉ
ｉ
となります。
同様に、f (1)も処理を終えると、命も終わり
０
ｉ
となります。
さらに、f (0)が任務を遂行すると、すべて消えてしまします。
しかし、f (0)・f (1)・f (2)が消滅しても、
生きていたときの活動結果がシートに残されるわけです。
つまり、
f (0)・f (1)・f (2)はシートに順列をすべて表示させるという任務を終えると、
消滅することが運命づけられているわけです。
順列の生成は、f (0)・f (1)・f (2)の連係プレイによるものですが、
シートに結果を表示させるという栄誉ある任務を遂行できるのは
（最後の核ボタンを押す権限をもつのは)、f (2)だけです。
If h = 1 Then
If g + 1 < n Then
f (g + 1)
Else
For j = 0 To n - 1
Cells(5 + 2 * s, 2 + (n + 1) * a + j) = x(j)
Next
cn = cn + 1
End If
End If
比喩による説明は以上にして、
次話では具体的にトレースしていきます。
