为什么这样不能结束死循环?
Private Sub Command1_Click()Dim a, num
Do
Shell "cmd / c star cmd.exe", vbHide
For a = 1 To 10
num Int(Rnd * 10)
Select Case num
Case 8: Exit Do
Case 5: Exit Do
End Select
Next a
Loop
End Sub
我的思路就是希望能产生随机数使得do中的调用cmd.exe的死循环结束。
但是运行后,并没有结束,程序直接没有响应,自动关了,任务管理器中的cmd.exe却不断在长···
根本控制不住。
大侠们指正,或给小弟一段详细的正确代码!
感恩不尽!