这也太简单了！
CLS
FOR i=-4 TO 4
    FOR j=1 TO 5-ABS(i)
        PRINT "*";
    NEXT j
    PRINT
NEXT i
END

如果扩展成N行（N MOD 2=1）可以这样做。
CLS
INPUT n
t=n/2-.5
FOR i=-t TO t
    FOR j=1 TO (t+1)-ABS(i)
        PRINT "*";
    NEXT j
    PRINT
NEXT i
END
运行示例：
？ 7
*
**
***
****
***
**
*