CLS
DIM MAGIC(100, 100)
PRINT "N="
INPUT N
FOR I = 1 TO N
  FOR J = 1 TO N
    MAGIC(I, J) = 0
  NEXT J
NEXT I
K = 1: I = 1: J = N \ 2 + 1: MAGIC(I, J) = K
DO
K = K + 1
H = I - 1: L = J - 1
IF H = 0 THEN H = N
IF L = 0 THEN L = N
IF MAGIC(H, L) = 0 THEN MAGIC(H, L) = K: I = H: J = L ELSE MAGIC(I + 1, J) = K: I = I + 1
LOOP UNTIL K >= N * N
PRINT "MAGIC:"
FOR I = 1 TO N
  FOR J = 1 TO N
    PRINT MAGIC(I, J);
  NEXT J
  PRINT
NEXT I

可能打印有点不大好看，但是这不能怪我，因为现在学的是PASCAL，帮你改写过来的，很多格式怎么用都忘的差不多了，呵呵

LS只要把这句
[quote]PRINT MAGIC(I, J);[/quote]
改成
PRINT USING"####";MAGIC(I, J);
就行了。

谢谢LS呵，帮我温故了一下QB！
不知LS大虾的尊姓大名？