Excel で魔法陣を作る

VBA も魔法陣から始めたいと思います

実行画面は，このような感じになります

セル A1 に魔法陣の次数が入り，その横にコマンドボタンを一つ配置します
このボタンをクリックすると，その次数の魔法陣ができ上がります

コマンドボタンの Click イベントに次のコードを記入します
アルゴリズムとコードの内容は，Ｃ言語・Python で用いたものとまったく同じものです

Private Sub CommandButton1_Click()

　　("A2:z26").ClearContents

　　Dim d As Integer
　　Dim i As Integer, j As Integer
　　Dim num As Integer

　　d = Cells(1, 1)
　　i = d + 1
　　j = (d + 1) / 2

　　For num = 1 To d * d
　　　　Cells(i, j) = num
　　　　If Cells((i - 1) Mod d + 2, j Mod d + 1).Value = "" Then
　　　　　　i = (i - 1) Mod d + 2
　　　　　　j = j Mod d + 1
　　　　Else
　　　　　　i = i - 1
　　　　End If
　　Next num

End Sub

配列は使わず，直接セルに値を書き込みました
basic は初めて覚えた言語ですから，気軽に使えます
VBAでは，変数宣言は不要ですが，敢えて整数型を宣言してみました
VBA は，オブジェクト指向を学ぶという点でも，気楽に始められる言語のような気がします