Visual Basic 6
Syntaxe de base

if / else déclaration

If condition Then 
    code to execute if true
ElseIf condition Then
    code
Else
    code to execute if conditions are both false
End If

pour la boucle

For I as Integer = 1 To 10 Step 1
    code to execute
Next

L'étape est facultative et l'étape 1 est la valeur par défaut. Step lui dit comment compter, donc -1 voudrait le soustraire 1 à chaque fois et l’étape 5 l’ajouterait 5 à chaque fois à travers la boucle.

Si la boucle doit être arrêtée, l'instruction Exit For peut être utilisée, comme dans l'exemple ci-dessous.

Dim iIndex as integer

For I as Integer = 1 To 10 Step 1

Debug.Print  I     
iIndex = I * 10

If iIndex > 90 Then
    Exit For
End If

Loop

Ici, au lieu d'imprimer 1 à 10, il s'arrêtera à 9, car la condition demandait au processus de s'arrêter lorsque iIndex atteint 90.

Do Loop

Un autre type courant de boucle dans Visual Basic est la DO loop , qui exécutera un morceau de code continuellement jusqu'à ce qu'il soit dit d'arrêter. Au contraire de certaines autres boucles par lesquelles des index sont utilisés pour arrêter le processus, dans cette boucle particulière, il convient de lui indiquer de s'arrêter.

Un exemple simple illustrant la boucle est le suivant

Dim iIndex1 As Integer
iIndex1 = 1
   
Do
   Debug.Print iIndex1 
   iIndex1 = iIndex1 + 1

   If iIndex1 = 10 Then
      Exit Do
   End If
Loop

Le morceau de code ci-dessus prend un index, initialisé à 1, et l'incrémente. Un Debug.Print aidera à imprimer l'index pour compléter la boucle. Sur chaque boucle, le code vérifiera si l'index a atteint 10 et si et seulement si la condition est vraie, Exit Do sera exécuté, ce qui arrêtera la boucle.

Sélectionner une déclaration de cas

    Dim number As Integer = 8
    Select Case number
        Case 1 To 5
            Debug.WriteLine("Between 1 and 5, inclusive")
            ' The following is the only Case clause that evaluates to True.
        Case 6, 7, 8
            Debug.WriteLine("Between 6 and 8, inclusive")
        Case 9 To 10
            Debug.WriteLine("Equal to 9 or 10")
        Case Else
            Debug.WriteLine("Not between 1 and 10, inclusive")
    End Select