如何在小基本中製作無限循環屏幕保護程序？

Question

您好我正在做一個屏幕保護程序，我需要知道什麼是錯我的代碼..

GraphicsWindow.title="Screen Saver" 
GraphicsWindow.Width=500 
GraphicsWindow.Height=500 

For i=1 To 
Colour = GraphicsWindow.GetRandomColor() 
GraphicsWindow.BrushColor=Colour 
XCoord = Math.GetRandomNumber(1200) 
YCoord = Math.GetRandomNumber(1200) 
width=math.GetRandomNumber (300) 
GraphicsWindow.Fillellipse(XCoord,YCoord,width,width) 
Program.Delay(200) 

EndFor 
ContinueForEver = "Yes" 
While ContinueForEver = "Yes" 
EndWhile 

我應該使用[對於i =？ ？]做出一個無限循環，我應該使用while while end for the continue thing。所以基本上即時通訊應該讓這永久產生界的屏幕保護程序.. 感謝

*謝謝你對我的幫助

Answer 1

像這樣的事情？

GraphicsWindow.title="Screen Saver" 
GraphicsWindow.Width=500 
GraphicsWindow.Height=500 

While 1 = 1 
    Colour = GraphicsWindow.GetRandomColor() 
GraphicsWindow.BrushColor=Colour 
XCoord = Math.GetRandomNumber(1200) 
YCoord = Math.GetRandomNumber(1200) 
width=math.GetRandomNumber (300) 
GraphicsWindow.Fillellipse(XCoord,YCoord,width,width) 
Program.Delay(200) 
EndWhile 

你非常接近。但你不能有一個for循環用了這樣一個數字：

For i = 1 to 

你必須有一個結束數：

For i = 1 to 10 '<-- the loop will run 10 times 

while語句將只要輸入是真實的運行。所以在這種情況下，只要1 = 1，循環將繼續（這是永遠的）

這有幫助嗎？ ：D