双重For Each，如何只执行第一个

[billlyh]

Public al_Character08 As New System.Collections.ArrayList
Public al_Character09 As New System.Collections.ArrayList

For Each a0 As String In al_Character08
For Each a1 As String In al_Character09
MsgBox(a1.ToString())
Continue For
Next
Next

[billlyh]

我想在保留两个for的同时，
当MsgBox在For Each a1 As String In al_Character09
执行完后就跳出，不执行第一层循环For Each a0 As String In al_Character08

上面这段代码不能满足我的需求，
哪位帮帮我，
？？？？？？？
不要跟我说改成这样哦！！！！！！！
For Each a1 As String In al_Character09
MsgBox(a1.ToString())
Next

[古今多少事]

For Each a0 As String In al_Character08
For Each a1 As String In al_Character09
MsgBox(a1.ToString())
exit For
Next
exit for
Next
呵呵，没测试。

[Jimmy_Xia]

不知道为什么有这样的需求，LZ也没有说明。那就用goto 吧，想到哪儿就到哪儿。

[水哥阿乐]

那就更直接点exit sub

[兔子-顾问]

Dim goon as booleen = true
For Each a0 As String In al_Character08
    For Each a1 As String In al_Character09
        MsgBox(a1.ToString())
        if 我觉得不想执行外部循环了 then goon = false
        Continue For
    Next
    if not goon then exit for
Next