Question

VFP编程输出如下图形: 　 9 898 78987 6789876

Answer 1

我在自己的电脑上试过了，成立，下面的显示是呈现三角形的，如果你要单排显示，那么把第五行的“？”去掉就行了
set talk off
clear
_screen.fontsize=20
for n=1 to 4
?
??space(13-2*n)
for m= n to 1 step -1
??str(10-m,2)
endfor
if n=1
loop
endif
for i=1 to n-1
p=9-i
?? str(p,2)
endfor
endfor
set talk on

Answer 2

1

追问

?

追答

* VFP编程输出如下图形: 　 9 898 78987 6789876
*SET TALK OFF
CLEAR
FOR _i=9 TO 1 SKIP -1
?_i
FOR _j=i TO 9
??_j
ENDFOR
FOR _j=9 TO i SKIP -1
??_j
ENDFOR
ENDFOR
SET TALK ON
RETURN
根据思路修改吧?!