Sub form_click()
Dim i, num
Do
For i = 1 To 1000
num = Int(Rnd * 100)
Print num;
Select Case num
Case 7: Exit For
Case 29: Exit Do
Case 54: Exit Sub
End Select
Next i
Print "exit for"
Loop
Print "exit do"

End Sub

楼上的高手，对你没意义，对我有意义~