蛇阵不解释,上网搜下就行了

CLS
INPUT n
h = n
l = n
DIM s(h, l)
xx = -1
yy = 1
FOR i = 1 TO h * l
  x = x + xx
  y = y + yy
  IF x < 1 OR x > h OR y < 1 OR y > l THEN SWAP xx, yy
  IF x > h THEN
     x = h
     y = y + 2
  END IF
  IF y > l THEN
     y = l
     x = x + 2
  END IF
  IF x < 1 THEN x = 1
  IF y < 1 THEN y = 1
  s(x, y) = i
NEXT
FOR i = 1 TO h
  PRINT
  FOR j = 1 TO l
    PRINT USING "###"; s(l - i + 1, l - j + 1);
NEXT j, i

这是搜的+改编，我已经会自己打了:-D