我只跟菱纸学到了奇数方阵的计算,偶数方阵没弄懂
还是请看旧贴

这提已经超过了你的题目！！你只要输入3就可以
看到你的九宫图了！！
只要你输入是奇！！会有更大的惊喜


CLS
DO
   INPUT n
LOOP UNTIL n MOD 2 = 1
DIM a(1 TO n, 1 TO n) AS INTEGER
a(1, n \ 2 + 1) = 1
x = 1
y = n \ 2 + 1
FOR i = 2 TO n * n
  IF x - 1 = 0 THEN x1 = n ELSE x1 = x - 1
  IF y - 1 = 0 THEN y1 = n ELSE y1 = y - 1
  IF a(x1, y1) = 0 THEN
    a(x1, y1) = i
  ELSE
   IF x + 1 > n THEN x1 = 1: y1 = y ELSE x1 = x + 1: y1 = y
   a(x1, y1) = i
  END IF
  x = x1
  y = y1
NEXT i
  FOR i = 1 TO n
    FOR j = 1 TO n
     PRINT TAB(j * 6);
     PRINT a(i, j);
   NEXT j
  PRINT
NEXT i
END