第３話　ｆｏｒ文型プログラムの解説その２

お約束の通り、後２，３回かけてプログラムを解説していきます。
第１１講のプログラムは初心者の方には、
かなり難解かと思われますので、
順を追って説明したいと思います。

Private Sub CommandButton1_Click()

　　Dim i As Integer, j As Integer, k As Integer, l As Integer, h1 As Integer, h2 As Integer, jyn(3) As Integer
　　Dim sousuu As Long


　　For i = 1 To 3
　　　　jyn(1) = i
　　　　For j = 1 To 3
　　　　　　jyn(2) = j
　　　　　　h1 = 1
　　　　　　For k = 1 To 1
　　　　　　　　If jyn(2) = jyn(k) Then
　　　　　　　　　　h1 = 0
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next
　　　　　　If h1 = 1 Then
　　　　　　　　For k = 1 To 3
　　　　　　　　　　jyn(3) = k
　　　　　　　　　　h2 = 1
　　　　　　　　　　For l = 1 To 2
　　　　　　　　　　　　If jyn(3) = jyn(l) Then
　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　End If
　　　　　　　　　　Next
　　　　　　　　　　If h2 = 1 Then

　　　　　　　　　　　　sousuua = sousuu Mod 8
　　　　　　　　　　　　sousuus = Int(sousuu / 8)
　　　　　　　　　　　　sousuu = sousuu + 1

　　　　　　　　　　　　For l = 1 To 3
　　　　　　　　　　　　　　Cells(5 + sousuus * 2, 1 + l + sousuua * 4) = jyn(l)
　　　　　　　　　　　　Next
　　　　　　　　　　End If
　　　　　　　　Next
　　　　　　End If
　　　　Next
　　Next

End Sub

まず、最初のループ
　For i = 1 To 3
　　　　jyn(1) = i
　　　　　　・
　　　　　　・
　　　　　　・
　　Next
は何をやっているのでしょうか。

ここでは、ピンクのマスに１から３まで入れています。
jyn(1)は１マス目を意味しているわけです。

これがわかれば、次のループ
　　　　For j = 1 To 3
　　　　　　jyn(2) = j
　　　　　　h1 = 1
　　　　　　For k = 1 To 1
　　　　　　　　If jyn(2) = jyn(k) Then
　　　　　　　　　　h1 = 0
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next
　　　　　　　・
　　　　　　　・
　　　　　　　・
　　　　Next
はもうおわかりでしょう。

のピンクに１から３まで入れループです。
では
　　　　　　For k = 1 To 1
　　　　　　　　h1 = 1
　　　　　　　　If jyn(2) = jyn(k) Then
　　　　　　　　　　h1 = 0
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next

の部分では何をしているのでしょうか。
それはjyn(2)とjyn(１)の数字が重ならないようにしているのです。
For k = 1 To 1は結局k = 1しか動きません。
したがって、
　　　　　　　 If jyn(2) = jyn(k) Then
　　　　　　　　　　h1 = 0
　　　　　　　　　　Exit For
　　　　　　　　End If
では、もしjyn(2)＝jyn(１)ならばh1=0として
　　　　　　If h1 = 1 Then
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・　
　　　　　　End If
を実行させないわけです。
例えば、一番最初のループi = 1、j= 1では
jyn(1)＝1　、ｊyn(2)=1で
　　　　　　If h1 = 1 Then
　　　　　　　　　・
　　　　　　　　　・
　　　　　　　　　・　
　　　　　　End If
は実行されずに、Nextによってj=2となり、

となるのです。
　　　　　　If h1 = 1 Then
　　　　　　　　For k = 1 To 3
　　　　　　　　　　jyn(3) = k
　　　　　　　　　　h2 = 1
　　　　　　　　　　For l = 1 To 2
　　　　　　　　　　　　If jyn(3) = jyn(l) Then
　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　End If
　　　　　　　　　　Next
　　　　　　　　Next
　　　　　　　　　　・
　　　　　　　　　　・
　　　　　　　　　　・
　　　　　　End If
も同様で、jyn(3)＝jyn(1)またはjyn(3)＝jyn(2)ならば、

　　　　　　　　　　If h2 = 1 Then

　　　　　　　　　　　　sousuua = sousuu Mod 8
　　　　　　　　　　　　sousuus = Int(sousuu / 8)
　　　　　　　　　　　　sousuu = sousuu + 1

　　　　　　　　　　　　For l = 1 To 3
　　　　　　　　　　　　　　Cells(5 + sousuus * 2, 1 + l + sousuua * 4) = jyn(l)
　　　　　　　　　　　　Next
　　　　　　　　　　End If

実行されず、Nextが２回行われて、
k=3になって、

となり、１個目の順列ができあがるのです。
kは3が最後ですから、２番目のループ
　　　　For j = 1 To 3
　　　　　　jyn(2) = j
　　　　　　h1 = 1
　　　　　　For k = 1 To 1
　　　　　　　　If jyn(2) = jyn(k) Then
　　　　　　　　　　h1 = 0
　　　　　　　　　　Exit For
　　　　　　　　End If
　　　　　　Next
　　　　　　　・
　　　　　　　・
　　　　　　　・
　　　　Next
に戻り、j=3となり再び３番目のループ
　　　　　　　　For k = 1 To 3
　　　　　　　　　　jyn(3) = k
　　　　　　　　　　h2 = 1
　　　　　　　　　　For l = 1 To 2
　　　　　　　　　　　　If jyn(3) = jyn(l) Then
　　　　　　　　　　　　　　h2 = 0
　　　　　　　　　　　　　　Exit For
　　　　　　　　　　　　End If
　　　　　　　　　　Next

に入ります。k=1のとき、jyn(1)とjyn(3)がそれぞれ１になり

　　　　　　　　　　If h2 = 1 Then

　　　　　　　　　　　　sousuua = sousuu Mod 8
　　　　　　　　　　　　sousuus = Int(sousuu / 8)
　　　　　　　　　　　　sousuu = sousuu + 1

　　　　　　　　　　　　For l = 1 To 3
　　　　　　　　　　　　　　Cells(5 + sousuus * 2, 1 + l + sousuua * 4) = jyn(l)
　　　　　　　　　　　　Next
　　　　　　　　　　End If

は実行されずNextによってk=2となり、

の２番目の順列ができあがります。
ｋ＝３のときは、２マス目と３マス目が同じになってしまうので

　　　　　　　　　　If h2 = 1 Then

　　　　　　　　　　　　sousuua = sousuu Mod 8
　　　　　　　　　　　　sousuus = Int(sousuu / 8)
　　　　　　　　　　　　sousuu = sousuu + 1

　　　　　　　　　　　　For l = 1 To 3
　　　　　　　　　　　　　　Cells(5 + sousuus * 2, 1 + l + sousuua * 4) = jyn(l)
　　　　　　　　　　　　Next
　　　　　　　　　　End If

は実行されず、ｊの１回目のループ、ｋの２回目のループが終了となり、
　For i = 1 To 3
　　　　jyn(1) = i
　　　　　　・
　　　　　　・
　　　　　　・
　　Next
のNextによってi=2となります。
こうして、ｊの２回目のループ、ｋの３回目のループに入り、
３個目の順列

ができあがります。
続いて、ｋの４回目のループ（ｊはまだ２回目のループ）によって、
４個目の順列

つぎに、ｊの３回目のループ（i=3)、ｋの５回目のループによって、
５個目の順列

最後に、ｋの６回目のループ（ｊはまだ３回目のまま）によって
最後の順列

ができあがるのです。

これで一通りトレースが終わりましたが、もう一度読者の皆さんは、
次のループをご自分でトレースしてみてください。

では、まだ３次順列のループ版の解説が終わっていませんが、
大分長くなったので本日はここまでとします。


第２話へ　第４話へ