For...Next ステートメント (Visual Basic)

ステートメントのグループを指定した回数だけ繰り返します。

構文

For counter [ As datatype ] = start To end [ Step step ]
    [ statements ]
    [ Continue For ]
    [ statements ]
    [ Exit For ]
    [ statements ]
Next [ counter ]

指定項目

簡単な例

一連のステートメントを設定した回数だけ繰り返す場合は、For...Next 構造を使用します。

次の例では、index 変数は値 1 で始まり、ループの反復ごとに増分され、index の値が 5 に達した後に終了します。

For index As Integer = 1 To 5
    Debug.Write(index.ToString & " ")
Next
Debug.WriteLine("")
' Output: 1 2 3 4 5

次の例では、number 変数は 2 から始まり、ループの反復ごとに 0.25 減り、number の値が 0 に達した後に終了します。 -.25 の Step 引数は、ループの反復ごとに値を 0.25 ずつ減らします。

For number As Double = 2 To 0 Step -0.25
    Debug.Write(number.ToString & " ")
Next
Debug.WriteLine("")
' Output: 2 1.75 1.5 1.25 1 0.75 0.5 0.25 0 

ループを入れ子にする

For ループを入れ子にするには、別のループ内にループを配置します。 次の例は、異なるステップ値を持つ入れ子になった For...Next 構造を示しています。 外側のループは、ループの反復ごとに文字列を作成します。 内側のループは、ループの反復ごとにループ カウンター変数の値を減らします。

For indexA = 1 To 3
    ' Create a new StringBuilder, which is used
    ' to efficiently build strings.
    Dim sb As New System.Text.StringBuilder()

    ' Append to the StringBuilder every third number
    ' from 20 to 1 descending.
    For indexB = 20 To 1 Step -3
        sb.Append(indexB.ToString)
        sb.Append(" ")
    Next indexB

    ' Display the line.
    Debug.WriteLine(sb.ToString)
Next indexA
' Output:
'  20 17 14 11 8 5 2
'  20 17 14 11 8 5 2
'  20 17 14 11 8 5 2

ループを入れ子にする場合、各ループには一意の counter 変数が必要です。

また、さまざまな種類の制御構造を相互に入れ子にすることもできます。 詳細については、「入れ子になった制御構造」を参照してください。

Exit For と Continue For

Exit For ステートメントは、For...Next ループを終了し、Next ステートメントの次のステートメントに制御を移します。

Continue For ステートメントは、ループの次の反復に直ちに制御を移します。 詳細については、「Continue ステートメント」を参照してください。

次の例では、Continue For および Exit For ステートメントの使用方法を示します。

For index As Integer = 1 To 100000
    ' If index is between 5 and 7, continue
    ' with the next iteration.
    If index >= 5 AndAlso index <= 8 Then
        Continue For
    End If

    ' Display the index.
    Debug.Write(index.ToString & " ")

    ' If index is 10, exit the loop.
    If index = 10 Then
        Exit For
    End If
Next
Debug.WriteLine("")
' Output: 1 2 3 4 9 10

For... ループには、任意の数の Exit For ステートメントをNext ループに含めることができます。 入れ子になった For... ループ内で使用すると、Next ループ内で使用すると、Exit For は最も内側のループを終了し、次に高いレベルの入れ子に制御を移します。

Exit For は、何らかの条件 (たとえば、If...Then...Else 構造など) を評価した後によく使用されます。 Exit For は次の条件で使用することもできます。

• 反復処理の続行が不要または不可能である。 この条件は、正しくない値または終了要求によって生じる場合があります。

• Try...Catch...Finally ステートメントが例外をキャッチする。 Exit For ブロックの末尾で Finally を使用することもできます。

• 無限ループがある。無限ループは、膨大な回数または無限に実行されるループです。 このような条件を検出した場合は、Exit For を使用してループをエスケープできます。 詳細については、「Do...Loop ステートメント」を参照してください。

技術的な実装

For...Next ループが開始されると、Visual Basic は start、end、および step を評価します。 Visual Basic は、現時点ではこれらの値のみを評価してから、start を counter に割り当てます。 ステートメント ブロックが実行される前に、Visual Basic は counter と end を比較します。 counter が既に end の値よりも大きい場合 (または step が負の場合)、For ループは終了し、制御は Next ステートメントの次のステートメントに渡されます。 それ以外の場合は、ステートメント ブロックが実行されます。

Visual Basic は、Next ステートメントを検出するたびに counter を step ずつ増分し、For ステートメントに返します。 もう一度 counter と end を比較し、その結果に応じて、もう一度ブロックを実行するかループを終了します。 このプロセスは、counter が end を渡すか、Exit For ステートメントが検出されるまで続行されます。

counter が end を渡すまで、ループは停止しません。 counter が end に等しい場合、ループは続行されます。 ブロックを実行するかどうかを決定する比較は、step が正の場合は counter<= end、step が負の場合は counter>= end です。

ループ内にあるときに counter の値を変更すると、コードの読み取りやデバッグが困難になることがあります。 start、end、または step の値を変更しても、ループが最初に入力されたときに決定された反復値には影響しません。

ループを入れ子にした場合、内側のレベルの Next ステートメントの前に外側の入れ子レベルの Next ステートメントが検出されると、コンパイラはエラーを通知します。 ただし、コンパイラは、すべての Next ステートメントで counter を指定した場合にのみ、この重複エラーを検出できます。

Step 引数

step の値には、正または負のどちらかを指定できます。 このパラメーターは、次の表に従ってループ処理を決定します。

step の既定値は 1 です。

Counter 引数

次の表は、counter が For…Next ループ全体に範囲が設定されている新しいローカル変数を定義するかどうかを示しています。 この決定は、datatype が存在するかどうかと、counter が既に定義されているかどうかによって異なります。

counter のデータ型によって、反復の種類が決定されます。これは、次のいずれかの型である必要があります。

• Byte、SByte、UShort、Short、UInteger、Integer、ULong、Long、Decimal、Single、または Double。

• Enum ステートメントを使用して宣言する列挙型。

• Object。

• 次の演算子を持つ型 T。ここで、B は Boolean 式で使用できる型です。

  Public Shared Operator >= (op1 As T, op2 As T) As B

  Public Shared Operator <= (op1 As T, op2 As T) As B

  Public Shared Operator - (op1 As T, op2 As T) As T

  Public Shared Operator + (op1 As T, op2 As T) As T

必要であれば、Next ステートメントに counter 変数を指定することもできます。 この構文を使用すると、特に For ループを入れ子にした場合に、プログラムの読みやすさが向上します。 対応する For ステートメントに存在する変数を指定する必要があります。

start、end、および step 式は、型 counter に拡大変換される任意のデータ型に評価できます。 counter にユーザー定義型を使用する場合は、型 start、end、または step を型 counter に変換するために CType 変換演算子を定義することが必要になる場合があります。

例 1

次の例では、ジェネリック リストからすべての要素を削除します。 For Each...Next ステートメントの代わりに、この例では、降順で反復する For...Next ステートメントを示しています。 removeAt メソッドを実行すると、削除された要素の後にある各要素のインデックス値が小さくなるため、この例ではこの手法を使用しています。

Dim lst As New List(Of Integer) From {10, 20, 30, 40}

For index As Integer = lst.Count - 1 To 0 Step -1
    lst.RemoveAt(index)
Next

Debug.WriteLine(lst.Count.ToString)
' Output: 0

例 2

次の例では、Enum ステートメントを使用して宣言された列挙型を反復処理します。

Public Enum Mammals
    Buffalo
    Gazelle
    Mongoose
    Rhinoceros
    Whale
End Enum

Public Sub ListSomeMammals()
    For mammal As Mammals = Mammals.Gazelle To Mammals.Rhinoceros
        Debug.Write(mammal.ToString & " ")
    Next
    Debug.WriteLine("")
    ' Output: Gazelle Mongoose Rhinoceros
End Sub

例 3

次の例では、ステートメントのパラメーターは、+、-、>=、および <= の各演算子に対して演算子のオーバーロードがあるクラスを使用しています。

Private Class Distance
    Public Property Number() As Double

    Public Sub New(ByVal number As Double)
        Me.Number = number
    End Sub

    ' Define operator overloads to support For...Next statements.
    Public Shared Operator +(ByVal op1 As Distance, ByVal op2 As Distance) As Distance
        Return New Distance(op1.Number + op2.Number)
    End Operator

    Public Shared Operator -(ByVal op1 As Distance, ByVal op2 As Distance) As Distance
        Return New Distance(op1.Number - op2.Number)
    End Operator

    Public Shared Operator >=(ByVal op1 As Distance, ByVal op2 As Distance) As Boolean
        Return (op1.Number >= op2.Number)
    End Operator

    Public Shared Operator <=(ByVal op1 As Distance, ByVal op2 As Distance) As Boolean
        Return (op1.Number <= op2.Number)
    End Operator
End Class

Public Sub ListDistances()
    Dim distFrom As New Distance(10)
    Dim distTo As New Distance(25)
    Dim distStep As New Distance(4)

    For dist As Distance = distFrom To distTo Step distStep
        Debug.Write(dist.Number.ToString & " ")
    Next
    Debug.WriteLine("")

    ' Output: 10 14 18 22 
End Sub

関連項目

• List<T>
• ループ構造
• While...End While ステートメント
• Do...Loop ステートメント
• 入れ子になった制御構造
• Exit ステートメント
• コレクション