CLS
INPUT n
FOR i = 1 TO n
FOR j = 1 TO n
IF i = j THEN PRINT j; : GOTO 10
IF i > j AND (i - j) MOD 2 = 0 THEN PRINT j; : GOTO 10
IF j > i AND (j - i) MOD 2 = 0 THEN PRINT i; : GOTO 10
IF i > j AND (i - j) MOD 2 = 1 THEN PRINT n + 1 - i; : GOTO 10
IF j > i AND (j - i) MOD 1 = 0 THEN PRINT n + 1 - j; : GOTO 10
10 NEXT
PRINT
NEXT
END

初学者

cls
input n
dim a(n,n)
for s=n-1 to 0 step -1
  k=1
  if s mod 2=0 then 
    for i=1 to n-s
      a(i,i+s)=k
      k=k+1
     next i
   else
     for i=n-s to 1 step -1
       a(i,i+s)=k
       k=k+1
     next i
   end if
next s
for s=1 to n-1
  k=1
  if s mod 2=0 then
    for i=s+1 to n
      a(i,i-s)=k
      k=k+1
    next i
  else
   for i=n to s+1 step -1
     a(i,i-s)=k
     k=k+1
    next i
  end if
next s
for i=1 to n
  for j=1 to n
    print using"###";a(i,j);
   next j
   print
next i
end
回答有分吗？