幻方用qbasic编

2.看过电视＜＜射雕英雄传>>的都知道，有这么一个幻方（如下）
2 9 4
7 5 3
6 1 8
它无论横着加，竖着加还是斜着加，总是等于15，聪明的英姑花了好几年的时间才得到这一结论，却没有想到桃花岛的黄老邪早就将它编成口诀“二四为肩，五居中央，填九履一“并创造出”桃花阵”。
现在开始看看它是如何构造的：
所谓魔方阵是指这样的的方阵：
它的每一行、每一列和对角线之和均相等。
输入n，要求打印由自然数1到n^2的自然数构成的魔方阵（n为奇数）。
例如，当n=3时，魔方阵为：
8 1 6
3 5 7
4 9 2

CLS
INPUT N
DIM A(N,N)
I=1:J=N\2
A(I,J)=1
FOR K=2 TO N*N
I1=I-1
IF I1=0 THEN I1=N
J1=J+1
IF J1>N THEN J1=1
IF A(I1,J1)<>0 THEN
I1=I+1
J1=J
END IF
I=I1:J=J1
A(I1,J1)=K
NEXT K
自己研究
我编的

CLS
INPUT N
DIM A(N,N)
I=1:J=N\2
A(I,J)=1
FOR K=2 TO N*N
I1=I-1
IF I1=0 THEN I1=N
J1=J+1
IF J1>N THEN J1=1
IF A(I1,J1)<>0 THEN
I1=I+1
J1=J
END IF
I=I1:J=J1
A(I1,J1)=K
NEXT K

手算就可以！！！
方法：
（1）九子排列 （2）上下对易
1 9
4 2 4 2
7 5 3 7 5 3
8 6 8 6
9 1
（3）左右相更 （4）四维挺出
9 2 9 4