VB : Structures de programmation globale

For - Step - To - Next

For C1 = 10 To 1 Step -1
    For C2 = 0 To 9
        C3 = C2 + C1
        If C3 > 50 Then
           Exit For
        End If
    Next C2
    C4 = C4 + 1
Next C1

Utilisation du Select Case

Nb1 = 5000
Nb2 = 99
Select Case Nb1
Case 0
Select Case Nb2
Case 0
Resultat = "Nb1 = 0 ET Nb2 = 0"
Case Else
Resultat = "Nb1 = 0 ET Nb2 <> 0"
Nb2 = 0
End Select
Case 1 To 5
Resultat = "Nb1 entre 1 et 5"
Case 6, 7, 8, 9, 10
Resultat = "Nb1 entre 6 et 10"
Case 11 To 20, 90 To 100
Resultat = "Soit Nb1 entre 11 et 20, soit Nb1 entre 90 et 100"
Case Is > 100
Resultat = "Nb1 > 100"
Case Else
Resultat = "Nb1 soit : <0 , 21..89"
End Select
MsgBox Resultat

Do - While - Until - Loop

While

La boucle ne se produira peut-être pas

X = 0
While X <= 20
X = X + 1
Wend

La boucle ne se produira peut-être pas

Spinner = 0
Do While Spinner <= 20
Spinner = Spinner + 1
Loop

La boucle se produit en tout cas une fois

Spinner = 0
Do
Spinner = Spinner + 1
Loop While Spinner <= 20

Until

La boucle ne se produira peut-être pas

Spinner = 0
Do Until Spinner = 20
Spinner = Spinner + 1
Loop

La boucle se produit en tout cas une fois

Spinner = 0
Do
Spinner = Spinner + 1
Loop Until Spinner = 20

Sortir prématurément d'une boucle

Spinner = 0
Do While Spinner < 20
Spinner = Spinner + 1
If Spinner = 10 Then
Exit Do
End If
Loop

Boucles imbriquées

Spinner = 0
Do
Do While Spinner < 20
Spinner = Spinner + 1
Loop
Loop Until Vérifier = False