第10講 Subプロシージャの再帰的使用理解のための課題
第４話 ループ版の詳しいトレースその２
Private Sub CommandButton1_Click()
Dim a(2) As Integer
Dim i As Integer, j As Integer, k As Integer, l As Integer, cn As Integer
Dim h1 As Byte, h2 As Byte
cn = 0
For i = 1 To 3
a(0) = i
For j = 1 To 3
a(1) = j
h1 = 1
If a(1) = a(0) Then h1 = 0
If h1 = 1 Then
For k = 1 To 3
a(2) = k
h2 = 1
For l = 0 To 1
If a(2) = a(l) Then
h2 = 0
Exit For
End If
Next
If h2 = 1 Then
For l = 0 To 2
Cells(5 + 2 * Int(cn / 3), 1 + 4 * (cn Mod 3) + l) = a(l)
Next
cn = cn + 1
End If
Next
End If
Next
Next
Cells(5 + 2 * Int(cn / 3), 1) = "順列総数"
Cells(5 + 2 * Int(cn / 3), 4) = cn
End Sub
Ⅰ ｉ＝１のとき、
| ０ | １ | ２ |
| 1 | 2 | 3 |
１個目の順列が出来た段階で、３個目のループは終わりになり、２個目のループのNextにより、
ⅱ ｊ＝３の場合となります。
| ０ | １ | ２ |
| 1 | 3 | ｋ |
今度も、If a(1) = a(0) Then h1 = 0をクリアして、h1は1のままで
If h1 = 1 Then
For k = 1 To 3
a(2) = k
h2 = 1
For l = 0 To 1
If a(2) = a(l) Then
h2 = 0
Exit For
End If
Next
If h2 = 1 Then
For l = 0 To 2
Cells(5 + 2 * Int(cn / 3), 1 + 4 * (cn Mod 3) + l) = a(l)
Next
cn = cn + 1
End If
Next
End If
が実行され、セル番号３の世界に入ります。
① ｋ＝１なら
| ０ | １ | ２ |
| 1 | 3 | 1 |
For l = 0 To 1
If a(2) = a(l) Then
h2 = 0
Exit For
End If
Next
の1回目のループにおいて ａ（２）＝ａ（０）となってしまい、
ｈ２＝０となります。すると、
If h2 = 1 Then
For l = 0 To 2
Cells(5 + 2 * Int(cn / 3), 1 + 4 * (cn Mod 3) + l) = a(l)
Next
cn = cn + 1
End If
は実行されません。よって、Ｎｅｘｔによって
② ｋ＝２となり、
| ０ | １ | ２ |
| 1 | 3 | 2 |
となり、
For l = 0 To 1
If a(2) = a(l) Then
h2 = 0
Exit For
End If
Next
を2回ともクリアして、h2は１のままで
If h2 = 1 Then
For l = 0 To 2
Cells(5 + 2 * Int(cn / 3), 1 + 4 * (cn Mod 3) + l) = a(l)
Next
cn = cn + 1
End If
が実行されて、
For l = 0 To 2
Cells(5 + 2 * Int(cn / 3), 1 + 4 * (cn Mod 3) + l) = a(l)
Next
から、２個目の順列
が表示されます。
そして、cn = cn + 1
③ ｋ＝３となり、
| ０ | １ | ２ |
| 1 | 3 | 3 |
となりまして、
For l = 0 To 1
If a(2) = a(l) Then
h2 = 0
Exit For
End If
Next
の２回目のループでａ（２）＝ａ（１）となり、h2=0となり、
If h2 = 1 Then
For l = 0 To 2
Cells(5 + 2 * Int(cn / 3), 1 + 4 * (cn Mod 3) + l) = a(l)
Next
cn = cn + 1
End If
は実行されません。
これで、３巡目（セル番号２の世界）のループが終了となり、即座に２巡目（セル番号１の世界）のループも終了となります。
そして、１巡目のループのNextにより、
Ⅱ ｉ＝２の場合となります。
| ０ | １ | ２ |
| 2 | ｊ | ｋ |
すぐに、２回目の２巡目のループになり
ⅰ ｊ＝１となります。
| ０ | １ | ２ |
| 2 | 1 | ｋ |
h1 = 1
If a(1) = a(0) Then h1 = 0
h1=1は書き換えられず、すぐに
If h1 = 1 Then
For k = 1 To 3
a(2) = k
h2 = 1
For l = 0 To 1
If a(2) = a(l) Then
h2 = 0
Exit For
End If
Next
If h2 = 1 Then
For l = 0 To 2
Cells(5 + 2 * Int(cn / 3), 1 + 4 * (cn Mod 3) + l) = a(l)
Next
cn = cn + 1
End If
Next
End If
が実施されます。２回目の３巡目のループとなり
① ｋ＝１となります。
| ０ | １ | ２ |
| 2 | 1 | 1 |
これは
h2 = 1
For l = 0 To 1
If a(2) = a(l) Then
h2 = 0
Exit For
End If
Next
の２回目のループにおいて、h2=0と書き換えられ、
If h2 = 1 Then
For l = 0 To 2
Cells(5 + 2 * Int(cn / 3), 1 + 4 * (cn Mod 3) + l) = a(l)
Next
cn = cn + 1
End If
が実行されず、３巡目のループのNextにより
② ｋ＝２となります。
| ０ | １ | ２ |
| 2 | 1 | 2 |
今度は
h2 = 1
For l = 0 To 1
If a(2) = a(l) Then
h2 = 0
Exit For
End If
Next
の１回目のループにおいて、h2=0と書き換えられ、
If h2 = 1 Then
For l = 0 To 2
Cells(5 + 2 * Int(cn / 3), 1 + 4 * (cn Mod 3) + l) = a(l)
Next
cn = cn + 1
End If
が実行されず、３巡目のループのNextにより
③ ｋ＝３となり
| ０ | １ | ２ |
| 2 | 1 | 3 |
となりますが、３度目の正直で
h2 = 1
For l = 0 To 1
If a(2) = a(l) Then
h2 = 0
Exit For
End If
Next
２回とも無事クリアしてh2=0は書き換えられず、
If h2 = 1 Then
For l = 0 To 2
Cells(5 + 2 * Int(cn / 3), 1 + 4 * (cn Mod 3) + l) = a(l)
Next
cn = cn + 1
End If
が実行され、 ３つめの順列
が表示され、cnも３となります。
本日のトレースはここまで。本当に長いトレースになりますが、忍耐のしどころですよ。
がんばりましょう。
第３話へ 第５話へ
vc++講義へ
vb講義へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
数学研究室に戻る
