Private Sub Command1_Click()Dim i As Integer, j As IntegerFor i = 1 To 3 If i = 2 Then GoTo a '当i=2时,退出本次循环 For j = 1 To 3 Print i; j Next ja:Next iEnd Sub
你试试 goto 语句跳出去吧