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
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
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
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
Spinner = 0
Do While Spinner < 20
Spinner = Spinner + 1
If Spinner = 10 Then
Exit Do
End If
Loop
Spinner = 0
Do
Do While Spinner < 20
Spinner = Spinner + 1
Loop
Loop Until Vérifier = False