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

奇數階幻方的構造是所有幻方中最簡單的，可以按照如下規則來實現：
（1）將1放在第一行中間一列；（如圖2）
（2）從2開始直到n*n為止，各數按下列規則存放：假設當前要存放的數為k,則k存放在（k-1）數的右上方并按照規則：
①若（k-1）放在第1行且不是最后一列，則將k存放在n行，（k-1）所在列右側；（如圖3）
②若（k-1）放在第n列且不是第一行，則將k存放在第1列，（k-1）的上1行；（如圖4）
③若（k-1）即不在第1行也不在最后1列：
若（k-1）右上方有數，則將k放在（k-1）的下1行的同一列。（如圖5）
若（k-1）右上方沒有數，則將k放在（k-1）的右上方；（如圖6）
④若（k-1）在第1行第n列，將k填在（k-1）的正下方（如圖7）
1．用如圖8的程序生成5階幻方后，List1中的第一行顯示的是

1724 l 8 15

1724 l 8 15

。
2.30階以內的幻方程序如圖，代碼如下，請完成代碼填空：

①（n+1）/2或n\2+1
②i=i-1
③a（（i-2）*n+j+1）=0
④3-n

①（n+1）/2或n\2+1
②i=i-1
③a（（i-2）*n+j+1）=0
④3-n

PrivateSubCommand1_Click（　　）
DimiAsInteger,jAsInteger,nAsInteger'i表示行，j表示列
Dima（1To1000）AsInteger,kAsInteger'數組a依次保存幻方中的數DimsAsString
n=Val（Text1．Text）
j=①
a（j）=1
i=1
Fork=2Ton*n
Ifi=1Andj＜＞nThen
i=n：j=j+1
a（（i-1）*n+j）=k
ElseIfj=nAndi＜＞1Then
②j=1
a（（i-1）*n+j）=k
ElseIfi=1Andj=nThen
i=i+1
a（（i-1）*n+j）=k
ElseIfi＜＞1Andj＜＞nThen
If
③Then
i=i-1：j=j+1
a（（i-1）*n+j）=k
Else
i=i+1
a（（i-1）*n+j）=k
EndIf
EndIfNextk
List1．Clear
Fori=1Ton
s=″″
Forj=1Ton
s=s+format（a（（i-1）*n+j））
Nextj
List1．AddItemsNexti
EndSub
Functionformat（xAsInteger）AsString'將數字字符串格式化為4個字符長度DimnAsInteger,iAsInteger
format=Str（x）
n=Len（format）
Fori=1To④
④format=““+formatNexti
EndFunction