bl='ABCDEFG'aa=1bb=1do while aa<=7 ?iif(aa<5,space(20-aa),space(20-aa+(aa-4)*2))+left(bl,bb) if aa<4 bb=bb+2 else bb=bb-2 endif aa=aa+1enddo
这样也可以的