コード再掲
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
解説
０
１
２
1
2
3
1個目の順列の作成表示に成功すると、f (2)は寿命を終えて、消滅し
０
１
1
2
となります。f (1)のNextによって、
０
１
1
3
となります。x(1)≠x(0)なので、チェック
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
が行われます。ｇ＝１ですから、g + 1 < n は 1 + 1 < 3
で成り立ち、
f (g + 1)
が呼び出され、セル番号２の世界の2回目の生誕となります。
０
１
２
1
3
ｉ
For i = 1 To n
x(g) = i
によって、
０
１
２
1
3
1
となります。残念ながら、x(2) = x(0) ですから
For j = 0 To g - 1
If x(j) = x(g) Then
h = 0
Exit For
End If
Next
の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
実施されず、f (2)のＮｅｘｔにより、
０
１
２
1
3
2
となります。x(2)≠x(0)、x(2)≠x(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
において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
の実行となりますが、ｇ＝２ですから g + 1 < n は 2 + 1 < 3 で成り立ちませんので
Else
For j = 0 To n - 1
Cells(5 + 2 * s, 2 + (n + 1) * a + j) = x(j)
Next
cn = cn + 1
End If
が実行され、２個目の順列
が表示されることになります。
そして、Ｎｅｘｔによって
０
１
２
1
3
3
となりますが、x(2) = x(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
のｊ＝１のとき、ｈ＝０と書き換えられ、
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
無視され、
f (2)のすべての処理が終わり、
２回目のf (2)の消滅となります。
０
１
1
3
そして、f (1)も任務が終了して、消滅します。
０
1
そして、Ｎｅｘｔによって、
０
2
となりますが、ｇ＝０なので、
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 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
の肯定の方が実施され、セル番号１の世界の２回目の誕生となります。
０
１
2
ｉ
となります。
For i = 1 To n
x(g) = i
によって、
０
１
2
1
となります。x(1)≠x(0)で、チェック
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 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
の肯定の側が遂行され、セル番号２の世界の３回目の生成となります。
０
１
２
2
1
ｉ
For i = 1 To n
x(g) = i
によって、
０
１
２
2
1
1
となります。 x(2) = x(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
２回目でｈ＝０に書き換えられ、
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
は実施されず、Ｎｅｘｔによって
０
１
２
2
1
2
今度は、 x(2) = x(0)で
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
は実行されず、Ｎｅｘｔによって
０
１
２
2
1
3
x(2)≠x(0)、x(2)≠x(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
のチェックをクリアして
Else
For j = 0 To n - 1
Cells(5 + 2 * s, 2 + (n + 1) * a + j) = x(j)
Next
cn = cn + 1
End If
の命令が行われ、３個目の順列
が表示されます。
