For...Next, instruction (Visual Basic)

Répète un groupe d'instructions un nombre spécifié de fois.

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

Composants

Exemples simples

Vous utilisez une structure d' For…Next lorsque vous voulez répéter un jeu d'instructions un nombre de fois.

Dans l'exemple suivant, la variable d' index démarre avec une valeur de 1 et est incrémenté à chaque itération de la boucle, en terminant après que la valeur des portées 5. d' index .

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

Dans l'exemple suivant, la variable d' number commence à 2 et est réduite par 0,25 sur chaque itération de la boucle, en terminant après que la valeur des portées 0 d' number . L'argument d' Step d' -.25 réduit la valeur de 0,25 sur chaque itération de la boucle.

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 

Imbrication de boucles

Vous pouvez imbriquer les boucles For en plaçant une boucle à l'intérieur d'une autre. L'exemple suivant illustre des structures For...Next imbriquées avec différentes valeurs d'étape. La boucle externe crée une chaîne pour chaque itération de la boucle. La boucle interne décrémente une variable de compteur de boucle pour chaque itération de la boucle.

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

Lorsque les boucles d'imbrication, chaque aller-retour doivent avoir une seule variable d' counter .

Vous pouvez également imbriquer divers types de structures de contrôle l'un dans l'autre. Pour plus d'informations, consultez Structures de contrôle imbriquées (Visual Basic).

Quittez pour & continuer pour

L'instruction d' Exit For quitte immédiatement la boucle et transfère le contrôle d' For…Next à l'instruction qui suit l'instruction d' Next .

L'instruction Continue For transfère immédiatement le contrôle vers l'itération suivante de la boucle. Pour plus d'informations, consultez Continue, instruction (Visual Basic).

L'exemple ci-dessous illustre l'utilisation des instructions Continue For et 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

Vous pouvez placer n'importe quel nombre d'instructions Exit For dans une boucle For...Next. Utilisée dans des boucles For…Next imbriquées, l'instruction Exit For quitte la boucle la plus profonde et transfère le contrôle au niveau d'imbrication supérieur suivant.

Exit For est souvent une fois que vous évaluiez une condition (par exemple, dans une structure d' If…Then…Else ). Vous pouvez utiliser Exit For pour les conditions suivantes :

• La poursuite de l'itération est inutile ou impossible. Une valeur ou par une demande d'arrêt peut créer cette condition.

• Une instruction d' Try…Catch…Finally intercepte une exception. Vous pouvez utiliser Exit For à la fin du bloc Finally.

• Vous avez une boucle sans fin, qui est une boucle qui peut exécuter différents ou même infini nombre de fois. Si vous détectez une telle condition, vous pouvez utiliser Exit For pour abandonner la boucle. Pour plus d'informations, consultez Do...Loop, instruction (Visual Basic).

Implémentation technique

Lorsque la boucle For...Next commence, Visual Basic évalue start, end et step. Visual Basic prend les valeurs uniquement à ce stade puis assigne start à counter. Avant que le bloc d'instructions fonctionne, Visual Basic compare counter à end. Si counter est déjà supérieure à la valeur d' end (ou le plus petit si step est négatif), des fins de boucle d' For et le contrôle passe à l'instruction qui suit l'instruction d' Next . Sinon, le bloc d'instructions fonctionne.

Chaque fois que Visual Basic rencontre l'instruction Next, il incrémente counter de la valeur de step et retourne à l'instruction For. Il compare de nouveau counter à end et exécute à nouveau le bloc ou quitte la boucle selon le résultat. Ce processus continue jusqu'à ce que counter passe end ou qu'une instruction Exit For soit rencontrée.

La boucle ne s'arrête pas jusqu'à ce qu' counter être passé end. Si counter est égal à end, la boucle continue. La comparaison qui détermine l'exécution du bloc est counter <= end si step est positif et counter >= end si step est négatif.

Si vous modifiez la valeur d' counter alors qu'à l'intérieur d'une boucle, il peut être plus difficile à lire et à déboguer votre code. Modifiant la valeur d' start, end, ou step n'affecte pas les valeurs d'itération qui ont été déterminées lorsque la boucle a été écrite la première fois.

Si vous emboîtez des boucles, le compilateur signale une erreur s'il rencontre l'instruction d' Next d'un niveau d'imbrication externe avant l'instruction d' Next d'un niveau interne. Toutefois, le compilateur peut détecter cette erreur de chevauchement uniquement si vous spécifiez counter dans chaque instruction Next.

Argument d'étape

La valeur de step peut être positive ou négative. Ce paramètre détermine la boucle de traitement selon le tableau suivant :

La valeur par défaut de step est 1.

Argument de compteur

Le tableau suivant indique si counter définit une variable locale qui est limitée à la boucle entière d' For…Next . Cette détermination dépend de si datatype est présent et si counter est déjà défini.

Le type de données d' counter détermine le type de l'itération, qui doit être l'un des types suivants :

• Byte, SByte, UShort, Short, UInteger, Integer, ULong, Long, Decimal, Single ou Double.

• Énumération que vous déclarez à l'aide d'une Enum, instruction (Visual Basic).

• Élément Object.

• Type T qui a les opérateurs suivants, où B est un type qui peut être utilisé dans une expression 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

Vous pouvez éventuellement spécifier la variable d' counter dans l'instruction d' Next . Cette syntaxe améliore la lisibilité de votre programme, surtout si vous avez des boucles imbriquées d' For . Vous devez spécifier la variable qui apparaît dans l'instruction correspondante d' For .

Les expressions start, end et step peuvent avoir pour valeur tout type de données qui s'étend au type de counter. Si vous utilisez un type défini par l'utilisateur pour counter, vous devrez peut-être définir l'opérateur de conversion d' CType pour convertir les types d' start, d' end, ou d' step au type d' counter.

Exemple

L'exemple suivant supprime tous les éléments d'une liste générique. Au lieu de For Each...Next, instruction (Visual Basic), l'exemple illustre une instruction d' For…Next qui itère dans l'ordre décroissant. L'exemple utilise cette technique car la méthode d' removeAt fait avoir des éléments après l'élément supprimé une valeur d'index la plus basse.

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

L'exemple suivant effectue une itération au sein d'une énumération qui est déclarée à l'aide de Enum, instruction (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

Dans l'exemple suivant, les paramètres d'instruction utilisent une classe ayant des surcharges d'opérateurs pour les opérateurs +, -, >= et <=.

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

Voir aussi

Référence

While...End While, instruction (Visual Basic)

Do...Loop, instruction (Visual Basic)

Exit, instruction (Visual Basic)

List

Concepts

Structures de boucle (Visual Basic)

Structures de contrôle imbriquées (Visual Basic)

Autres ressources

Collections (C# et Visual Basic)