是不是需要拆成两半来做？请指教...............

CLS
DO
  INPUT X
LOOP UNTIL X MOD 2 = 1
DIM A(X, X)
K = (X * X + 1) \ 2
FOR S = 1 TO X - 1
  IF S MOD 2 = 1 THEN
    FOR I = 1 TO S
      A(I, S + 1 - I) = K
      K = K - 1
    NEXT I
  ELSE
    FOR I = S TO 1 STEP -1
      A(I, S + 1 - I) = K
      K = K - 1
    NEXT I
  END IF
NEXT S
K = (X + 1) \ 2
FOR I = 1 TO X
  IF I < (X + 1) \ 2 THEN A(X + 1 - I, I) = K: K = K - 1
  IF I >= (X + 1) \ 2 THEN A(X + 1 - I, I) = K: K = K + 1
NEXT I
M = X + 2: N = X + 2
FOR S = X - 1 TO 1 STEP -1
  IF S MOD 2 = 0 THEN
    FOR I = X TO X + 1 - S STEP -1
      A(I, M - I) = K
      K = K + 1
    NEXT I
    M = M + 2
  ELSE
    FOR I = X + 1 - S TO X
      A(I, N + 1 - I) = K
      K = K + 1
    NEXT I
    N = N + 2
  END IF
NEXT S
FOR I = 1 TO X
  FOR J = 1 TO X
    PRINT USING "###"; A(I, J);
   NEXT J
   PRINT
NEXT I
END
偶数好像不可以哦！