VB编程出现死循环，我花了一个名称为ball的圆，程序如下，一运行就出错了

来源：百度知道 编辑：UC知道 时间：2024/05/29 09:47:05
Private Sub Form_Click()
X1 = 3600
Y1 = 3330
x0 = 4600
y0 = 3455
While x0 < 5000
xo = x0 + 1
y0 = y0
ball.Move x0, y0
For n = 1 To 15000
Next n
Wend
End Sub

这个,其实不是死循环,只是假死状态
For n = 1 To 15000
Next n
这两句,我想你是想用来延时的吧?
这样的话,肯定会造成你的死循环的假象
我把你的循环改了一下,你看看
While X0 < 5000
DoEvents '这个很重要,用来交出控制权的
X0 = X0 + 0.001 '每次变化量很小,用来达到动画的目的地
y0 = y0
ball.Move X0, y0
Wend

嘿嘿,你发现没有你的while循环中的一个x0变量名的0变成字母o了,这样x0永远不会变,所以循环永远不会退出