Visual Basic 6
Podstawowa składnia

instrukcja if / else

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

dla pętli

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

Krok jest opcjonalny, a krok 1 jest domyślny. Krok mówi, jak liczyć, więc -1 sprawi, że odejmie 1 za każdym razem, a Krok 5 sprawi, że doda 5 za każdym razem przez pętlę.

W przypadku konieczności zatrzymania pętli można użyć instrukcji Exit For , jak w poniższym przykładzie;

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

Tutaj, zamiast drukowania od 1 do 10, zatrzyma się na 9, ponieważ warunek nakazał zatrzymać proces, gdy iIndex osiągnie 90.

Do Loop

Innym typowym rodzajem pętli w Visual Basic jest DO loop , która uruchamiałaby kawałek kodu w sposób ciągły, dopóki nie zostanie zatrzymane. W przeciwieństwie do niektórych innych pętli, w których indeksy są używane do zatrzymania procesu, w tej konkretnej pętli należy nakazać zatrzymanie.

Prosty przykład ilustrujący pętlę jest następujący

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

   If iIndex1 = 10 Then
      Exit Do
   End If
Loop

Powyższy fragment kodu pobierze Indeks, zainicjowany na 1 i zwiększy go. Funkcja Debug.Print pomoże wydrukować indeks w celu wykonania pętli. W każdej pętli kod zweryfikuje, czy indeks osiągnął 10 i czy tylko wtedy, gdy warunek jest spełniony, zostanie wykonane polecenie Exit Do , które zatrzyma pętlę.

Wybierz opcję Case Case

    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