1 3 6 10 15
2 5 9 14
4 8 13 
7 12
11
原程序：
input n
m=1
for i=1 to n
k=m
for j=1 to n+1-i
?k
k=k+j
next j
m=m+i
?
next i
end

n = 18'input n 你要的最大数字,随你

DIM SHARED k(n, n) AS INTEGER'座位
x = 1: y = 1:
p = 1'序列 1-->N
CLS
'排排座

DO
  x1 = 1
  y1 = y
  DO
    'PRINT x1, y1, p
    k(x1, y1) = p: p = p + 1
    IF p > n THEN GOTO for1
    x1 = x1 + 1: y1 = y1 - 1
    IF x1 > x THEN EXIT DO
  LOOP
  x = x + 1
  y = y + 1
LOOP
for1:
'PRINT x, y

'显示出去


FOR y1 = 1 TO y
  FOR x1 = 1 TO x
    
    IF x1 <> x THEN
      IF k(x1, y1) <> 0 THEN PRINT k(x1, y1);  ELSE PRINT ;
    ELSE
      IF k(x1, y1) <> 0 THEN PRINT k(x1, y1) ELSE PRINT
    END IF
    
    
  NEXT
NEXT
end1:
END

是这个样子：
 1  3  6  10  15
 2  5  9  14
 4  8  13
 7  12  18
 11  17
 16