（紺の数字がgに対応しています。）
の色の付いている部分で検査すべきです。
色の種類が分けてあるのは、
12,15では対角線合計検査までしなければならないからです。
では、色の付いている段階で検査して
無駄な場合の検索はしないように工夫しましょう。
ノーヒントでは難しいですから、
Sub f(g As Integer)
Dim i, j, k, h, w, x, y As Integer 'hhは不要なので削除
y = Int(g / n)
x = g Mod n
For i = 0 To n * n - 1
If g = 0 Then mah(y, x) = i + 1
h = 1
If g > 0 Then
For j = 0 To g - 1
If mah(Int(j / n), j Mod n) = i + 1 Then
h = 0
Exit For
End If
Next
If h = 1 Then mah(y, x) = i + 1
End If
ここに付け加えコードを入れる。
付け加えコードではxとyが活躍しますし、
w =0 とh = 0 という命令文が
全部で４回出てきます。また、
if h == 1 Then
if＊Then
数行
End If
End If
も３回現れます。
w = 0 とh = 0 という命令文は３回にそれぞれ１回ずつ登場します。
If h = 1 Then
If g + 1 < n * n Then
f (g + 1)
Else
cn += 1
For j = 0 To n - 1
For k = 0 To n - 1
’二桁への対応
If mah(j, k) < 10 Then Console.Write(" {0:d} ",
mah(j, k))
If mah(j, k) >= 10 Then Console.Write("{0:d} ",
mah(j, k))
Next
Console.WriteLine()
Next
Console.WriteLine()
End If
End If
Next
End Sub
という骨格を示しておきます。
xとyが活躍する理由は
