如何在小基本中制作无限循环屏幕保护程序？

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