vb编程for循环

Private Sub Command1_Click()
Cls
Dim a As Integer, b As Integer
a = Text1.Text / 100
For i = 2 To a
For j = 2 To a
For k = 3 To a
n = n + 1
For l = 3 To a
If i + j + k + l = a And n <= 5 Then Print i * 100; j * 100; k * 100; l * 100
Next
Next
Next
Next
End Sub
在text1里打10000，就速度很慢，运算不过来了，我基本上要打10万以下，谁帮我改改啊？？

Private Sub Command1_Click()
Cls
Dim a As Integer, b As Integer
a = Text1.Text / 100
For i = 2 To a
For j = 2 To a
For k = 3 To a
n = n + 1
For l = 3 To a
If i + j + k + l = a And n <= 5 Then Print i * 100; j * 100; k * 100; l * 100
DoEvents
Next
Next
Next
Next
End Sub

exit for 不管循环是否有没结束都将跳出当前的循环去执行next后面的语句，比如：

for i = 0 to 10

    if i = 1 then exit for

next

print i

这个代码当i=1的时候这个for循环就不再执行了，而是执行next后面的语句print i

next，这句可以这么理解，先将for的变量自增1，然后重新回到for语句那行判断条件是否满足后继续执行

Private Sub Command1_Click() Cls Dim a As Long, b As Long a = Val(Text1.Text) / 100 For i = 2 To a For j = 2 To a For k = 3 To a For l = 3 To a If i + j + k + l = a Then n = n + 1 If n > 5 Then Exit Sub Print i * 100; j * 100; k * 100; l * 100 Exit For End If Next Next Next Next End Sub