Visual Basic 6
Grundlegende Syntax

if / else-Anweisung

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

für Schleife

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

Schritt ist optional und Schritt 1 ist die Standardeinstellung. In Schritt wird angegeben, wie gezählt werden soll. Mit -1 wird also jedes Mal 1 abgezogen, in Schritt 5 wird jedes Mal 5 durch die Schleife addiert.

Für den Fall, dass die Schleife gestoppt werden muss, kann die Exit For Anweisung wie im folgenden Beispiel verwendet werden.

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

Statt 1 bis 10 zu drucken, wird hier bei 9 angehalten, da die Bedingung dem Prozess mitteilt, zu stoppen, wenn iIndex 90 erreicht.

Machen Sie eine Schleife

Eine andere häufige Art von Schleife in Visual Basic ist die DO loop , die ein Stück Code kontinuierlich ausführen würde, bis es aufgefordert wird, anzuhalten. Im Gegensatz zu einigen anderen Schleifen, bei denen Indizes verwendet werden, um den Prozess zu stoppen, sollte in dieser speziellen Schleife angehalten werden, anzuhalten.

Ein einfaches Beispiel zur Veranschaulichung der Schleife ist wie folgt

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

   If iIndex1 = 10 Then
      Exit Do
   End If
Loop

Der obige Code übernimmt einen Index, der auf 1 initialisiert wird, und erhöht ihn. Ein Debug.Print hilft dabei, den Index zu drucken, um die Schleife Debug.Print . In jeder Schleife überprüft der Code, ob der Index 10 erreicht hat, und wenn und nur wenn die Bedingung erfüllt ist, wird Exit Do ausgeführt, wodurch die Schleife gestoppt wird.

Wählen Sie Case Statement aus

    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