第１０講 数独の問題を解くプログラムＶｅｒ０
第５話　「If mah(i1, i2) = 0 Then　・・・　End Ifでは何がなされているの？」その２

まとめると、

に対応するdhs(6,7,i3)の値は

数字０は×、1は○を表しているので、０を×に、１を○に置き換え、
実際に入れる値は配列の添え字と一つずれるのでi3をi3+1に変更すると、

これはmah（6，7）に対応する

の入っている列または行またはブロックには、３，４，５，６，７，８がすでに入っていることを意味します。つまり、mah（6，7）に対応するセルには

○の数字しか入れられないことになります。

以上からdhs(i1, i2, i3)の役割は、mah(i1, i2)に対応するセルに入れることができる数字の候補リストを見いだすことにあるのです。
○と×を反対にすればそれがわかるのです。

以上の説明と対応させて、
　　　　　　　　If mah(i1, i2) = 0 Then
　　　　　　　　　　For i3 = 0 To 8
　　　　　　　　　　　　dhs(i1, i2, i3) = 0
　　　　　　　　　　Next
　　　　　　　　　　For i3 = 0 To 8
　　　　　　　　　　　　If i2 <> i3 And mah(i1, i3) > 0 Then dhs(i1, i2, mah(i1, i3) - 1) = 1
　　　　　　　　　　Next
　　　　　　　　　　For i3 = 0 To 8
　　　　　　　　　　　　If i1 <> i3 And mah(i3, i2) > 0 Then dhs(i1, i2, mah(i3, i2) - 1) = 1
　　　　　　　　　　Next
　　　　　　　　　　i1s = Int(i1 / 3)
　　　　　　　　　　i2s = Int(i2 / 3)
　　　　　　　　　　For i3 = 0 To 2
　　　　　　　　　　　　For i4 = 0 To 2
　　　　　　　　　　　　　　If 3 * i1s + i3 <> i1 And 3 * i2s + i4 <> i2　　＊（実際にはここで改行はなし）
　　　　　　　　　　　　　　And mah(3 * i1s + i3, 3 * i2s + i4) > 0 Then dhs(i1, i2, mah(3 * i1s + i3, 3 * i2s + i4) - 1) = 1
　　　　　　　　　　　　Next
　　　　　　　　　　Next
　　　　　　　　　　For i3 = 0 To 8
　　　　　　　　　　　　If dhs(i1, i2, i3) = 0 Then
　　　　　　　　　　　　　　w = cnn(i1, i2)
　　　　　　　　　　　　　　dhs1(i1, i2, w) = i3 + 1
　　　　　　　　　　　　　　cnn(i1, i2) = cnn(i1, i2) + 1
　　　　　　　　　　　　End If
　　　　　　　　　　Next
　　　　　　　　End　If
の濃い緑以外の部分を読んでください。
　　　　　　　　　　For i3 = 0 To 8
　　　　　　　　　　　　dhs(i1, i2, i3) = 0
　　　　　　　　　　Next
では、初期化をしています。つまり、すべてのｄｈｓ（i1，i2，i3）の値を０にしています。
（３，５）を例に取るとこの処理によって

となります。

次の
　　　　　　　　　　For i3 = 0 To 8
　　　　　　　　　　　　If i2 <> i3 And mah(i1, i3) > 0 Then dhs(i1, i2, mah(i1, i3) - 1) = 1
　　　　　　　　　　Next
ではどんな処理をしているかを、同じく（３，５）を例に取って考えてみましょう。

の

の６，４の部分を動いていきます。

が除かれる理由は、If i2 <> i3 And mah(i1, i3) > 0 Then dhs(i1, i2, mah(i1, i3) - 1) = 1
の赤にあります。また、

が除かれる理由は、If i2 <> i3 And mah(i1, i3) > 0 Then dhs(i1, i2, mah(i1, i3) - 1) = 1
のピンクにあります。

現在（３，５）を例にしているので
i1＝３，i2＝５となっていることを考慮に入れて、i2 <> i3 And mah(i1, i3) > 0
の条件を満たしながらi3を０から８までトレースしてみましょう。
i3=0のとき、i2 <> i3は5<>0ですからこの条件を明らかにクリアしています。
また、mah(i1, i3)=mah(3, 0)=6で条件mah(i1, i3) > 0もクリアして、Ｉｆ文が実行され、
dhs(i1, i2, mah(i1, i3) - 1) = dhs(3, 5, mah(3, 0) - 1) = dhs(3, 5, 6 - 1) = dhs(3, 5, 5) = 1
となります。
次の i3=1のとき、i2 <> i3は5<>1ですからこの条件をクリアしていますが、
mah(i1, i3)=mah(3, 1)=0（空欄は0となるようにdainyuuのところで処理されていました。）
で条件mah(i1, i3) > 0をクリアできずＩｆ文は実行されません。
i3=2，3でも条件mah(i1, i3) > 0をクリアできずＩｆ文は実行されません。
i3=4では両方の条件i2 <> i3，mah(i1, i3) > 0をクリアして、
dhs(i1, i2, mah(i1, i3) - 1) = dhs(3, 5, mah(3, 4) - 1) = dhs(3, 5, 4 - 1) = dhs(3, 5, 3) = 1
i3=5では、i2 <> i3は5<>5でこの条件をクリアせず、Ｉｆ文は実行されません。
i3=6，7，8でも条件mah(i1, i3) > 0をクリアできずＩｆ文は実行されません。

結局dhs(3, 5, 5)と dhs(3, 5, 3)だけが０から１に書き換わり

となります。０は×を、１は○を、実際の数字はi3と1つずれてi3+1でしたから、これは

を意味します。もっとも、dhs(3,5,i3)は後の
　　　　　　　　　　For i3 = 0 To 8
　　　　　　　　　　　　If i1 <> i3 And mah(i3, i2) > 0 Then dhs(i1, i2, mah(i3, i2) - 1) = 1
　　　　　　　　　　Next
　　　　　　　　　　i1s = Int(i1 / 3)
　　　　　　　　　　i2s = Int(i2 / 3)
　　　　　　　　　　For i3 = 0 To 2
　　　　　　　　　　　　For i4 = 0 To 2
　　　　　　　　　　　　　　If 3 * i1s + i3 <> i1 And 3 * i2s + i4 <> i2　　＊（実際にはここで改行はなし）
　　　　　　　　　　　　　　And mah(3 * i1s + i3, 3 * i2s + i4) > 0 Then dhs(i1, i2, mah(3 * i1s + i3, 3 * i2s + i4) - 1) = 1
　　　　　　　　　　　　Next
　　　　　　　　　　Next
によって、さらに書き換えられ最終的に

すなわち

となりますが。

第４話へ　第６話へ
VB入門講義応用編トップへ

VB入門講義トップへ