では、皆さん
参考ダウンロード添付ファイル
を改良していきましょう。
行合計・列合計・対角線合計は、添付ファイルより遙かに難度が高くなりますので、
一端３つの条件を外して、さらに１個出来た段階で止めるように
変更しておきます。変更添付ファイル
Sub f(g As Byte)
Dim i As Byte, j As Byte, y As Byte, x As Byte, jy As Byte, jx As Byte, w As Byte
y = Int(g / n)
x = g Mod n
For i = 1 To n * n
If g > 0 Then
For j = 0 To g - 1
jy = Int(j / n)
jx = j Mod n
If i = a(jy, jx) Then GoTo tobi
Next
End If
a(y, x) = i
' If x = n - 1 Then
' w = 0
' For j = 0 To n - 1
' w = w + a(y, j)
' Next
' If w <> Int(n * (n * n + 1) / 2) Then GoTo tobi
' End If
' If y = n - 1 Then
' w = 0
' For j = 0 To n - 1
' w = w + a(j, x)
' Next
' If w <> Int(n * (n * n + 1) / 2) Then GoTo tobi
' End If
' If x = 0 And y = n - 1 Then
' w = 0
' For j = 0 To n - 1
' w = w + a(j, n - 1 - j)
' Next
' If w <> Int(n * (n * n + 1) / 2) Then GoTo tobi
' End If
' If x = n - 1 And y = n - 1 Then
' w = 0
' For j = 0 To n - 1
' w = w + a(j, j)
' Next
' If w <> Int(n * (n * n + 1) / 2) Then GoTo tobi
' End If
If g + 1 < n * n Then
Call f(g + 1)
If cn = 1 Then Exit Sub
Else
Call h
If cn = 1 Then Exit Sub
End If
tobi:
Next
End Sub
尚、合計の条件の部分をすべてまとめて注釈文にするには、
ドラッグによって範囲指定をしてから、
赤い囲いをクリックします。
また、まとめて元に戻すときはその隣のアイコン（緑の囲い）をクリックします。
赤い囲いのアイコンをコメントブロック、緑囲いのアイコンを非コメントブロックといいます。
もし、そのコメントブロックと非コメントブロックがない場合には、
表示→ツールバー→ユーザー設定
の順にクリックして
コメントブロックと非コメントブロックをツールバーにドラッグします。
2つがない方は、是非ツールバーに入れておいて下さい。
をどうやったら、
と変更できるのでしょうか。
５次の例を見ればお分かりのように、
大変難しい課題です。
対角線のところで交差しているからです。
最初、私はこの難しい課題を数学の等差数列を使う、
大変複雑なコードを書きましたが、
本サイトのユーザである仮屋崎さんから、
魅力的でシンプルにコードが書けるアイデアが提供されましたので、
その考え方を次話と次次話で説明したいと思います。
次話と次次話を読んで皆さんコードを組んでみましょう。
