第６講　４次魔方陣を作ってみよう。

第７話　解答２解説

Private Sub CommandButton1_Click()

　　　　Dim i As Integer, j As Integer, w As Integer

　　　　For i = 1 To 4
　　　　　　　　For j = 1 To 4
　　　　　　　　　　　　Cells(i + 4, j + 2) = 4 * (i - 1) + j
　　　　　　　　Next
　　　　Next

　　　　For i = -3 To 3 Step 2
　　　　　　　　Cells(i / 2 + 14.5, i / 2 + 4.5) = Cells(i / 2 + 6.5, i / 2 + 4.5)
　　　　　　　　Cells(-i / 2 + 14.5, i / 2 + 4.5) = Cells(-i / 2 + 6.5, i / 2 + 4.5)
　　　　　　　　For j = -3 To 3 Step 2
　　　　　　　　　　　　If (i <> j And i <> -j) Then Cells(-i / 2 + 14.5, -j / 2 + 4.5) = Cells(i / 2 + 6.5, j / 2 + 4.5)
　　　　　　　　Next
　　　　Next
　　　　　　　　・
　　　　　　　　・
　　　　　　以下略
　　　　　　　　・
　　　　　　　　・
End Sub

４次魔方陣プログラムその２実行プログラムとの違いは、
ピンク
For i = -3 To 3 Step 2
　　　　Cells(i / 2 + 14.5, i / 2 + 4.5) = Cells(i / 2 + 6.5, i / 2 + 4.5)
　　　　Cells(-i / 2 + 14.5, i / 2 + 4.5) = Cells(-i / 2 + 6.5, i / 2 + 4.5)
　　　　For j = -3 To 3 Step 2
　　　　　　　　If (i <> j And i <> -j) Then Cells(-i / 2 + 14.5, -j / 2 + 4.5) = Cells(i / 2 + 6.5, j / 2 + 4.5)
　　　　Next
Next
の記述です。このピンクでは紺色のFor文で作った自然配列

のピンクのセルを魔方陣の中心にたいして点対称移動した形で、
そして濃い緑はそのままで、
８つ下にコピーし、

を作り出しているのです。
ｉとｊに−３，−１，１，３を代入して
For i = -3 To 3 Step 2
　　　　Cells(i / 2 + 14.5, i / 2 + 4.5) = Cells(i / 2 + 6.5, i / 2 + 4.5)
　　　　Cells(-i / 2 + 14.5, i / 2 + 4.5) = Cells(-i / 2 + 6.5, i / 2 + 4.5)
　　　　For j = -3 To 3 Step 2
　　　　　　　　If (i <> j And i <> -j) Then Cells(-i / 2 + 14.5, -j / 2 + 4.5) = Cells(i / 2 + 6.5, j / 2 + 4.5)
　　　　Next
Next
の動きを追ってみましょう。次の2つの表と各式の動きを対応させて読んでください。

ｉ＝−３のとき
　Cells(13, 3) = Cells(5, 3)
　Cells(16, 3) = Cells(8, 3)

　と

　がそのまま8つ下のセルにコピーされました。

　　　ｊ＝−３のとき
　　　　ｉ＝ｊ＝−３なので条件(i <> j And i <> -j)に適していませんから、Then以降
　　　　Cells(-i / 2 + 14.5, -j / 2 + 4.5) = Cells(i / 2 + 6.5, j / 2 + 4.5)
　　　　は実行されません。
　　　ｊ＝−１のとき
　　　　ｉ＝−３，ｊ＝−１なので条件(i <> j And i <> -j)を満たします。したがって、Then以降が実行され
　　　　Cells(16, 5) = Cells(5, 4)
　　　　によって、

　　　　となります。
　　　ｊ＝１のとき、
　　　　ｉ＝−３，ｊ＝１なので、条件(i <> j And i <> -j)を満たします。したがって、Then以降が実行され
　　　　Cells(16, 4) = Cells(5, 5)
　　　　によって、

　　　　となります。

　　　ｊ＝３のとき、
　　　　ｉ＝−３，ｊ＝３でｉ＝−ｊとなり、条件(i <> j And i <> -j)を満たしません。
　　　　したがって、Then以降が実行されませんので、
　　　　

　　　のままです。

ｉ＝−１のとき
　Cells(14, 4) = Cells(6, 4)
　Cells(15, 4) = Cells(7, 4)

　と

　がそのまま8つ下のセルにコピーされました。

　　　ｊ＝−３のとき
　　　　ｉ＝-1,j＝−３なので条件(i <> j And i <> -j)を満たしますから、Then以降が実行され
　　　　Cells(15, 6) = Cells(6, 3)となり、

　　　　となります。
　　　ｊ＝−１のとき
　　　　ｉ＝−１，ｊ＝−１なので条件(i <> j And i <> -j)を満たしません。したがって、Then以降が実行されず、

　　　　は変わりません。
　　　ｊ＝１のとき、
　　　　ｉ＝−１，ｊ＝１でｉ＝−ｉなので、条件(i <> j And i <> -j)を満たしません。したがって、Then以降が実行されず、

　　　　は変わりません。

　　　ｊ＝３のとき、
　　　　ｉ＝−１，ｊ＝３で、条件(i <> j And i <> -j)を満たします。
　　　　したがって、Then以降が実行され
　　　　Cells(15, 3) = Cells(5, 6)となり、

　　　となります。
　　　

ｉ＝１のとき
　Cells(15, 5) = Cells(7, 5)
　Cells(14, 5) = Cells(6, 5)

　と

　がそのまま8つ下のセルにコピーされました。

　　　ｊ＝−３のとき
　　　　ｉ＝1,j＝−３なので条件(i <> j And i <> -j)を満たしますから、Then以降が実行され
　　　　Cells(14, 6) = Cells(7, 3)となり、

　　　　となります。
　　　ｊ＝−１のとき
　　　　ｉ＝１，ｊ＝−１でｉ＝−ｊなので条件(i <> j And i <> -j)を満たしません。したがって、Then以降が実行されず、

　　　のままです。
　　　ｊ＝１のとき、
　　　　ｉ＝１，ｊ＝１でｉ＝ｉなので、条件(i <> j And i <> -j)を満たしません。したがって、Then以降が実行されず、

　　　　は変わりません。

　　　ｊ＝３のとき、
　　　　ｉ＝１，ｊ＝３で、条件(i <> j And i <> -j)を満たします。
　　　　したがって、Then以降が実行され
　　　　Cells(14, 3) = Cells(7, 6)となり、

　　　となります。
　　　

ｉ＝３のとき
　Cells(16, 6) = Cells(8, 6)
　Cells(13, 6) = Cells(5, 6)

　と

　がそのまま8つ下のセルにコピーされました。

　　　ｊ＝−３のとき
　　　　ｉ＝３，ｊ＝−３でｉ＝−ｊなので条件(i <> j And i <> -j)を満たしません。したがって、Then以降が実行されず、

　　　のままです。

　　　ｊ＝−１のとき
　　　　ｉ＝３,j＝−１なので条件(i <> j And i <> -j)を満たしますから、Then以降が実行され
　　　　Cells(13, 5) = Cells(8, 4)となり、

　　　　となります。

　　　ｊ＝1のとき、
　　　　ｉ＝3，ｊ＝1で、条件(i <> j And i <> -j)を満たします。
　　　　したがって、Then以降が実行され
　　　　Cells(13, 4) = Cells(8, 5)となり、

　　　となります。　　　

　　　ｊ＝３のとき、
　　　　ｉ＝３，ｊ＝３でｉ＝ｉなので、条件(i <> j And i <> -j)を満たしません。したがって、Then以降が実行されず、

　　　　のままですが、以上の処理によって４次魔方陣がすでに完成しています。

第６話へ　第７講第１話へ

講義トップへ

数学研究室に戻る