Question

VF问题……图形输出的

如何打印输出个风车？
风车的大小可以变化…颜色也可以变化……是受人为输入控制的那种！谢谢您

Answer 1

CLEAR
LOCAL i
FOR i = 1 TO 6
? REPLICATE("●", i-1) + SPACE((7-i)*2) + REPLICATE("●", 7-i) + SPACE(i*2)
ENDFOR
? REPLICATE("●", 13)
FOR i = 1 TO 6
? SPACE((7-i)*2) + REPLICATE("●", i) + SPACE(i*2) + REPLICATE("●", 6-i)
ENDFOR

追问

被我改了一下，哪里错了
text
可改变大小的风车
endtex
CLEAR
input"你渴望的风车的边长" to n
LOCAL i
FOR i = 1 TO n
? REPLICATE("●", i-1) + SPACE((n+1-i)*2) + REPLICATE("●", n+1-i) + SPACE(i*2)
ENDFOR
? REPLICATE("●", 2n+1)
FOR i = 1 TO n
? SPACE((n+1-i)*2) + REPLICATE("●", i) + SPACE(i*2) + REPLICATE("●", n-i)
ENDFOR
retu

追答

text
可改变大小的风车
endtex
CLEAR
input"你渴望的风车的边长" to n
LOCAL i
FOR i = 1 TO n
? REPLICATE("●", i-1) + SPACE((n+1-i)*2) + REPLICATE("●", n+1-i) + SPACE(i*2)
ENDFOR
? REPLICATE("●", n*2+1)
FOR i = 1 TO n
? SPACE((n+1-i)*2) + REPLICATE("●", i) + SPACE(i*2) + REPLICATE("●", n-i)
ENDFOR
retu

追问

试了一下，说是少函数名缺少

追答

我试没问题哦。这样吧：
TEXT
可改变大小的风车
ENDTEXT
CLEAR
INPUT "你渴望的风车的边长" TO n
LOCAL i
FOR i = 1 TO n
? REPL("●", i-1) + SPAC((n+1-i)*2) + REPL("●", n+1-i) + SPAC(i*2)
ENDFOR
? REPL("●", n*2+1)
FOR i = 1 TO n
? SPAC((n+1-i)*2) + REPL("●", i) + SPAC(i*2) + REPL("●", n-i)
ENDFOR
RETU

Answer 2

是什么样子的