For...Next

DIAdem 2018 Hilfe


Ausgabe: Juni 2018
Artikelnummer: 370858P-0113
Angaben zum Produkt anzeigen

DOWNLOAD (Nur Windows)


DIAdem 2012 Hilfe
DIAdem 2014 Hilfe
DIAdem 2015 Hilfe
DIAdem 2017 Hilfe
DIAdem 2018 Hilfe
DIAdem 2019 Hilfe

Die For..Next-Zählschleife wiederholt eine Gruppe von Anweisungen so lange, bis der Schleifenzähler einen bestimmten Wert erreicht.

For Counter = Begin To End [Step StepValue]
  [Statements]
Next
Counter Numerische Variable, die DIAdem als Schleifenzähler verwendet.
BeginStartwert von Counter.
End Endwert von Counter.
StepValue Schrittweite, um die DIAdem den Zähler bei jedem Schleifendurchlauf verändert. Der Standardwert für StepValue ist 1, falls Sie keinen Wert angeben.
StatementsEine oder mehrere Anweisungen zwischen For und Next, die DIAdem so oft wie angegeben wiederholt.

Sie verwenden For...Next-Schleifen, wenn die Anzahl der Wiederholungen einer Anweisungsgruppe genau festgelegt ist. Zum vorzeitigen Beenden solcher Schleifen steht Ihnen die Exit For-Anweisung zur Verfügung.

Ist der Wert des Arguments Counter positiv und gilt die Bedingung Counter<=End, führt DIAdem die in der Schleife definierten Anweisungen aus. Bei einem negativen Wert für Schritt muss die Bedingung Counter>=End erfüllt sein.

In jedem Schleifendurchlauf addiert DIAdem StepValue zum Schleifenzähler Counter hinzu. Nach der Überprüfung der Bedingung führt DIAdem die Anweisungen in der Schleife erneut aus oder beendet die Schleife und setzt die Ausführung mit der Anweisung fort, die auf Next folgt.

Sie können For...Next-Schleifen verschachteln. Verwenden Sie für jede Schleife einen eindeutigen Variablennamen als Zähler.

Im folgenden Beispiel erhöht sich die Zählvariable iLoop nach jedem Durchgang automatisch um eins. Insgesamt erfolgen drei Durchläufe der Schleife. 

Dim iLoop
For iLoop = 2 To 4
  Call MsgBox("Number = " & iLoop)
Next

Im folgenden Beispiel reduziert sich die Zählvariable iLoop nach jedem Durchgang automatisch um zwei. Insgesamt erfolgen fünf Schleifendurchläufe.

Dim iLoop
For iLoop = 10 To 2 Step -2
  Call MsgBox("Number = " & iLoop)
Next

Verwandte Themen

Do While...Loop | Do...Loop Until | Exit | For...Next | For Each...Next | If...Then...Else | Select Case...Case...End Select | While...Wend | With

WAR DIESER ARTIKEL HILFREICH?

Nicht hilfreich