第１１講 数独の問題を解くプログラムＶｅｒ１の解説　
第３話 プロシージャSub bangousakuseiをトレースし第１話掲載の番号付けを再現しよう！
ここではプログラムをトレースし、番号割り振り

を再現してみましょう。プログラムを再掲すると、
Sub bangousakusei()
　　　　Dim i1, i2, i3 As Integer
　　　　g = 0
　　　　For i = 1 To 9
　　　　　　　　For j = 0 To 8
　　　　　　　　　　　　For k = 0 To 8
　　　　　　　　　　　　　　　　If cnn(j, k) = i Then
　　　　　　　　　　　　　　　　　　　　iz(g) = j
　　　　　　　　　　　　　　　　　　　　jz(g) = k
　　　　　　　　　　　　　　　　　　　　g = g + 1
　　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　Next
　　　　　　　　Next
　　　　Next
　　　　hs = g
End Sub

トレースする際には、変数g，i，j，kが何を表すかしっかりつかんでいなければなりません。
gは、

などの紺色の番号に相当します。そして、ｉはcnn(j, k)の値、すなわち

などの赤の番号に相当します。j（またはiz(g)）は

の濃紺の番号に相当します。最後k（まはたjz(g)）は

のピンクの番号に対応しています。
ではトレースしてみましょう。
i=0のとき、cnn(j, k)の値すなわち

などはすべて1以上なので、if文のcnn(j, k) = iの条件を満たしません。
左辺が1以上で右辺が０だからです。したがって、ｉｆ文が実行されるための条件はi>0です。
i=1，j=0，k=0のとき、cnn(j, k) = iはcnn(0, 0)=1すなわち3=１で条件をクリアしません。
i=1，j=0，k=1のとき、cnn(j, k) = iはcnn(0, 1)=1すなわち3=１で条件をクリアしません。
i=1，j=0，k=2のとき、cnn(j, k) = iはcnn(0, 2)=1すなわち3=１で条件をクリアしません。
i=1，j=0，k=3のとき、cnn(j, k) = iはcnn(0, 3)=1すなわち4=１で条件をクリアしません。
i=1，j=0，k=4のとき、cnn(j, k) = iはcnn(0, 4)=1すなわち5=１で条件をクリアしません。
i=1，j=0，k=5のとき、cnn(j, k) = iはcnn(0, 5)=1すなわち0=１で条件をクリアしません。
（cnn(0, 5)のときは、mah(0，5)=4すなわちmah(0，5)>0ですから、第１０講で解説したとおり、
cnn(0, 5)については、何の処理も行われませんので、cnn(0, 5)=0でした。）
以下同様に続き、
i=1，j=2，k=８のとき、cnn(2, 8)=1すなわち1=1となりはじめてcnn(j, k) = iの条件をクリアしてｉｆ文が実行され、
iz(0)=2，jz(0)=8（2行目のg=0よりgは0でした。）となります。そして、g=g+1よりg=1となります。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

をご覧になれば、i=1でｉｆ文が実行されるのは、(2, 8)以外では(4, 1)と(8, 6)のときのみです。
(2, 8)のときがｉｆ文が実行される2回目で、iz(1)=2，jz(1)=8，g=2となります。
そして、(8, 6)のときが３回目の実行でiz(2)=8，jz(2)=6，g=3です。
i=2のときは

(4, 7)，(4, 8)，(6, 0)，(7, 2)，(8, 7)の順でif文が実行されていき、それぞれ
iz(3)=4，jz(3)=7，g=4
iz(4)=4，jz(4)=8，g=5
iz(5)=6，jz(5)=0，g=6
iz(6)=7，jz(6)=2，g=7
iz(7)=8，jz(7)=7，g=8となっていきます。

以下同様に動いていって最終的に

が完成するわけです。

第２話へ　


VB入門講義応用編トップへ

VB入門講義トップへ