For-Next-Schleifen

For-Next-Schleifen: For ... Next, Step
Sub ForNext1()
Dim a%
For a = 1 To 10 Ausgabe von 1 bis 10 in zehn MessageBoxen.
MsgBox a Der Ausgabebefehl ist innerhalb der For-Next-Schleife.
Next Würde man den Ausgabebefehl in der MessageBox
End Sub nach Next einordnen, würde die Zahl 11 ausgegeben.
Sub ForNext2()
B = 0 Wert B ist Null.
For a = 1 To 100 Sucht alle Zahlen von 1 bis 100.
B = B + a Addiert B (=0) plus jede A-Zahl je ein Mal.
Next a Springt von Zahl zu Zahl und sucht die nächst größere.
Debug.Print B Gibt das Ergebnis nur ein Mal aus (Ergebnis 5050).
End Sub Stünde der Ausgabebefehl vor Next, würde eine Liste mit
Teilsummen ausgegeben.
Sub ForNext3()
B = 0
For a = 1 To 200 Sucht alle Zahlen von 1 bis 200.
B = B + a Addiert diese.
Next a Beendet die Programmschleife.
MsgBox B Das Ergebnis sieht man in einer MessageBox (= 20100).
End Sub Stünde MsgBox vor Next, würde die MsgBox 20100 mal
ausgegeben.
Sub ForNext4() Welches Ergebnis liefert folgendes Programm?
Dim i As Byte
For i = 1 To 16 Step 2
If i < 10 Then Die Variable i startet mit 1.
i = i + 5 Erste Schleife ergibt 1 + 5 = 6
Else Zweite Schleife ergibt 6 plus Step 2 plus 5 = 13
i = i + 3
Dritte Schleife ergibt 13 plus Step 2 plus 3 = 18
End If
Next i Nach der dritten Schleife kommt i wieder in den
Schleifenkopf. Der Step 2 wird nochmals addiert.
MsgBox Str$(i) Das Endergebnis ist 20.
End Sub
   
Sub Command1_Click() Welche Zahlenfolge ergibt sich bei wiederholtem
Static z% Klicken auf die Schaltfläche?
z = z + 1
Form1.Print z, 2 ^ z, 2 ^ z - 1 Ausgabe in Kolonnen: links immer um eins hochgezählt,
End Sub
in der Mitte verdoppelt sich die Zahl, und rechts
verdoppelt sich die Zahl minus eins.
Die Potenzierung verlangt einen Double-Wert.
.

Mehr Tipps: InputBox

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt