一道foxpro的题目！请各位帮忙！！谢谢！！

[xjjw3096]

要求用多重循环语句实现！
A
BBB
CCCCC
DDDDDDD
谢谢！！

[lz_zxf]

for i=1 to 4
?? space(4-i)
for j=1 to i*2-1
??chr(asc('A')+i-1)
Endfor
? ''
endfor

[fj_jiangqi]

n=4
for i=1 to n
g=''
for j=1 to i*2-1
g=g+chr(asc('A')+i-1)
next
? padc(g,n*2+1)
next

[rida]

writetext(4)

function writetext
para layer
i=0
cSpace=''
tStr =''
for i=1 to layer
cSpace=space(layer-i)
for j=1 to (i*2-1)
tStr=tStr+chr(64+i)
endfor
?cSpace+tStr
tStr=''
endfor

[fj_jiangqi]

还可以这样
n=4
for i=1 to n
? space(n-i)+repl(chr(64+i),i*2-1)
next

[xiaoxia2003]

clear
c='A'
for i=1 to 4
? space(4-i)
for j=1 to 2*i-1
?? c
endfor
c=chr(asc(c)+1)
endfor
小妹刚刚学，只是模仿上面的而已:)

[fj_jiangqi]

来这近一个月，终于可以看到有个象MM的名字，难得！！！
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

[noproblem12]

楼上的签名好凄凉的说

遭受过打击么？

[fj_jiangqi]

习惯了，如果现在离去也不会影响世上的任何人了。
--------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊