DruckversionWeitere Iterationen
Nicht abweisende (fußgesteuerte) Schleife
Dieser Zyklus eignet sich hervorragend für die Eingabeprüfung. Wenn bei der Prüfung der Eingabewert nicht den geforderten Bedingungen entspricht, wird der Zyklus beendet. Sehen Sie sich die folgende Beispielprozedur Die_größte_Zahl2 aus dem Modul Felder der Datei Lösung Steueranweisungen und Felder.xlsm an und führen Sie einen Testlauf durch.
Sub Die_größte_Zahl2()
Dim Zahlen()
Dim I As Integer
Dim Anzahl As Integer
Dim Größte
Dim Antwort As String
'mindestens 1 Zahl soll es sein
Anzahl = 1
'Beginn der nichtabweisenden Schleife
Do
ReDim Preserve Zahlen(Anzahl)
'Feld aktuell erweitern
Zahlen(Anzahl) = _
InputBox("Bitte die " & Anzahl & _
". Zahl eingeben.", "Eingabe")
'Anzahl um 1 erhöhen
Anzahl = Anzahl + 1
'Abfrage, ob eine weitere Zahl
'eingegeben werden soll
Antwort = _
InputBox("Eine weitere Zahl eingeben?", _
"Weiter?", "ja")
'Schleife wird 'bei "ja" fortgesetzt
Loop While Antwort = "ja"
'Schleifenende
'Anzahl ist hier
'um 1 zu groß
Anzahl = Anzahl - 1
Größte = Zahlen(1)
For I = 2 To Anzahl
If Größte < Zahlen(I) Then _
Größte = Zahlen(I)
Next
MsgBox "Die größte der Zahlen ist die " _
& Größte, , "Ergebnis"
End SubWiederholungsstruktur mit nachfolgender Bedingungsprüfung
Der Schleifenkörper (Anweisungsblock 1) wird mindestens einmal durchlaufen, auch wenn die Bedingung von Anfang an nicht zutreffend (also falsch) war.
Diese Seite ist für Mitglieder von akademie.de reserviert.
Möchten Sie die Mitgliedschaft 14 Tage kostenlos testen und den Beitrag komplett lesen?
Oder möchten Sie zunächst mehr über diesen Beitrag erfahren und die Leseproben sehen?
Ich bin bereits Mitglied