08-24-2023, 09:33 PM
Addition with While ... Wend.
Code: (Select All)
'For - Next, letzten zugewiesenen Wert verhindern - 24. Aug. 2023
$Console:Only
Option _Explicit
Dim As Integer i, j, k
For i = 1 To 5
Print i
Next
Print
'Wert ist jetzt 6, da die letzte Pruefung
'der Abbruchbedingung noch an i uebergeben wird.
Print i * 5
Print: Print
Print "Letzte Zuweisung verhindern"
Print
For j = 1 To 5 Step 1
Print j
If j = 5 Then
'Keine Zuweisung mehr
Exit For
End If
Next
Print
Print j * 5
Print: Print
Print "Im Gegensatz zu QuickBasic und QBasic funktioniert ein"
Print "Abbruch mit >Exit While< auch in QB64; aber nur dort."
While k < 10
k = k + 1
Print k
If k = 5 Then
Exit While
End If
Wend
Print
Print k
Print
Print k * 5
End