Dim mah(4, 4) As Byte, x(16) As Byte, y(16) As Byte
Dim n As Byte, cn As Integer
Private Sub CommandButton1_Click()
n = Cells(3, 8)
cn = 0
zhy
ms (0)
Cells(4, 12) = cn
End Sub
Sub zhy()
Dim i As Byte
For i = 0 To n * n - 1
x(i) = i Mod n
y(i) = Int(i / n)
Next
End Sub
Sub ms(g As Byte)
Dim i As Byte, j As Byte, k As Byte, a As Byte, b As Byte, w As Byte
a = x(g)
b = y(g)
For i = 0 To n * n - 1
mah(b, a) = i + 1
If g > 0 Then
For j = 0 To g - 1
If mah(b, a) = mah(y(j), x(j)) Then GoTo tobi
Next
End If
If a = n - 1 Then
w = 0
For j = 0 To n - 1
w = w + mah(b, j)
Next
If w <> Int(n * (n * n + 1) / 2) Then GoTo tobi
End If
If b = n - 1 Then
w = 0
For j = 0 To n - 1
w = w + mah(j, a)
Next
If w <> Int(n * (n * n + 1) / 2) Then GoTo tobi
End If
If (a = n - 1) And (b = n - 1) Then
w = 0
For j = 0 To n - 1
w = w + mah(j, j)
Next
If w <> Int(n * (n * n + 1) / 2) Then GoTo tobi
End If
If (a = 0) And (b = n - 1) Then
w = 0
For j = 0 To n - 1
w = w + mah(j, n - 1 - j)
Next
If w <> Int(n * (n * n + 1) / 2) Then GoTo tobi
End If
If g + 1 < n * n Then
ms (g + 1)
Else
For j = 0 To n - 1
For k = 0 To n - 1
Cells(6 + j + Int(cn / 10) * (n + 1), 1 + k + (cn Mod 10) * (n + 1)) = mah(j, k)
Next
Next
cn = cn + 1
End If
tobi:
Next
End Sub
解説
ではコードを上から順に見ていきましょう。
Dim mah(4, 4) As Byte, x(16) As Byte, y(16) As Byte
Dim n As Byte, cn As Integer
この２行はグローバル変数とグローバル配列を宣言しています。
引数で渡すようにすれば、グローバルにする必要はありませんが、
コードを単純にするためにグローバル配列とグローバル変数を選んでいます。
Private Sub CommandButton1_Click()
n = Cells(3, 8)
cn = 0
zhy
ms (0)
Cells(4, 12) = cn
End Sub
ここでは、
n = Cells(3, 8)でシートのL4
からｎの値をもらっています。今の時点では、ｎは３または４です。５を入れてしまうと、処理にかなり時間がかかってしまいます。
cn = 0は魔方陣総数カウンタの初期化です。
次のzhyでは、座標の作成を行っています。
Sub zhy()
Dim i As Byte
For i = 0 To n * n - 1
x(i) = i Mod n
y(i) = Int(i / n)
Next
End Sub
一度すでに解説を行っていますが、再度ｎ＝３でトレースをしてみましょう。
ｎ＊ｎ−１は３×３−１＝８ですから、ｉは０から８まで変化します。
ｉ＝０とき、
ｘ（ｉ）＝ ｉ Mod ｎ ＝ ０ Mod ３＝０
ｙ（ｉ）＝ Int(ｉ ／ｎ)＝Int（０／３）＝０
ｉ＝１とき、
ｘ（ｉ）＝ ｉ Mod ｎ ＝ １ Mod ３＝１
ｙ（ｉ）＝ Int(ｉ ／ｎ)＝Int（１／３）＝０
ｉ＝２とき、
ｘ（ｉ）＝ ｉ Mod ｎ ＝ ２ Mod ３＝２
ｙ（ｉ）＝ Int(ｉ ／ｎ)＝Int（２／３）＝０
ｉ＝３とき、
ｘ（ｉ）＝ ｉ Mod ｎ ＝ ３ Mod ３＝０
ｙ（ｉ）＝ Int(ｉ ／ｎ)＝Int（３／３）＝１
ｉ＝４とき、
ｘ（ｉ）＝ ｉ Mod ｎ ＝ ４ Mod ３＝１
ｙ（ｉ）＝ Int(ｉ ／ｎ)＝Int（４／３）＝１
ｉ＝５とき、
ｘ（ｉ）＝ ｉ Mod ｎ ＝ ５ Mod ３＝２
ｙ（ｉ）＝ Int(ｉ ／ｎ)＝Int（５／３）＝１
ｉ＝６とき、
ｘ（ｉ）＝ ｉ Mod ｎ ＝ ６ Mod ３＝０
ｙ（ｉ）＝ Int(ｉ ／ｎ)＝Int（６／３）＝２
ｉ＝７とき、
ｘ（ｉ）＝ ｉ Mod ｎ ＝ ７ Mod ３＝１
ｙ（ｉ）＝ Int(ｉ ／ｎ)＝Int（７／３）＝２
ｉ＝８とき、
ｘ（ｉ）＝ ｉ Mod ｎ ＝ ８ Mod ３＝２
ｙ（ｉ）＝ Int(ｉ ／ｎ)＝Int（８／３）＝２
