1111111
1222221
1233321
1234321
1233321
1222221
1111111

很有意思的方法，改两句
CLS
INPUT n
DIM a(n, n)
a$ = STRING$(LEN(STR$(FIX(n / 2 + .5))), "#"): x = n
FOR t = 1 TO FIX(n / 2 + .5)
  FOR i = t TO x
    a(t, i) = t
    a(i, t) = t
'>>>a(i, n + 1 - t) = t
'>>>a(n + 1 - t, i) = t
    a(t - i + x, x) = t
    a(x, t - i + x) = t
    
  NEXT i: x = x - 1
NEXT t
FOR i = 1 TO n
  FOR j = 1 TO n
    PRINT USING a$; a(i, j);
  NEXT j: PRINT
NEXT i
END

我的方法没有错，你那样改可以吗？