Question

visual foxpro 6.0 使用for语句高手进

*
* * *
* * * * *
* * * * * * *
用for语句怎么写 每颗*中间还有空格
谢谢了

Answer 1

CLEAR
FOR i=1 TO 4
FOR j=1 TO (4-i)*2
??" "
ENDFOR
FOR J=1 TO i*2-1
??"* "
ENDFOR
?
ENDFOR

Answer 2

CLOSE ALL
CLEAR ALL
CLEAR
SET TALK OFF

*** 屏显没有空格的情况：
@01, 01 SAY "下面是没有空格的图形："
FOR nLoop_01 = 1 TO 9 STEP 2 && 循环：从1到9，步长为2
@(nLoop_01+1)/2 + 02, (7 - (nLoop_01+1)/2) SAY REPLICATE("*", nLoop_01) &&& 在屏上定位显示，函数REPLICATE("*", nLoop_01)意为星号重复的次数
NEXT

*** 屏显有空格的情况：
@10, 01 SAY "下面是有空格的图形："
FOR nLoop_01 = 1 TO 9 STEP 2 && 循环：从1到9，步长为2
@(nLoop_01+1)/2 + 11, (11 - nLoop_01) SAY REPLICATE("* ", nLoop_01) &&& 在屏上定位显示，函数REPLICATE("* ", nLoop_01)意为星号加空格重复的次数
NEXT

SET TALK ON

RETURN