Question

vb中防止for循环死机

我用一个for循环但是循环的数量太多了,一运行,打开任务管理器,是未响应,CPU使用100%!!我想可能就是运行太快所导制的.能不能用一个时间控件来控制它的运行速度(就是说让它在一秒内运行多少次才不会做假死机)让运行时不会假死机.不知道谁还会有更好的办法来控制它不让出现未响应.希望能给我写出来!!谢谢!!
代码:
Dim sz(16) As Integer
Dim i, j, k, l, m, n As Integer
sz(1) = 15
sz(2) = 58
sz(3) = 74
sz(4) = 59
sz(5) = 68
sz(6) = 62
sz(7) = 63
sz(8) = 64
sz(9) = 59
sz(10) = 12
sz(11) = 35
sz(12) = 57
sz(13) = 29
sz(14) = 28
sz(15) = 27
sz(16) = 75

For i = 1 To 16
For j = 1 To 16
For k = 1 To 16
For l = 1 To 16
For m = 1 To 16
For n = 1 To 16
If i = j Or i = k Or i = l Or i = m Or i = n Or j = k Or j = l Or j = m Or j = n _
Or k = l Or k = m Or k = n Or l = m Or l = n Or m = n Then
Else
Print sz(i) & sz(j) & sz(k) & sz(l) & sz(m) & sz(n); Spc(3);
x = x + 1
If x Mod 4 = 0 Then Print
End If
Next n
Next m
Next l
Next k
Next j
Next i
HBpcbar这们兄弟跟我说用这(doevents)个方法.在这个程序上用能行吗?怎么用?

Answer 1

多加几个doevents：

Private Sub Command1_Click()
Dim sz(16) As Integer
Dim i, j, k, l, m, n As Integer
sz(1) = 15
sz(2) = 58
sz(3) = 74
sz(4) = 59
sz(5) = 68
sz(6) = 62
sz(7) = 63
sz(8) = 64
sz(9) = 59
sz(10) = 12
sz(11) = 35
sz(12) = 57
sz(13) = 29
sz(14) = 28
sz(15) = 27
sz(16) = 75

For i = 1 To 16
For j = 1 To 16
For k = 1 To 16
For l = 1 To 16
For m = 1 To 16
For n = 1 To 16
If i = j Or i = k Or i = l Or i = m Or i = n Or j = k Or j = l Or j = m Or j = n _
Or k = l Or k = m Or k = n Or l = m Or l = n Or m = n Then
Else
Print sz(i) & sz(j) & sz(k) & sz(l) & sz(m) & sz(n); Spc(3);
x = x + 1
If x Mod 4 = 0 Then Print
End If
Next n
Next m
DoEvents
Next l
DoEvents
Next k
DoEvents
Next j
DoEvents
Next i

End Sub

Answer 2

Dim sz(16) As Integer
Dim i, j, k, l, m, n As Integer
sz(1) = 15
sz(2) = 58
sz(3) = 74
sz(4) = 59
sz(5) = 68
sz(6) = 62
sz(7) = 63
sz(8) = 64
sz(9) = 59
sz(10) = 12
sz(11) = 35
sz(12) = 57
sz(13) = 29
sz(14) = 28
sz(15) = 27
sz(16) = 75

For i = 1 To 16
For j = 1 To 16
For k = 1 To 16
For l = 1 To 16
For m = 1 To 16
For n = 1 To 16
doevents '看看加在这里可以吗
If i = j Or i = k Or i = l Or i = m Or i = n Or j = k Or j = l Or j = m Or j = n _
Or k = l Or k = m Or k = n Or l = m Or l = n Or m = n Then
Else
Print sz(i) & sz(j) & sz(k) & sz(l) & sz(m) & sz(n); Spc(3);
x = x + 1
If x Mod 4 = 0 Then Print
End If
Next n
Next m
Next l
Next k
Next j
Next i

Answer 3

只要在第一个循环开始时加入 Doevents 就可以防止死循环。所以一楼的方法也可以，二楼多余。

Answer 4

一楼正解。