Question

vfp 中，打印图形程序：共九行，第一行一个*，第二行三个***，后面依次为5,7,9,7,5,3,1个*。

Answer 1

SET TALK OFF
CLEAR
FOR i=1 TO 9
s=''
IF i<=5
FOR j=1 TO 2*i-1
s=s+"*"
ENDFOR
ELSE
FOR j=19-2*i TO 1 STEP -1
s=s+"*"
ENDFOR
ENDIF
?s
ENDFOR
上面的程序是全靠左边显示
SET TALK OFF
CLEAR
FOR i=1 TO 9
s=''
IF i<=5
FOR j=1 TO 2*i-1
s=s+"*"
ENDFOR
s=SPACE(5-i)+s
ELSE
FOR j=19-2*i TO 1 STEP -1
s=s+"*"
ENDFOR
s=SPACE(i-5)+s
ENDIF
?s
ENDFOR
上面是居中显示

Answer 2

clear
for i=-4 to 4
??space(abs(i))
for j=1 to 9-abs(i)*2
??"*"
endfor
?
endfor

Answer 3

正确！我已经上机试过了。

clear
for i=-4 to 4
?space(20+abs(i))
for j=1 to 9-2*abs(i)
??"*"
endfor
endfor
return

Answer 4

不明白你说的是什么意思