vb死循环

vb死循环按ctrl+c或ctrl+break可以结束循环，返回编程界面。

为防止不能退出循环，强行结束程序而造成损失，建议运行程序行和前芹数先保存程序。重新进入程序编辑界面后，要仔细检查程序代码，排除造成死循环的逻辑错档首盯误后，重新调试。必要时可以加入断点，或单步运行，并“添加监视”，观察相关变量的变化情况，查出造成死循环的原因并加以改正。

死循环不镇册会让电脑死消物机的，只会让程序假死。代拿旅液码如下

dim

a

as

integer

a=2

do

while

a=2

……

loop

如果要死机说不定可以用shell，代码如下

dim

i

as

integer

for

i=1

to

10000(这个地方自己填

shell

“cmd。exe",1

next

i

明白你的意思，但这不叫死循环滑携做，这叫信衡死规矩，呵呵。在你原有的基础上只能这隐灶么改了：

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case 38

a = True '向上

Case 40

If a = True Then a = False: b = True '向下

Case 37

If b = True Then b = False: c = True '向左

Case 39

If c = True Then c = False: d = True '向右

End Select

xiangshang

xiangxia

xiangzuo

xiangyou

End Sub

---