VB 編程 幻陣

Option Base 1

Private Sub Form_Load()

Dim a()

Me.AutoRedraw = True

n = Val(InputBox(""))

i = (n + 1) / 2

j = n

ReDim a(n, n)

For k = 1 To n * n

a(i, j) = k

If i = n And j = n Then

j = j - 1

Else

i = i + 1

j = j + 1

If i = n + 1 Then i = 1

If j = n + 1 Then j = 1

End If

If a(i, j) <> 0 Then i = i - 1: j = j - 2

Next k

For i = 1 To n

For j = 1 To n

Print Tab(j * 5 - 4); a(i, j);

Next j

Print

Next i

End Sub