vb循环语句导致类似死机的状态，用do loop写的，为什么？

Question

我是想在输入一串可识别的字符就跳出，可是循环开始后界面不可操作

Answer 1

VB中 do...loop 循环本身没有结束循环条件，无论循环中代码执行何种运算，只要没有语法错误，它就一直执行，如果它的执行速度过高，则会一直占用CPU，导致死机等系统问题；
对 do loop的应用，需要在循环内部添加结束循环的条件语句，除此之外，还需要为循环设置一定间隔时间，比如使用延时类“ delay 500 ”之类语句；保证CPU有足够响应时间，如果用户需要高速执行某些代码，添加代码 delay 1(也就是延时1毫秒（1毫秒=1/1000秒）)，比未添加的效果要更好。

Answer 2

正是因为只用do while，循环开始后界面不可操作，所以加上DoEvents ,加上后就可以操作了。
Do While wait
DoEvents

------------------------
改成这样虽然还是不停的循环,但是你只要在form2的Text2里输入"endusb"就可以结束循环。
**************************************************************
*注意：是你的代码里打的是"endusb"，而不是"endsub"，不要打错字*
**************************************************************

Private Sub usbopration_Click()
Dim wait As Boolean
wait = True
Slider1.Enabled = False
Do While wait
DoEvents
If form2.Text2.Text = "endusb" Then
Slider1.Enabled = True
wait = False
Exit Do
End If
Loop
wait = True
End Sub

Answer 3

死循环了呗.
要加上循环退出条件以及退出循环的语句.

Answer 4

死循环，
Dim i As Ingter
For i 1 To 2
<循环体>
Next
我一般就用它
Do ___ Loop的我就不用

参考资料：一本书

Answer 5

在循环体内加入DOEVENTS,释放系统控制权