clear
for i=1 to 5
?space(5-i)
r=i
for j=1 to 2*i-1
k=j
if k>i
r=r-1
??chr(64+r)
else
??chr(64+k)
endif
endfor
endfor
a="ABCDE"
for i =1 to 5
b=""
FOR j=i-1 TO 1 STEP -1 '反着取字母
b=b+SUBSTR(a,j,1)
endfor
? substr(a,1,i)+b
endfor
这个自己研究吧，也不好说清^_^
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024