# Zur FOR Next – Schleife finden Sie im Buch und den Projekten sehr viele Beispiele, so dass ich hier keine Erklärungen angebe, sondern einfach ein Übungsangebot mache. Hier können insbesondere Beginner die Schleife ergründen lernen.

Viel Spaß wünscht JR

#

#

#

# Die For... Next-Schleife (Übungen)

Aufgabe: Starten Sie in VB ein neues Projekt. Plazieren Sie einen Command-Button auf der Form. Geben Sie die nachstehenden Listings in die

Private Sub Command1_Click

ein. Testen Sie das Programm! Nachdem Sie die ersten beiden Aufgaben untersucht haben, sollten Sie bei den anderen Aufgaben Vermutungen über die Programmausführung vornehmen. Notieren Sie die Erkenntnisse, die Sie bei der Untersuchung gewonnen haben (Stichpunkte genügen).

1. For x = 1 To 10

Print x

Next x

2. Wie oben, nur statt Print x ist

a) Print x, ‘bzw.

b) Debug.Print x, ‘bzw.

c) Print x;

einzugeben.

3. For x = 10 To 100 Step 10

Beep

Print x

Next

4. For x = 100 To 0 Step 10

Beep

Print x

Next

Print x

Ändern Sie nachher Step 10 in Step –10 um!

5. For x = 100 To 100

Print x

Next

6. For x = 10 To –10 Step –0.1

Beep

Debug.Print x

Next

Untersuchen Sie im Debug-Fenster (Scrollen) die ausgedruckten Zahlenwerte. Das Debug-Fenster ist das Direktfenster! Über Menü Ansicht zu erreichen!

7. Wie bei 6, nur vor die For ... Next folgende Zeile setzen: Dim x As Integer

Und hinter die Schleife: Print x

8. For x = -10 To 10 Step 0.2 ‘verändern Sie dann den Schritt zu 0.5

Debug.Print n

If x = 0 Then MsgBox “Null gefunden“

'Später einfügen: If x = 10 Then Exit For

Next

Print x

Evtl. müssen Sie Strg + Untbr drücken. Oder auch Strg + Alt + Entf

Untersuchen Sie im Debug-Fenster (Scrollen) die ausgedruckten Zahlenwerte. Danach sollten Sie verstehen, weshalb die Message bei Schritt 0.2 nicht kommt. Verändern Sie jetzt Schritt auf 0.5. Beobachten der Werte im Debug-Fenster.

Sollten Sie ungeduldig werden, dann Strg + Untbr.

9. For i = 9 to 0 ‘Richtigen Schritt einführen

MsgBox “Schleife Nr. “ & Str(i)

Next

10. Risiko! Risiko!

Wenn Sie nachfolgende Schleife starten, stürzt Ihr Programm ab!

For i% = 0 To 4 ‘% steht für Integer

I% = 0

Next

Sie müssen Strg + Untbr drücken! Finden Sie eine genaue Erklärung?

11. Addition der Zahlen von 1 bis 10 (>> 1 + 2 + 3 + 4 +... + 10 = ???)

For i = 1 to 10

Wert = Wert + i ‘ist der Summenbilder

Print Wert

Next

12. Multiplikation der Zahlen von 1 bis 10 (>> 1 * 2 * 3 * 4.... * 10 = ???)

For i = 1 to 10

Wert = Wert * i

Print Wert

Next

Sollte es nichts Sinnvolles ergeben, so setzen Sie Wert = 1 vor die Schleife!

Nachstehend finden Sie einige Schleifen für erste Grafikprogrammierungen (Laufzeit).

13. For x = 1 To 2000 Step 500 ‘Linienzahl? Was ist, wenn Anfang = 0?

Line (x, 0) – (x, Height), QBColor(9)

Next

14. Wie geht dies in anderer Achsrichtung???

15. For x = 100 To 2000 Step 100 ‘(Schritt variieren mit 50 und 10 und 1)

Pset (x, 200), QBColor(9)

Next

16. For x = 5 To 2000 Step 500

Circle (x, y) , x , QBColor(9)

y = y + 100

Next

17.Ändern Sie in nachstehendem Listing DrawWidth von 1 auf 2 (bzw.3). Achten Sie auf die Eckbereiche der Darstellung! Genau hinschauen! Kommentieren Sie aus!

Private Sub Command1_Click

## Dim i As Integer

DrawWidth = 1

For i = 100 To 2100 Step 500

Line (100, i ) – (4100, i ), QBColor(8)

Next

For i = 100 To 4100 Step 500

Line (i, Height ) – (i, 100 ), QBColor(8)

Next

## End Sub

Variieren Sie die Koordinatenangaben bei den Aufgaben zur Grafikprogrammierung!!