第９講　プロシージャの再帰的使用

第５話　for文版順列作成の解説その２

Public Class Form1

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　　'変数の宣言と初期化
　　　　　Dim h1, h2, s As Integer
　　　　　Dim a(12) As Integer
　　　　　s = 0

　　　　　'データグリッドビューのデータのクリア
　　　　　DataGridView1.Rows.Clear()

　　　　　'順列の作成
　　　　　For i = 1 To 3　 '１番最初のセル
　　　　　　　a(0) = i
　　　　　　　For j = 1 To 3 　'２番目のセル
　　　　　　　　　a(1) = j
　　　　　　　　　h1 = 1
　　　　　　　　　If a(0) = a(1) Then h1 = 0　 '１番目のセルと２番目のセルの重複検査
　　　　　　　　　If h1 = 1 Then
　　　　　　　　　　　For k = 1 To 3　 '３番目のセル
　　　　　　　　　　　　　a(2) = k
　　　　　　　　　　　　　h2 = 1
　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　　　　　　　　　　　　If h2 = 1 Then　 'DataGridViewへの表示と総数カウント
　　　　　　　　　　　　　　　DataGridView1.Rows.Add() 　'１行追加
　　　　　　　　　　　　　　　For l = 0 To 2
　　　　　　　　　　　　　　　　　DataGridView1(l, s).Value = a(l).ToString　 '順列の表示
　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　　　　s = s + 1　　'総数カウント
　　　　　　　　　　　　　End If
　　　　　　　　　　　Next
　　　　　　　　　End If
　　　　　　　Next
　　　　　Next

　　　　　DataGridView1.Rows.Add()　　'１行追加

　　　　　DataGridView1(12, s + 1).Value() = s　'総数の表示

　　 End Sub

End Class

　　1個の目の順列の完成ともに３次元目のループが終了します。そして、
　　２次元目の３巡目のループで

　　　　　　　　　h1 = 1
　　　　　　　　　If a(0) = a(1) Then h1 = 0　 '１番目のセルと２番目のセルの重複検査
　　においては、１と３が比較されますが、もちろん異なっているのでIf文は実行されず、
　　３次元ループが再び再開されます。

　　　　　　　　　　　　　h2 = 1
　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　の１巡目において、１と１が比較されh2は０とされ強制終了されて、
　　２回目の３次元目ループの２巡目が実施され

　　　　　　　　　　　　　h2 = 1
　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　のおいて、１巡目は１と２、２巡目は３と２の比較がされますが、いずれも内容が違いIf文はスルーされてh2は１のままで、

　　　　　　　　　　　　　If h2 = 1 Then　 'DataGridViewへの表示と総数カウント
　　　　　　　　　　　　　　　DataGridView1.Rows.Add() 　'１行追加
　　　　　　　　　　　　　　　For l = 0 To 2
　　　　　　　　　　　　　　　　　DataGridView1(l, s).Value = a(l).ToString　 '順列の表示
　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　　　　s = s + 1　　'総数カウント
　　　　　　　　　　　　　End If
　　が実施され、２個目の順列がデータグリッドビューに表示され、s = s + 1 によって順列総数も２になります。
　　２回目の３次元目ループも最後の３巡目になり、

　　となりますが、
　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　の２巡目において、３と３が比較されh2は０になってしまいます。
　　したがって、
　　　　　　　　　　　　　If h2 = 1 Then　 'DataGridViewへの表示と総数カウント
　　　　　　　　　　　　　　　DataGridView1.Rows.Add() 　'１行追加
　　　　　　　　　　　　　　　For l = 0 To 2
　　　　　　　　　　　　　　　　　DataGridView1(l, s).Value = a(l).ToString　 '順列の表示
　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　　　　s = s + 1　　'総数カウント
　　　　　　　　　　　　　End If
　　はスルーされて、２回目の３次元ループが終了します。
　　１回目の２次元ループも終了しますので、
　　１次元ループの２巡目になり、

　そして、すぐに２回目の２次元目ループに入り、１巡目から

　　これは、
　　　　　　　　　h1 = 1
　　　　　　　　　If a(0) = a(1) Then h1 = 0　 '１番目のセルと２番目のセルの重複検査
　　をクリアして、３回目の３次元目ループが始まり、

　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　クリアせず、３回目の３次元ループの２巡目に入り、

　　となりますが、これも
　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　をクリアせず、３回目の３次元目ループの３巡目になり、

　今回は
　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　をクリアして、
　　　　　　　　　　　　　If h2 = 1 Then　 'DataGridViewへの表示と総数カウント
　　　　　　　　　　　　　　　DataGridView1.Rows.Add() 　'１行追加
　　　　　　　　　　　　　　　For l = 0 To 2
　　　　　　　　　　　　　　　　　DataGridView1(l, s).Value = a(l).ToString　 '順列の表示
　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　　　　s = s + 1　　'総数カウント
　　　　　　　　　　　　　End If
　　が実施され、３個目の順列がデータグリッドビューに表示され、順列総数も３とカウントされます。
　　これで３回目の３次元目ループが終了し、
　　２回目の２次元目ループの２巡目となり、

　　　　　　　　　h1 = 1
　　　　　　　　　If a(0) = a(1) Then h1 = 0　 '１番目のセルと２番目のセルの重複検査
　　をクリアせず、すぐに２回目の２次元目ループは３巡目となり

　　　　　　　　　h1 = 1
　　　　　　　　　If a(0) = a(1) Then h1 = 0　 '１番目のセルと２番目のセルの重複検査
　　をクリアして、４回目の３時限目ループが始まり、

　いきなり、
　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　をクリアして、
　　　　　　　　　　　　　If h2 = 1 Then　 'DataGridViewへの表示と総数カウント
　　　　　　　　　　　　　　　DataGridView1.Rows.Add() 　'１行追加
　　　　　　　　　　　　　　　For l = 0 To 2
　　　　　　　　　　　　　　　　　DataGridView1(l, s).Value = a(l).ToString　 '順列の表示
　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　　　　s = s + 1　　'総数カウント
　　　　　　　　　　　　　End If
　　が実施され、４個目の順列がデータグリッドビューに表示され、順列総数も４を数えることになります。
　　２巡目、３巡目はそれぞれ

　　ですが、いずれも
　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　をクリアできず、４回目の３次元目ループが終了し、続いて２回目の２次元目ループも終了します。
　　そして、１次元目ループの３巡目になり、

　　すぐに、３回目の２次元目ループが始まり、

　　　　　　　　　h1 = 1
　　　　　　　　　If a(0) = a(1) Then h1 = 0　 '１番目のセルと２番目のセルの重複検査
　　をクリアして、５回目の３次元ループが実行され、

　　２巡目において
　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　をクリアして、
　　　　　　　　　　　　　If h2 = 1 Then　 'DataGridViewへの表示と総数カウント
　　　　　　　　　　　　　　　DataGridView1.Rows.Add() 　'１行追加
　　　　　　　　　　　　　　　For l = 0 To 2
　　　　　　　　　　　　　　　　　DataGridView1(l, s).Value = a(l).ToString　 '順列の表示
　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　　　　s = s + 1　　'総数カウント
　　　　　　　　　　　　　End If
　　が実施され、５個目の順列がデータグリッドビューに表示され、順列総数５とになります。
　　次に、

　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　をクリアして、
　　　　　　　　　　　　　If h2 = 1 Then　 'DataGridViewへの表示と総数カウント
　　　　　　　　　　　　　　　DataGridView1.Rows.Add() 　'１行追加
　　　　　　　　　　　　　　　For l = 0 To 2
　　　　　　　　　　　　　　　　　DataGridView1(l, s).Value = a(l).ToString　 '順列の表示
　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　　　　s = s + 1　　'総数カウント
　　　　　　　　　　　　　End If
　　が実施され、６個目の順列がデータグリッドビューに表示され、順列総数６とになります。
　　以下は、

　　はいずれも条件
　　　　　　　　　　　　　For l = 0 To 1 '３番目のセルと１，２番目のセルの重複検査
　　　　　　　　　　　　　　　If a(l) = a(2) Then
　　　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　Next
　　をクリアせず、３次元ループのすべてが終了します。続いて

　　はいずれも条件
　　　　　　　　　h1 = 1
　　　　　　　　　If a(0) = a(1) Then h1 = 0　 '１番目のセルと２番目のセルの重複検査
　　をクリアせず、３次元ループのすべてが終了します。

　　以上トレースから確かにプログラムは、３次順列を生成してくれることが、確認できました。


　　次話では、いよいろ自己再帰型プログラムに挑戦します。

第４話へ　第６話へ

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

数学研究室に戻る