Question

求教VFP 打印图形问题

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
高手怎么能把这个程序变成DO WHILE ENDDO形式的呢 帮帮忙行么 谢谢求教
还有 到底哪个是管打印行数 哪个是管打印*个数 能不能讲一下 谢谢 有追加
这两位高手的都不对呀 第一个 死循环 第二个 正好打反了 本来打印菱形 结果 打成了漏斗……

Answer 1

易如反掌啊：
SET TALK OFF
CLEAR
i=1 &&&&&&&&&&&&&&
DO WHILE i<=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
i=i+1 &&&&&&&&&&&&&&
enddo &&&&&&&&&&&&&&

其中 &&&&&&&&&&&&&&的语句就是改动过的。
原理是这样：
for endfor 这样的循环语句不仅直接赋予变量i的初始值，而且每循环一次变量会自动加1，而do while ...enddo 不仅需要设变量初始值（引起进入循环的条件），而且每一循环完成后不会引起变量自动加1，要在循环体内增加变量赋值语句i=i+1，达到每循环一次变量加1的目的，这样就不会造成死循环。
其实这个考点就是考你对两种循环方式的理解和驾驭能力。
仔细读一下for i=1 to 9 和do while i<=9的区别，
我省略了exit，即do while ...enddo当中的跳出语句，在你这个程序中可以不用。

Answer 2

SET TALK OFF
CLEAR
i=1
*控制打印行数
do while i<=9

s=''
IF i<=5
j=1
*控制打印一行的个数
do while j<=2*i-1

s=s+"*"
j=j+1
ENDdO
s=SPACE(5-i)+s
ELSE
j=19-2*i
*控制打印符号的个数
do while j>=1

s=s+"*"
j=j-1

ENDdO
s=SPACE(i-5)+s
ENDIF
?s
i=i+1
ENDdO

Answer 3

试试下面的：

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