途中でループを前進させる方法

Question

GOTOを使用する以外に、ループ内のコードを放棄して次のものに進める方法はありますか？ GOTOは以下のコードで効率的な方法ですか？

Do While x < 10 

    a = Int(Rnd * 100) 
    b = Int(Rnd * 100) 
    c = Int(Rnd * 100) 

    For n = 1 To 4 
     aa(i) = i * 2 + 4 
     bb(i) = i * 2 + 5 
     cc(i) = i * 2 + 6 
    Next 

    If a = b Then GoTo lastline 
    If a = c Then GoTo lastline 
    If b = c Then GoTo lastline 

    For i = 1 To 4 

     testa = (a = aa(i) Or a = bb(i) Or a = cc(i)) 
     If testa Then GoTo lastline 

     testb = (b = aa(i) Or b = bb(i) Or b = cc(i)) 
     If testb Then GoTo lastline 

     testc = (c = aa(i) Or c = bb(i) Or c = cc(i)) 
     If testc Then GoTo lastline 
    Next 

    Debug.Print a & ","; b & ","; c 

lastline: 
    x = x + 1 

Loop 

Answer 1

は完全を期すために、これは、それはあなたが仕事をするためにSubを抽出した場合にどのようになるかです。それはループに来ていたものは何でも

For n = 1 To 4 
    aa(i) = i * 2 + 4 '<--- 'i'? shouldn't these be 'n'? 
    bb(i) = i * 2 + 5 
    cc(i) = i * 2 + 6 
Next 

後でループカウンタとしてiを使用しているので、それは常に次のようになります。あなたは私がががあなたの元のコードのタイプミスであると仮定し何を持っていることに注意してください1回目、4回目、4回目。私の推測は、これはあなたが意図したものではないということです。

方法のうちその...抽出Sub：あなたは途方もなくこのコードを簡素化することができ

Do While x < 10 
    WhateverYoureDoing aa, bb, cc 
    x = x + 1 
Loop 

注：コードを呼び出す

Private Sub WhateverYoureDoing(aa As Variant, bb As Variant, cc As Variant) 
    Dim a As Long, b As Long, c As Long 

    a = Int(Rnd * 100) 
    b = Int(Rnd * 100) 
    c = Int(Rnd * 100) 

    'Assuming this should be 'i' instead of 'n' as the loop count. 
    For i = 1 To 4 
     aa(i) = i * 2 + 4 
     bb(i) = i * 2 + 5 
     cc(i) = i * 2 + 6 
    Next 

    If a = b Then Exit Sub 
    If a = c Then Exit Sub 
    If b = c Then Exit Sub 

    For i = 1 To 4 
     If a = aa(i) Or a = bb(i) Or a = cc(i) Then Exit Sub 
     If b = aa(i) Or b = bb(i) Or b = cc(i) Then Exit Sub 
     If c = aa(i) Or c = bb(i) Or c = cc(i) Then Exit Sub 
    Next 

    Debug.Print a & ","; b & ","; c 
End Sub 

。たとえば、この...

a = Int(Rnd * 100) 
b = Int(Rnd * 100) 
c = Int(Rnd * 100) 
'... 
If a = b Then GoTo lastline 
If a = c Then GoTo lastline 
If b = c Then GoTo lastline 

は...簡単に使用できます

Do 
    a = Int(Rnd * 100) 
    b = Int(Rnd * 100) 
    c = Int(Rnd * 100) 
Loop While a <> b And a <> c And b <> c 

Answer 2

述べたように、あなたはとき偽スキップするのIFを使用する：あなたは、あなたのFor...Nextループから抜け出すためにExit Forを含むさまざまな方法の多くでExitを使用することができます

Do While x < 10 

    a = Int(Rnd * 100) 
    b = Int(Rnd * 100) 
    c = Int(Rnd * 100) 

    For n = 1 To 4 
     aa(i) = i * 2 + 4 
     bb(i) = i * 2 + 5 
     cc(i) = i * 2 + 6 
    Next 

    If Not a = b Or Not a = c Or Not b = c Then 

     For i = 1 To 4 

      testa = (a = aa(i) Or a = bb(i) Or a = cc(i)) 
      If Not testa Then 
       testb = (b = aa(i) Or b = bb(i) Or b = cc(i)) 
       If Not testb Then 
        testc = (c = aa(i) Or c = bb(i) Or c = cc(i)) 
        If Not testc Then 
         Debug.Print a & ","; b & ","; c 
        End If 
       End If 
      End If 
     Next 

    End If 

    x = x + 1 

Loop 

Answer 3

。

Here is the Exit MSDN

すぐにそれが表示されるループのために出て

のために終了します。実行は、次のステートメントに続くステートメントで継続されます。 Exit Forは、For ... NextまたはFor Each ... Nextループ内でのみ使用できます。ネストされたForループ内で使用される場合、Exit Forは最も内側のループを終了し、制御を次のより高いレベルの入れ子に移します。

Answer 4

if文でスキップされる可能性のある部分をラップするだけです。 2番目のForループは、Exit Forを使用して早期に終了することもできます。これにより、GoToの使用が回避されます。私は以下のコードをテストしていませんが、その概念を説明する必要があります。

Do While x < 10 
    a = Int(Rnd * 100) 
    b = Int(Rnd * 100) 
    c = Int(Rnd * 100) 
    For n = 1 To 4 
     aa(i) = i * 2 + 4 
     bb(i) = i * 2 + 5 
     cc(i) = i * 2 + 6 
    Next 
    If Not a = b Or Not a = c Or Not b = c Then 
     For i = 1 To 4 
      testa = (a = aa(i) Or a = bb(i) Or a = cc(i)) 
      testb = (b = aa(i) Or b = bb(i) Or b = cc(i)) 
      testc = (c = aa(i) Or c = bb(i) Or c = cc(i)) 
      If testa Or testb Or testC Then 
       Exit For 
      Else 
       If i = 4 Then 
        Debug.Print a & ","; b & ","; c 
       End If 
      End If 
     Next 
    End If 
    x = x + 1 
Loop