试试下面的：clearfor i=-3 to 3 ??space(4-abs(i)) for j=2*abs(i)+1 to 1 step -1 ??"*" endfor ?endfor
clearfor i=2 to 4 ?space(10+i) for j=1 to 2*i-1 ??"*" endfor ?endforreturn
