第11講　Subプロシージャの再帰的使用の学習

第７話　Subプロシージャ版順列作成の解説その４

Dim a(15) As Byte
Dim cn As Long
Dim n As Byte
Private Sub CommandButton1_Click()
　　n = Cells(2, 10)
　　cn = 0
　　f (0)
　　Cells(3, 13) = cn
End Sub

Sub f(g As Integer)
　　Dim i As Byte, j As Byte, h As Byte
　　For i = 1 To n
　　　　a(g) = i
　　　　h = 1
　　　　If g > 0 Then
　　　　　　For j = 0 To g - 1
　　　　　　　　If a(g) = a(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 * Int(cn / 10), 1 + (n + 1) * (cn Mod 10) + j) = a(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 a(g) = a(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 * Int(cn / 10), 1 + (n + 1) * (cn Mod 10) + j) = a(j)
　　　　　　　　Next
　　　　　　　　cn = cn + 1
　　　　　　End If
　　　　End If
無視されますから、Ｎｅｘｔにより

０ １
2 3

今回は
　　　　h = 1
　　　　If g > 0 Then
　　　　　　For j = 0 To g - 1
　　　　　　　　If a(g) = a(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 * Int(cn / 10), 1 + (n + 1) * (cn Mod 10) + j) = a(j)
　　　　　　　　Next
　　　　　　　　cn = cn + 1
　　　　　　End If
　　　　End If
命令が実施され、f (2)の４回目の発生となります。

０ １ ２
2 3 ｉ

　　For i = 1 To n
　　　　a(g) = i
によって

０ １ ２
2 3 1

3つともセルの内容が違いますので、
試験
　　　　h = 1
　　　　If g > 0 Then
　　　　　　For j = 0 To g - 1
　　　　　　　　If a(g) = a(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 * Int(cn / 10), 1 + (n + 1) * (cn Mod 10) + j) = a(j)
　　　　　　　　Next
　　　　　　　　cn = cn + 1
　　　　　　End If
　　　　End If
の否定側の
　　　　　　Else
　　　　　　　　For j = 0 To n - 1
　　　　　　　　　　Cells(5 + 2 * Int(cn / 10), 1 + (n + 1) * (cn Mod 10) + j) = a(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 a(g) = a(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 a(g) = a(j) 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 a(g) = a(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 * Int(cn / 10), 1 + (n + 1) * (cn Mod 10) + j) = a(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
　　　　a(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 * Int(cn / 10), 1 + (n + 1) * (cn Mod 10) + j) = a(j)
　　　　　　　　Next
　　　　　　　　cn = cn + 1
　　　　　　End If
　　　　End If
の肯定部分が遂行され、f (2)の５度目の生誕となります。

０ １ ２
3 1 i

For文によって

０ １ ２
3 1 1


０ １ ２
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 * Int(cn / 10), 1 + (n + 1) * (cn Mod 10) + j) = a(j)
　　　　　　　　Next
　　　　　　　　cn = cn + 1
　　　　　　End If
　　　　End If
の否定部分の命令が遂行され５個目の順列５個目の順列がシートに出力されます。
以下、

０ １ ２
3 1 3

セル番号２の世界の5度目の消滅。

０ １
3 1


０ １
3 2


０ １ ２
3 2 1

と変化していき、６個目の順列６個目の順列がシートに打ち出されます。

０ １ ２
3 2 2


０ １ ２
3 2 3

セル番号２の世界の６度目の消滅。

０ １
3 2


０ １
3 3

セル番号１の世界の３度目の消滅。

０
3

セル番号０の世界のはじめての消滅を迎え、プログラムは
f (0)を呼び出してからはじめてPrivate Sub CommandButton1_Clickに戻り、
最後の命令Cells(3, 13) = cnを遂行して、自分の任務をすべて完遂し終焉を迎えます。
プログラムは、消滅しましたが、シートには結果燦然と輝く結果
が燦然と輝いています。

最後の方、叙述を簡単にしましたが、簡略にした部分を皆さんが補ってください。
詳しい記述を延々と繰り返したのでは、逆に読む気力が失せると考え、簡単にしました。

ｎ＝３を選んだ理由はお分かりですね。ｎ＝２ではトレースとして簡単すぎます。
しかし、ｎ＝４では、私も書く気になれませんし、読む皆さんもウンザリですよね。

みなさん、ｎ＝４のトレースは大変ですが、頭の中でやってみてください。
コンピュータの動きを追うことはとても大切なことです。

では、皆さんわかりやすさを優先して、Dim a(15) As Integer　Dim cn As Long Dim cn As Longをグローバルとして
引数１つのプロシージャSub f(g As Integer)としましたが、
グローバル配列とグローバル変数をやめて、プロシージャもSub f(g As Integer,cn As Long,n As Byte,a() As Byte)と引数を４つにするプログラムを考えてください。
尚、a() As Byteのようにすれば配列も引数として引き渡すことが出来ます。


第６話へ　第８話へ

004　　


VBA講義第１部へ
vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ

数学研究室に戻る