幻方是一种将数字安排在正方形格子中，使每行、列和对角线上的数字和都相等的方法。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