コード再掲
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
解説
０
１
２
2
1
3
これでf (2)の３回目の生は終わりを告げ、消滅しf (1)へと戻ります。
０
１
2
1
そして、Ｎｅｘｔにより
０
１
2
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 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
3
今回は
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)の４回目の発生となります。
０
１
２
2
3
ｉ
For i = 1 To n
x(g) = i
によって
０
１
２
2
3
1
3つともセルの内容が違いますので、
試験 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
の否定側の
Else
For j = 0 To n - 1
Cells(5 + 2 * s, 2 + (n + 1) * a + j) = x(j)
Next
cn = cn + 1
End If
の命令が遂行され、4個目の順列 をシートにはき出します。
Ｎｅｘｔにより、
０
１
２
2
3
2
となりますが、これは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
に抵触して、
０
１
２
2
3
3
となります。
今度は、２番目のセルと３番目のセルの内容が同じなので、やはり 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
の試験をクリアできません。
これで、f (2)の４回目の生が寿命を迎え、消滅します。
０
１
2
3
そして、セル番号１の世界も天寿を全うし、
２度目の消滅を体験します。
０
2
Ｎｅｘｔにより
０
3
となり、ｇ＝０なので試験
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
の肯定側
If g + 1 < n Then
f (g + 1)
が実行されf (1)の３度目の誕生を迎えます。
０
１
3
ｉ
For i = 1 To n
x(g) = i
によって、
０
１
3
1
これは、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
の肯定部分が遂行され、f (2)の５度目の生誕となります。
０
１
２
3
1
i
For文によって
０
１
２
3
1
1
０
１
２
3
1
2
と変化していって、はじめて３つのセルの内容がすべて異なり、
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
の否定部分の命令が遂行され５個目の順列 がシートに出力されます。
以下、
０
１
２
3
1
3
セル番号２の世界の５度目の消滅。
０
１
3
1
０
１
3
2
０
１
２
3
2
1
と変化していき、６個目の順列 がシートに打ち出されます。
０
１
２
3
2
2
０
１
２
3
2
3
セル番号２の世界の６度目の消滅。
０
１
3
2
０
１
3
3
セル番号１の世界の３度目の消滅。
０
3
セル番号０の世界のはじめての消滅を迎え、
プログラムはf (0)を呼び出してから
はじめてPrivate Sub CommandButton1_Clickに戻り、
自分の任務をすべて完遂し終焉を迎えます。
プログラムは、消滅しましたが、シートには結果
が燦然と輝いています。
では、皆さんわかりやすさを優先して、
Dim x(15) As Byte, cn As Long, n As Byte
をグローバルとして
引数１つのプロシージャSub f(g As Integer)としましたが、
グローバル配列とグローバル変数をやめて、
プロシージャもSub f(g As Integer,cn As Long,n As Byte,x() As Byte)と
引数を４つにするプログラムを考えてください。
尚、x() As Byteのようにすれば配列も引数として引き渡すことが出来ます。
その場合fを呼び出すには Call f(0, cn, n, x()) のようにします。
Subプロシージャが２つ以上の引数を持つときは、
Callを省略することができません。
省略したいときは、f 0,cn,n,x() となります。
これは私の趣味には合いませんので、
私はCall f(0, cn, n, x())としています。
尚、C言語やC++などではf(0, cn, n, x())とすることは可能です。
をシートにはき出します。
がシートに出力されます。
がシートに打ち出されます。
