VB For-Next文でのExitではなく中断は可能？

質問

初歩的な質問で申し訳ありません・・・

ループで処理しているものがあるのですが、ExitForでループを抜けることはできますが、途中で処理を中断して次のカウンタの処理へ移ることはできるのでしょうか？

例えば

For i = 1 to 10
　　if 関数１() = False then
　　　　■ループ処理を終了するのではなく次のカウンタ[i]に移りたい■
　　else
　　　　Call 関数２()
　　end if
Next i

という事をしたいと思っています。
今は

For i = 1 to 10
　　ret = 関数１()
　　if ret = True then
　　　　Call 関数２()
　　end if
Next i

という方法で記述していますが、上記のような条件文が10や20もあると、IF文の入れ子入れ子でかなりコードが見にくいです・・・。

どなたかよろしくお願いします！

回答No.5

kmb01

比較関数が呼ばれるタイミングがすべて同じならNo4の方法でいいのでしょうが、
For i = 1 To 10
If judge1(i) = True Then
proc1
If judge2(i) = True Then
proc2
End If
End If
Next i
などのようにproc1の結果がjudge2に影響する場合もあります。
No3の方法が優れているように思いますが、関数を作りたくない場合は
For i = 1 To 10
LOOPTOP:
If judge1(i) = False Then i = i + 1: GoTo LOOPTOP
proc1
If judge2(i) = False Then i = i + 1: GoTo LOOPTOP
proc2
Next i
のようにGoTo文で済ませることが出来ます。

お礼

お返事ありがとうございます。
なるほど、カウンタを増やした上でGoTo文を使うという手もあったのですね！
先の方の「別関数」もそうですが、１つ１つは知っているのに、それを思いつかない・・・。
もっと頭を柔らかくしないとダメですね！
ここで皆さんに教えて頂いた事を覚えておいて、次に困った時は、自分でアイディアを出せるように頑張ります！
ありがとうございました（＾＾）