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

指定された回数だけ、一連のステートメントを繰り返すフロー制御ステートメントです。

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

指定項目

簡単な例

回数の一連のステートメントを繰り返し実行する場合に For…Next の構造を使用します。

次の例では、1 の値を持つ index の変数の先頭は index の到達 5.の値の後に終了した場合は、ループ反復ごとにインクリメントします。

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

次の例では、2 時の number の変数の先頭は number の到達 0 の値の終了後にループの各反復処理の軽減され、0.25。 -.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 ループは入れ子構造にできます。つまり、ループの中に別のループを入れることができます。 次の例は、それぞれ異なる step 値を指定した入れ子になった 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 ある必要があります。

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

の終了、のを続行します。

Exit For のステートメントは Next のステートメントの次のステートメントにすぐに For[…]Next のループおよび制御を移し終了します。

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

次の例は、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 And 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

Exit For ステートメントは、For…Next ループで何度でも使用できます。 入れ子構造になっている For…Next ループ内で使用すると、Exit For は最も内側のループを抜け、入れ子構造の 1 つ外側のレベルに制御を移します。

Exit For は条件を評価した後によく使用されます (たとえば、If…Then…Else の構造体) 次のような条件の場合に Exit For を使用できます。

• ループの継続が不要または不可能である。 エラー値または終了要求はこの要件を作成する場合があります。

• Try…Catch…Finally のステートメントで例外をキャッチします。 Finally ブロックの最後で Exit For を使用できます。

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

技術的な実装

For...Next ループが開始されると、start、end、および step が評価されます。 Visual Basic は、現時点でのみこれらの値を評価し、counterに start を再配置。 ステートメント ブロックの実行、Visual Basic が endに counter を比較する前に、 counter が既に場合は step が負の場合 end の値 (またはそれより小さい)、Next のステートメントの次のステートメントに For のループの終わりとコントロールのパス。 それ以外の場合は、ステートメント ブロックが実行されます。

Next ステートメントが実行されるたびに、step の値が counter に加算され、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 のデータ型は次の型の 1 つが必要があるイテレーションの型が決まります:

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

• Enum ステートメント (Visual Basic) を使用して宣言した列挙型。

• 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のユーザー定義型を使用すると、counterの種類に start、end、または step の型を変換するには CType の変換演算子を定義しなければならない場合があります。

使用例

次の例では、ジェネリック リストからすべての要素を削除しています。 For Each...Next ステートメント (Visual Basic)の代わりに、降順で繰り返し発生 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

次の例では、Enum ステートメント (Visual Basic)を使用して宣言された列挙型を繰り返します。

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

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

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

参照

関連項目

While...End While ステートメント (Visual Basic)

Do...Loop ステートメント (Visual Basic)

Exit ステートメント (Visual Basic)

List

概念

ループ構造 (Visual Basic)

入れ子になった制御構造 (Visual Basic)

その他の技術情報

コレクション (C# および Visual Basic)