第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

では詳しくとレースしていきたいと思います。
�T　ｉ＝１のとき、セル番号０（この０はa(0)の０）の世界にいます。

そして、即座にセル番号１の世界に入ります。
　�@　ｊ＝１の場合

　　　ここで、If a(1) = a(0) Then h1 = 0　から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によって
　�A　ｊ＝２の場合とかわります。

　　　今度は、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
　　　が実行され、セル番号２の世界に入ります。
　　　　　　�@　ｋ＝１なら

　　　　　　　　　　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
　　　　　　　　　　は実行されません。よって、Ｎｅｘｔによって　　　
　　　　　　�A　ｋ＝２となり、

　　　　　　　　　ですが、
　　　　　　　　 　For l = 0 To 1
　　　　　　　　　　　　If a(2) = a(l) Then
　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　End If
　　　　　　　　　　Next　　　
　　　　　　　　　　の2回目のループとき、　ａ（２）＝ａ（１）
　　　　　　　　　　となってしまうので、再び
　　　　　 　　　　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
　　　　　　　　　　は実行されません。よって、Ｎｅｘｔによって　　　
　　　　　　　�B　ｋ＝３となり、

　　　　　　　　　　となりまして、
　　　　　　　　 　For l = 0 To 1
　　　　　　　　　　　　If a(2) = a(l) Then
　　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　End If
　　　　　　　　　　Next　　　
　　　　　　　　　　のループを2回ともクリアして、h2は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
　　　　　　　　　　が実行されます。
　　　　　　　　　　　　For l = 0 To 2
　　　　　　　　　　　　　　Cells(5 + 2 * Int(cn / 3), 1 + 4 * (cn Mod 3) + l) = a(l)
　　　　　　　　　　　　Next
　　　　　　　　　　によって、1個目の順列がシートに表示され、
　　　　　　　　　　となり、さらに、cn = cn + 1から順列総数のカウンタcnがカウントされ１になります。

本日のトレースはここまで。


第２話へ　第４話へ

　　

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

数学研究室に戻る