幻方是一種將數(shù)字安排在正方形格子中，使每行、列和對角線上的數(shù)字和都相等的方法。n階幻方是由1～n²之間的自然數(shù)組成的一個n階方陣，其各行、各列及對角線所含的數(shù)字之和均相等。例如3階幻方（如圖1），幻和為15。

奇數(shù)階幻方的構(gòu)造是所有幻方中最簡單的，可以按照如下規(guī)則來實現(xiàn)：
（1）將1放在第一行中間一列；（如圖2）
（2）從2開始直到n*n為止，各數(shù)按下列規(guī)則存放：
假設(shè)當前要存放的數(shù)為k,則k存放在（k-1）數(shù)的右上方并按照規(guī)則：
①若（k-1）放在第1行且不是最后一列，則將k存放在n行，（k-1）所在列右側(cè)；（如圖3）
②若（k-1）放在第n列且不是第一行，則將k存放在第1列，（k-1）的上1行；（如圖4）
③若（k-1）即不在第1行也不在最后1列：
若（k-1）右上方有數(shù)，則將k放在（k-1）的下1行的同一列。（如圖5）
若（k-1）右上方?jīng)]有數(shù)，則將k放在（k-1）的右上方；（如圖6）
④若（k-1）在第1行第n列，將k填在（k-1）的正T方（如圖7）

（1）用如圖的程序生成5階幻方后，Listl中的第一行顯示的是

17 24 1 8 5

17 24 1 8 5

。
（2）30階以內(nèi)的幻方程序如圖，代碼如下，請完成代碼填空：

Private Sub Command1_Click（　　）
Dim i As Integer,j As Integer,n As Integer′i表示行，j表示列
Dima（1  To   1000）As Integer,k As Integer′數(shù)組a依次保存幻方中的數(shù)
Dim    s  As   String
n=Val（Textl.Text）
j=①

n\2+1

n\2+1

；  a（j）=1
For k=2 To n*n
Ifi=1 And j＜＞n Then
i=n：j=j+1
a（（i-1）*n+j）=k
Elself j=n And i＜＞1 Then
②

i=i-1

i=i-1

：j=1
a（（i-1）*n+j）=k
Elself i 1 And j=n Then
i=i+1
（i-1）*n+j）=k
Elself i o 1 And j＜＞n Then
If ③

a（（i-2）*n+j+1）=0

a（（i-2）*n+j+1）=0

 Then
i=i-1：j=j+1
Else
i=i+1
a（（i-1）*n+j）=k
End If
lext k
List.Clear
For i=1 To n
s=″″
s=s+format（a（（i-1）*n+j））
Next j
List1 AddItem s
Next  i
End sub
Function format（ x As Integer） As String將數(shù)字字符串格式化為3個字符長度
Dim n As Integer,i As Integer
format=Str（x
n=Len （format）
For  i=To ④

3-n

3-n

format=″″+format
Next i
End Function