第６講 ４次魔方陣を作ってみよう。
第１話 交換プログラム
基礎の学習の途中ですが、
今までの学習ですでに４次魔方陣を作成することができます。
魔方陣とは、
| ８ | １ | ６ |
| ３ | ５ | ７ |
| ４ | ９ | ２ |
のようにすべての縦、すべての横、2つの対角線の合計が
すべて同じになるもををいいます。
上の例の場合すべて合計は１５です。
そして、一辺の長さが３のとき３次魔方陣といいます。
４次魔方陣を作成する方法は、
非常に簡単です。
| 1 | 2 | 3 | 4 |
| 5 | 6 | 7 | 8 |
| 9 | 10 | 11 | 12 |
| 13 | 14 | 15 | 16 |
１から１６まで普通に並べておいて、ピンクの部分を点対称移動すればいいのです。
| 16 | 2 | 3 | 13 |
| 5 | 11 | 10 | 8 |
| 9 | 7 | 6 | 12 |
| 4 | 14 | 15 | 1 |
自然配列から魔方陣へ（偶数次魔方陣の一般的作成方法）第１弾その１参照
上の１から１６まで並べるプログラムは、
Ｆｏｒ文を使えばできます。
考えて自分でマクロを組んでみましょう。
自然配列解答
問題は、１と１６、６と１１等をどのように交換するかです。
サンプル９を開いてみましょう。
これは変数ａとｂの値をＥｘｃｅｌのシート上に
ａ＝８
ｂ＝３
と表示させるプログラムです。
このプログラムは、
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, w As Integer
a = 8
b = 3
Cells(5, 1) = "ａ＝"
Cells(5, 2) = a
Cells(6, 1) = "ｂ＝"
Cells(6, 2) = b
End Sub
です。
そこで皆さんにプログラムを改良して、
ａとｂの値を交換して、次のように表示させるプログラムを考えて欲しいのです。
ａ＝８
ｂ＝３
ａとｂの交換後
ａ＝３
ｂ＝８
次のようなプログラムはどうでしょうか。
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, w As Integer
a = 8
b = 3
Cells(5, 1) = "ａ＝"
Cells(5, 2) = a
Cells(6, 1) = "ｂ＝"
Cells(6, 2) = b
Cells(7, 1) = "ａとｂの交換後"
a = b
b = a
Cells(8, 1) = "ａ＝"
Cells(8, 2) = a
Cells(9, 1) = "ｂ＝"
Cells(9, 2) = b
End Sub
これで一見できそうですが、実行結果は次のようになってしまいます。
ａ＝８
ｂ＝３
ａとｂの交換後
ａ＝３
ｂ＝３
どうしてでしょうか。
はじめ、
a = 8
b = 3
の操作によって、
となっています。
次に
a = b
の操作をすると、a = bは実際にはa ← bという操作ですから、
３がａの箱に入ります。
箱には常に値は１個しか入りませんから、
８は追い出されて、
となってしまいます。この瞬間８は消えてしまうのです。
ですから、次の操作b = aは意味がなく、
が繰り返されるだけです。
最初の値８を保存するためには実はもう一つ箱（変数）を用意しておく必要があるのです。
その変数を例えばｗとしておいて、
ｗ＝ａ
ａ＝ｂ
ｂ＝ｗ
としておけば、うまくいきます。
ｗの箱は値８を保存しておくための箱なのです。
手順を図にすると、
ａ＝８
ｂ＝３
ｗ＝ａ
ａ＝ｂ
ｂ＝ｗ
となって、交換がうまくいきます。
交換プログラム解答
では皆さん自然配列解答を改良して魔方陣プログラムを作りましょう。
