【求助】vfp改错题

Question

完善下列程序（编程环境：vfp6.0）
1. 程序的功能是：接受一位整数J，在屏幕上显示一个由1到该整数组成的菱形，
如：

1
2 2 2
3 3 3 3 3
2 2 2
1
请改正程序中的错误，并编制子程序SUB1.PRG
程序如下：
Set talk off
Clear
do while .t.
Input”请输入一位整数，0表示退出：”to j
do case
case j>=10.or.j<0
@0,20 say “请输入10以下的正整数!”
loop
case j=0
Exit
endcase
clear
@1,20 say j
i=2
do while i>=j
do sub1 with i
i=i+1
enddo
i=j
do while i>=1
do sub1 with i
i=i-1
enddo
enddo
set talk on
return
1
222
33333
222
1
图形是这种菱形

Answer 1

do while i>=j
do sub1 with i
改为:
do while i<=j
do sub1 with i-1

sub1内容:
PARAMETERS x
?CHR(13) &&换行
FOR i=1 to x
??ALLTRIM(STR(x)) &&转成字符输出
endfor