Verstehen, wie Schleifen in Visual Basic 6 arbeiten ( VB6 ) ist wichtig, denn sie ermöglicht es Ihnen ausführen Code-Blöcke wiederholt . Die beiden wichtigsten Arten von Schleifen sind " für" und "do" -Schleifen. A " for"-Schleife ist eine verkürzte Version eines "do" -Schleife, die verwendet wird, wenn die Anzahl der Iterationen im voraus bekannt ist. Einige Anwendungen von einer Schleife in den Zeilen aus einer Datei lesen , drucken alle Namen von einem Mitarbeiter Liste und Sortierung durch eine Anordnung der Suche nach einem bestimmten Wert . Anleitung
1

Öffnen Sie die Quelldatei in Visual Basic 6
2

hinzufügen " for"-Schleife , indem Sie den folgenden Code in Ihrer Funktion : .
< P > Dim x As Integer

Dim Anzahl As Integer

x = 0

count = 1 bis 6 Schritt 2

x = x + 2

Weiter

A " for"-Schleife besteht aus einem Zähler , um die Reichweite des Zählers , eines Schritts und die Befehle während jeder Iteration auszuführen. Der " Schritt "-Argument legt fest, wie viel der Zähler zwischen Iterationen erhöhen. Wenn Sie den " Schritt " Schlüsselwort weglassen es auf den voreingestellten Wert von 1 gesetzt. In dem Beispiel , während der ersten Iteration , "count" gleich 1 ist und "X" auf 2 (0 +2) eingestellt . . Bei der zweiten Iteration "count" auf 3 gesetzt ist und "X" ist auf 4 (2 +2) gesetzt

Wenn Sie eine Schleife durch die Liste wollen stattdessen den folgenden Code :
< p> Dim MyColors (2) als String

Dim Farbe als String

MyColors (0) = "Blue"

MyColors (1) = " Green"

MyColors (2) = "Yellow "

für jede Farbe in MyColors

Debug.Print Farbe

Weiter

Die Schleife wird für jeden Wert in der Liste ist das typischerweise ein Array oder eine Auflistung . Die Iteration variable , " Farbe", müssen vom gleichen Typ wie die Elemente in der Liste sein
3

hinzufügen "do" -Schleife , indem Sie den folgenden Code: .
< p> Dim x as Integer

x = 0

Do While x <10

x = x + 2

Schleife
< p > die Schleife hält durchlaufen , solange die Bedingung nach dem " Do " keyword erfüllt ist. Der Zustand am Anfang vor jeder neuen Iteration überprüft. Alternativ können Sie es durchlaufen , bis eine Bedingung , indem Sie den folgenden Code erfüllt ist :

Haben

X = X ​​+ 2

Loop Until X > 10

In einer " Schleife bis" Struktur der Zustand nach dem Ende jeder Iteration wird überprüft. Wenn Sie die Schleife zu verlassen , bevor die Bedingung erfüllt ist , fügen Sie "Exit Do" in Ihrem Schleife .
4

Speichern Sie die VB6 -Datei, kompilieren und führen Sie das Programm auf Ihre Schleife zu sehen.