コード再掲
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
解説 Dim x(15) As Byte, cn As Long, n As Byte
はグローバルにしないで、
Call f(g,cn,n,x()) としてプロシージャを呼び出すことも出来ますが、
次元を決定づけているものはｇであることを強調するために、
今回はx(15)とcn、nはグローバル配列とグローバル変数にしてあります。
このためにｆ（ｇ）というすっきした呼び出しになっています。
尚、Call f(g,cn,n,x()) とする場合は
配列x()を引数として引き渡しています。
配列も引数として引き渡すことができるのです。。
n = Cells(3, 11)
cn = 0
１行目で、K２から順列の次数を取得しています。
２行目で初期化しています。
cnは、順列総数を数えるカウンタ
（数えるものという意味です）変数です。
さて、トレースを今からしていきますが、
現在どのセル番号ｇの世界にいるのかを常に明確に意識しながら、
以下をお読みください。
現在どのセルにいるのかをはっきり掴んでいないと、
トレースが理解できなくなります。
現在いるセル（現在アクティブなセル）を
で表すことにします。
また、ｎ＝３の場合
でトレースしていることも念頭においてください。
f (0) ではじめて、世界
０
ｉ
が生成します。
というのは、プロシージャは呼び出されたときのみ、
コンピュータのメモリ上に生じるからです。
For i = 1 To n
x(g) = i
最初にｉに１が入ります。
０
1
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
g = 0ですから、Ｉｆ文は実行されませんから
h = 1は書き換えられず、
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
実行されます。g = 0ですから、
g + 1 < nは 0+ 1 < nすなわち1 < 3 で成り立ちますので、
f (g + 1)
の命令が遂行されます。
g = 0ですので、f (g + 1)はf (1)です。
したがって、f (0)がf (1)を呼び出しました。
その結果、２番目の世界（セル番号１の世界）
０
１
1
ｉ
が発生します。 For i = 1 To n
x(g) = i
によって、
０
１
1
1
となります。g = 1ですから、 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文が実施され、j = 0のとき、
x(g) = x(j) は x(1) = x(0) となるためにh = 0となり
（セル番号１の世界にいるからですよ。）、
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によりｉ＝２となり、
０
１
1
2
今度はｊ＝０のとき、x(1)≠x(0)なので、h = 1は書き換えられず、
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
が実行されます。g = 1ですから、g + 1 < n は 1 + 1 < 3で真ですから、
f (g + 1)すなわちf (2)
の命令が遂行されます。すなわち、f (1)がf (2)を呼び出し、
０
１
２
1
2
ｉ
３番目の世界（ｇ＝２の世界）が誕生します。
For i = 1 To n
x(g) = i
によって、ｉ＝1が入り、
０
１
２
1
2
1
となります。
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
は1回目のループすなわちj = 0のとき、
x(g) = x(j) は x(2) = x(0)となりますからh = 0となり、 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
は遂行されず、Ｎｅｘｔによりi=2となり、
０
１
２
1
2
2
となります。
h = 1
If g > 0 Then
For j = 0 To g - 1
If x(g) = x(j) Then
h = 0
Exit For
End If
Next
End If
今回は、2回目のループすなわちｊ＝１のとき、x(g) = x(j) は x(2) = x(1)となり、
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により
０
１
２
1
2
3
となります。x(2)≠x(0)、x(2)≠x(1)なので、はじめて
h = 1
If g > 0 Then
For j = 0 To g - 1
If x(g) = x(j) 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
が実行されるわけですが、g = 2 ですから
g + 1 < n は 2 + 1 < 3で成り立ちませんので、
Elseの部分が実行され
f (2)ははじめて自分だけに与えられている核ボタンを押す権限
Else
For j = 0 To n - 1
Cells(5 + 2 * s, 2 + (n + 1) * a + j) = x(j)
Next
cn = cn + 1
End If
を遂行して、
を表示させることに成功します。
