CLS
FOR i=-3 TO 3
    PRINT TAB(1+ABS(i));
    FOR j=1 TO (4-ABS(i))*2-1
        PRINT "*";
    NEXT j
    PRINT
NEXT i
END
加分！！！！！！

这道题可以扩展为N行的图形（N为奇数）：
CLS
INPUT n
t=(n+1)/2
FOR i=-t TO t
    PRINT TAB(1+ABS(i));
    FOR j=1 TO (t+1-ABS(i))*2-1
        PRINT "*";
    NEXT j
    PRINT
NEXT i
END