VB初心者友の会 - 超初心者専用Q&A掲示板過去ログ

Dim exit_for As Integer

exit_flag = 0

> For i= 0 To 5
> 　For j = 0 To 3
>   　処理A
      exit_flag=1
>   　Exit For（←ここで処理Bに移りたいのです）
>   Next j
    If exit_flag = 1 Then Exit For
> Next i
> 
> 処理B

．．．では如何？

> 初めまして。基本的な質問ですが同かよろしくお願いします。
> 下記コードのように二重のループで処理を行っています。
> 条件にヒットしたら、どちらのループも抜けて次の処理に移りたいのですが二重のループを抜けるにはどうしたらよいのでしょうか？
> ExitForだと内側のループのみしか抜け出せませんでした。（当たり前ですが…。）
> 
> For i= 0 To 5
> 　For j = 0 To 3
>   　処理A
>   　Exit For（←ここで処理Bに移りたいのです）
>   Next j
> Next i
> 
> 処理B

Gotoを使ったらどうでしょうか？

For i= 0 To 5
　For j = 0 To 3
   　処理A
   　Goto SyoriB　←ここから
   Next j
Next i

SyoriB:　←ここに移動してきます
処理B

> 初めまして。基本的な質問ですが同かよろしくお願いします。
> 下記コードのように二重のループで処理を行っています。
> 条件にヒットしたら、どちらのループも抜けて次の処理に移りたいのですが二重のループを抜けるにはどうしたらよいのでしょうか？
> ExitForだと内側のループのみしか抜け出せませんでした。（当たり前ですが…。）
> 

Do
  For i= 0 To 5
　  For j = 0 To 3
  　  処理A
  　  Exit Do
    Next j
  Next i
Loop Where 1 = 2
処理B