先告诉我，你那个18怎么来的？

然后我告诉你最简单的程序：
？tab（10）；11
？tab（10）；7；tab（15）；12
？tab（10）；4；tab（15）；18；tab（20）；13
？tab（10）；2；tab（15）；5；tab（20）；9；tab（25）；14
？tab（10）；1；tab（15）；3；tab（20）；6；tab（25）；10；tab（30）；15
end

18应该变成8才对。
程序：
CLS
DIM a(5 , 5)
FOR i = 1 TO 5
    x = 6 - i : y = 1 : s = s + 1 : a(x , y) = s
    FOR j = 1 TO i - 1
        x = x + 1 : y = y + 1
    NEXT j
NEXT i
FOR i = 1 TO 5 : FOR j = 1 TO i
    PRINT USING"###"; a(i , j);
NEXT j : PRINT : NEXT i : END