第２講　再帰的呼び出しで魔方陣を作ろう！
第４話　プログラム本体（再帰的呼び出しプロシージャ）の解説


では、プログラムソースの解説に入りましょう。
読者が疑問な点は、
　　　 hh = 0
　　　　If tyouhukuhantei(k - 1) = 1 Then GoTo owari
　　　　tyouhukuhantei(k - 1) = 1
　　　　hh = 1
　　　　　　　　　・
　　　　　　　　　・
owari:　　　　
　　　　If hh = 1 Then tyouhukuhantei(k - 1) = 0
　　Next
の部分ではないでしょうか。
これはmah(i, j) = kによって、
魔方陣配列に数字を入れているわけですが
セルに同じ数字が入っていないかチェックしているのです。
例えば、４次魔方陣なら１６のセルに１から１６までの数字が１つずつ入る必要があります。
１から１６の数字が使われている場合を１，まだ使われていない状態を０として、
チェックしているのです。
例えば、５という数字がすでに使われているなら、
tyouhukuhantei(4) = 1となっているわけです。
（配列の添え字は０から始まり、現在は０から使っているので添え字は１つ小さくなっていて、
５でなく４となる点に注意しましょう。）
つまり、このセルの以前のセルにすでに５という数字が使われているので、
今対象となっているセルに５という数字を入れるわけにはいきません。

このとき、GoTo owariによってowari:に飛び次の文のNext
によってｋは６と変わります。

こうして重複した数字が入らないようにしているのです。
それではIf hh = 1 Then tyouhukuhantei(k - 1) = 0の意味は何でしょうか。
hh = 1ということは

以前のセルには５は入っていないということになります。
したがって、対象セル（ピンクのセル）によって、tyouhukuhantei(4) = 1
になったということです。
そして、Nextによってｋは６となり

の状態になります。
５は使われていないのですから
tyouhukuhantei(4) = 0として、５の数字は使われていないとコンピュータに認識させなければなりません。

If hh = 1 Thenの部分の意味は対象のセルに今のループで入れられたときのみ、
キャンセルしなさいという意味です。
対象セルより前に５という数字が使われている場合、

現在勝手にキャンセルするわけにはいきません。
ここでキャンセルしてしまいtyouhukuhantei(4) = 0
とすると、以前のセルに５が入っているのに、後のセル（セル位置番号で言うとｇ＋１以上）で再び５が入ってしまう可能性を排除できないのです。
つまり２つのセルで５が使われしまうことになります。

第２講第３話へ　第２項第５話へ　第３講第１話へ

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

VB入門講義トップへ