RosettaCodeData/Task/Loops-Continue/QB64/loops-continue.qb64
2023-07-01 13:44:08 -04:00

9 lines
148 B
Text

Dim i As Integer
For i = 1 To 10
Print LTrim$(Str$(i));
If i Mod 5 = 0 Then
Print
_Continue
End If
Print ", ";
Next