以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何连续退出两个for  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185834)
--  作者：lxhmax
--  发布时间：2023/3/20 14:24:00
--  如何连续退出两个for
老师,这种连续结束2个for,继续执行第一个for的代码要怎么写?下面这样连写两个Exit For只能执行一个

For i As Integer = 1 To 2  \'第一个for
    For ii As Integer = 1 To 2  \'第二个for
        For iii As Integer = 1 To 2  \'第三个for
            Output.Show(1)
            Exit For \'退出第一个for
            Exit For \'退出第二个for继续执行第一个for
        Next
        Output.Show(2)
    Next
    Output.Show(3)
Next
--  作者：有点蓝
--  发布时间：2023/3/20 14:27:00
--  
For i As Integer = 1 To 2  \'第一个for
    For ii As Integer = 1 To 2  \'第二个for
        For iii As Integer = 1 To 2  \'第三个for
            Output.Show(1)
            Exit For \'退出第一个for
        Next
        Exit For \'退出第二个for继续执行第一个for
        Output.Show(2)
    Next
    Output.Show(3)
Next
--  作者：lxhmax
--  发布时间：2023/3/20 14:29:00
--  
老师,我要通过第三个的for出来的结果退出第二个for
--  作者：有点蓝
--  发布时间：2023/3/20 14:35:00
--  
把第三个的for出来的结果的判断也放到第二个for里判断
--  作者：chnfo
--  发布时间：2023/3/20 21:58:00
--  
dim yn as boolean = false 
For i As Integer = 1 To 2  \'第一个for
    For ii As Integer = 1 To 2  \'第二个for
        For iii As Integer = 1 To 2  \'第三个for
yn = true \'如果符合条件，就让它为true
            Output.Show(1)
            Exit For \'退出第一个for
        Next
if yn = true then 
        Exit For \'退出第二个for继续执行第一个for
        Output.Show(2)
end if 
    Next
    Output.Show(3)
Next