Visual Basic 6
Sintassi di base

se / else dichiarazione

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

per ciclo

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

Il passaggio è facoltativo e il passaggio 1 è l'impostazione predefinita. Step dice come contare, quindi -1 dovrebbe sottrarre 1 ogni volta e il Passaggio 5 dovrebbe aggiungere 5 ogni volta attraverso il ciclo.

Nel caso in cui sia necessario arrestare il ciclo, è possibile utilizzare l'istruzione Exit For , come nell'esempio seguente;

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

Qui, invece di stampare da 1 a 10, si fermerà a 9, poiché la condizione ha detto al processo di fermarsi quando iIndex raggiunge 90.

Fai il ciclo

Un altro tipo comune di loop in Visual Basic è il DO loop , che eseguirà continuamente un pezzo di codice fino a quando non viene detto di fermarsi. Al contrario di alcuni altri cicli in cui gli indici sono usati per fermare il processo, in questo particolare ciclo, dovrebbe essere detto di fermarsi.

Un semplice esempio che illustra il ciclo è il seguente

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

   If iIndex1 = 10 Then
      Exit Do
   End If
Loop

Il codice di cui sopra prenderà un indice, inizializzato a 1, e lo incrementerà. Un Debug.Print aiuterà a stampare l'indice per creare il ciclo. Su ciascun ciclo, il codice verificherà se l'indice ha raggiunto 10 e se e solo se la condizione è vera, verrà eseguito Exit Do , che interromperà il ciclo.

Seleziona la dichiarazione del caso

    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