（1）这不就是以减法代替除法吗？谁都会。
不过在被除数很大，除数很小的时候速度就很慢。
（2）有本事不直接打印。
CLS
FOR i=-2 TO 2
    s=3-ABS(i)
    FOR j=1 TO s*2-1:PRINT "*";:NEXT j:PRINT
NEXT i
END

(2).我可以做到人性化,很简单:
cls
input n     'n代表总行数
m=n\2
for i=-m to m:?string$(n-abs(i),*):next i
end

楼上的，你的程序出错了吧！
看我的：
CLS
INPUT N
M=N\2
FOR I=-M TO M
 PRINT STRING(N-ABS(I)*2,"*")
NEXT I
END
你的每行个数弄错了!

针对1楼的（2）有本事不直接打印。
就解决一下调用int 0x10 的0x0e功能
'$include:'qb.bi'
dim shared reg as regtype
sub putchar(i as integer)
    reg1.ax=&H0e*256+i
    interruptx &h10,reg,reg
end sub
putchar(asc("*"))
putchar(10)
putchar(13)
for i=1 to 3
putchar(asc("*"))
next
putchar(10)
putchar(13)
for i=1 to 5
putchar(asc("*"))
next
putchar(10)
putchar(13)
for i=1 to 3
putchar(asc("*"))
next
putchar(10)
putchar(13)
putchar(asc("*"))
putchar(10)
putchar(13)
end

启动的时候用qb/l参数
貌似n年以前qb45发的帖子教的