??space(7-(i*2-1)) &&左侧空做谈格
for j=1 to 2*i-1
?? "乱胡清*"+" " && "*"+" "
endfor
? && 换行哗前
endfor
cleardime a(3,5)
for i=1 to 3
?space(40-i)
for j=1 to 2*i-1
if j=i or j=2*i-1
a(i,j)="穗茄码A"纳答
endif
if j<猜哪=i
a(i,j)=chr(64+j)
a(i,2*i-j)=a(i,j)
endif
??a(i,j)
endfor
endfor
cancel
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)