请教：用VFP编写“用你的姓打印出5行的三角形”

mm=" "
@1,2 say "输入你的姓" get mm
read
clear
for i=1 to 5
mm1=""
for j=1 to 2*i-1
mm1=mm1+mm
endf
? mm1
endf
wait
retu

for a=1 to 7 step 2
?space(7-a)+repl('张',a)
endfor

clear
for i=0 to 4
?replicate('王',2*i+1)
endfor

程序如下，希望对你有所帮助：
set talk off
clear
? "欢迎使用本程序，打印姓氏组成的五行三角形"
accept "请输入任意一个姓氏：" to m
for h = 1 to 5
for a = 1 to 4*(h-1)+1 step 2
@ h+5,a say alltrim(m)
endfor
endfor
?
?
set talk on
return