46 lines
797 B
QBasic
46 lines
797 B
QBasic
' Test CONTINUE statement
|
|
PRINT "==== CONTINUE Test ===="
|
|
|
|
' CONTINUE FOR — skip even numbers
|
|
PRINT "Odd numbers 1-10:"
|
|
DIM i AS INTEGER
|
|
FOR i = 1 TO 10
|
|
IF i MOD 2 = 0 THEN CONTINUE FOR
|
|
PRINT i; " ";
|
|
NEXT i
|
|
PRINT ""
|
|
|
|
' CONTINUE WHILE — skip multiples of 3
|
|
PRINT "Non-multiples of 3 (1-12):"
|
|
DIM w AS INTEGER
|
|
w = 0
|
|
WHILE w < 12
|
|
w = w + 1
|
|
IF w MOD 3 = 0 THEN CONTINUE WHILE
|
|
PRINT w; " ";
|
|
WEND
|
|
PRINT ""
|
|
|
|
' CONTINUE DO — skip value 5
|
|
PRINT "1-8 without 5:"
|
|
DIM d AS INTEGER
|
|
d = 0
|
|
DO
|
|
d = d + 1
|
|
IF d = 5 THEN CONTINUE DO
|
|
PRINT d; " ";
|
|
LOOP UNTIL d >= 8
|
|
PRINT ""
|
|
|
|
' CONTINUE DO with WHILE form
|
|
PRINT "DO WHILE skip 3:"
|
|
DIM e AS INTEGER
|
|
e = 0
|
|
DO WHILE e < 6
|
|
e = e + 1
|
|
IF e = 3 THEN CONTINUE DO
|
|
PRINT e; " ";
|
|
LOOP
|
|
PRINT ""
|
|
|
|
PRINT "CONTINUE test complete!"
|