这种,必须用goto,但要少用
For a As Integer = 1 To 10 For b As Integer = 2 To 5 If b = 3 Then Output.Show(b) goto label1 End If Next Output.Show(a)Next
label1:msgbox(123)