clear
c="陈浩是个大二叉"
for i=1 to len(c)/2
?space(20-i)
for j=1 to i
??subs(c,2*i-1,2)
=inkey(0.5)
end for ------------end和for不能分开
endfor
c="陈浩是个大二叉"
for i=1 to len(c)/2
?space(i+14)
for j=1 to 8-i
??subs(c,2*i-1,2)
=inkey(0.5)
end for ------------end和for不能分开
endfor