[attach]1040[/attach]

我在编这个程序时在最后循环时机器死掉啊，有没有能帮我一下啊！谢谢啊！

（我的主要部分还没有作啊，这个月就要用啊！急啊！）

看上去还挺复杂，这个干什么的呀，你什么都没说清楚，怎么帮你改？

For bb1 = 1 To aa1 For bb2 = 1 To aa2 For bb3 = 1 To aa3 For bb4 = 1 To aa4 ' For bb5 = 1 To aa5 ' For bb6 = 1 To aa6 ddd = 0 If sf(85) = 1 Then dd1(1) = sf(1) * bb1 + sf(15) * bb2 + sf(29) * bb3 + sf(43) * bb4 + sf(57) * bb5 + sf(71) * bb6 If shs(1) <= dd1(1) And dd1(1) <= shx(1) Then ddd = ddd + 1 End If If sf(86) = 1 Then dd1(2) = sf(2) * bb1 + sf(16) * bb2 + sf(30) * bb3 + sf(44) * bb4 + sf(58) * bb5 + sf(72) * bb6 If shs(2) <= dd1(2) And dd1(2) <= shx(2) Then ddd = ddd + 1 End If If sf(87) = 1 Then dd1(3) = sf(3) * bb1 + sf(17) * bb2 + sf(31) * bb3 + sf(45) * bb4 + sf(59) * bb5 + sf(73) * bb6 If shs(3) <= dd1(3) And dd1(3) <= shx(3) Then ddd = ddd + 1 End If If sf(88) = 1 Then dd1(4) = sf(4) * bb1 + sf(18) * bb2 + sf(32) * bb3 + sf(46) * bb4 + sf(60) * bb5 + sf(74) * bb6 If shs(4) <= dd1(4) And dd1(4) <= shx(4) Then ddd = ddd + 1 End If If sf(89) = 1 Then dd1(5) = sf(5) * bb1 + sf(19) * bb2 + sf(33) * bb3 + sf(47) * bb4 + sf(61) * bb5 + sf(75) * bb6 If shs(5) <= dd1(5) And dd1(5) <= shx(5) Then ddd = ddd + 1 End If If sf(90) = 1 Then dd1(6) = sf(6) * bb1 + sf(20) * bb2 + sf(34) * bb3 + sf(48) * bb4 + sf(62) * bb5 + sf(76) * bb6 If shs(6) <= dd1(6) And dd1(6) <= shx(6) Then ddd = ddd + 1 End If If sf(91) = 1 Then dd1(7) = sf(7) * bb1 + sf(21) * bb2 + sf(35) * bb3 + sf(49) * bb4 + sf(63) * bb5 + sf(77) * bb6 If shs(7) <= dd1(7) And dd1(7) <= shx(7) Then ddd = ddd + 1 End If If sf(92) = 1 Then dd1(8) = sf(8) * bb1 + sf(22) * bb2 + sf(36) * bb3 + sf(50) * bb4 + sf(64) * bb5 + sf(78) * bb6 If shs(8) <= dd1(8) And dd1(8) <= shx(8) Then ddd = ddd + 1 End If If sf(93) = 1 Then dd1(9) = sf(9) * bb1 + sf(23) * bb2 + sf(37) * bb3 + sf(51) * bb4 + sf(65) * bb5 + sf(79) * bb6 If shs(9) <= dd1(9) And dd1(9) <= shx(9) Then ddd = ddd + 1 End If If sf(94) = 1 Then dd1(10) = sf(10) * bb1 + sf(24) * bb2 + sf(38) * bb3 + sf(52) * bb4 + sf(66) * bb5 + sf(80) * bb6 If shs(10) <= dd1(10) And dd1(10) <= shx(10) Then ddd = ddd + 1 End If If sf(95) = 1 Then dd1(11) = sf(11) * bb1 + sf(25) * bb2 + sf(39) * bb3 + sf(53) * bb4 + sf(67) * bb5 + sf(81) * bb6 If shs(11) <= dd1(11) And dd1(11) <= shx(11) Then ddd = ddd + 1 End If If sf(96) = 1 Then dd1(12) = sf(12) * bb1 + sf(26) * bb2 + sf(40) * bb3 + sf(54) * bb4 + sf(68) * bb5 + sf(82) * bb6 If shs(12) <= dd1(12) And dd1(12) <= shx(12) Then ddd = ddd + 1 End If If sf(97) = 1 Then dd1(13) = sf(13) * bb1 + sf(27) * bb2 + sf(41) * bb3 + sf(55) * bb4 + sf(69) * bb5 + sf(83) * bb6 If shs(13) <= dd1(13) And dd1(13) <= shx(13) Then ddd = ddd + 1 End If

If sf(98) = 1 Then dd1(14) = sf(14) * bb1 + sf(28) * bb2 + sf(42) * bb3 + sf(56) * bb4 + sf(70) * bb5 + sf(84) * bb6 If shs(14) <= dd1(14) And dd1(14) <= shx(14) Then ddd = ddd + 1 End If If ddd1 = ccc3 Then aaa = 0 ' Next bb6 ' Next bb5 Next bb4 Next bb3 Next bb2 Next bb1 aaa = aaa + 1 fff = fff + 1 Label13.Caption = fff

End Sub

开始分析，分析什么呀

是个机配的程序，只要让他不死就可以啊！

[attach]1042[/attach]

说明要实现的东西啊！

看不懂

真的挺复杂的

For bb4 = 1 To aa4

DoEvents ' For bb5 = 1 To aa5

试试