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

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

上面是居中显示

第1行,1个

第2行,2个

第3行,3个

第4行,4个

用2个循环嵌套,外面的循环用来变换行数, 里面的循环用来显示字符

clear

for i=1 to 4

for j=1 to i

??'*'

endfor

?&&这个用来另起一行

endfor