Question

vfp问题：

请帮我把这个程序改成右上三角的
程序如下：
SET TALK OFF
CLEAR
?" *"
FOR I=1 TO 9 STEP 1
?? STR(I,5)
ENDFOR
FOR I=1 TO 9 STEP 1
? STR(I,5)
FOR J=1 TO I STEP 1
P=I*J
?? STR(P,5)
ENDFOR
ENDFOR
SET TALK ON
RETURN
以上程序的意思是编写一个输出九九乘法的程序，显示结果是左下三角。请帮我给成右上三角，谢谢。。。
如果可以再追加50

Answer 1

请测试！
SET TALK OFF
CLEAR
?" *"
FOR I=1 TO 9 STEP 1
?? STR(I,5)
ENDFOR
FOR I=1 TO 9 STEP 1
? STR(I,5)
FOR J=1 TO 9 STEP 1
IF j<i
??SPACE(5)
else
P=I*J
?? STR(P,5)
endif
ENDFOR
ENDFOR
SET TALK ON
RETURN

Answer 2

clear
for i=1 to 9
for j=1 to 9
if j<i
??space(7)
else
??str(j,1)+"*"+str(i,1)+"="+;
iif(left(str(i*j,2),1)=" ",str(i*j,1)+" ",str(i*j,2))+" "
endif
endfor
?
endfor