Visual Basic 6
Basissyntaxis

if / else-verklaring

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

for loop

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

Stap is optioneel en stap 1 is de standaard. Stap vertelt hoe te tellen, dus -1 zou het elke keer 1 aftrekken en stap 5 zou het elke keer 5 door de lus laten optellen.

Als de lus moet worden gestopt, kan de opdracht Exit For worden gebruikt, zoals in het onderstaande voorbeeld;

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

In plaats van 1 tot 10 af te drukken, stopt het hier bij 9, omdat de voorwaarde het proces vertelde te stoppen wanneer iIndex 90 bereikt.

Doe Loop

Een ander veelgebruikt type lus in Visual Basic is de DO loop , die een stukje code continu uitvoert totdat wordt verteld dat het moet stoppen. In tegenstelling tot sommige andere lussen waarbij indexen worden gebruikt om het proces te stoppen, moet in deze specifieke lus worden verteld om te stoppen.

Een eenvoudig voorbeeld ter illustratie van de lus is als volgt

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

   If iIndex1 = 10 Then
      Exit Do
   End If
Loop

Het bovenstaande stuk code neemt een index, geïnitialiseerd op 1, en verhoogt deze. Een Debug.Print helpt de index af te drukken om de lus te Debug.Print . Op elke lus controleert de code of de index 10 heeft bereikt en of en alleen als de voorwaarde waar is, wordt de Exit Do uitgevoerd, waardoor de lus wordt gestopt.

Selecteer Case Statement

    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