RosettaCodeData/Task/Loops-For-with-a-specified-step/BASIC/loops-for-with-a-specified-step-16.basic
2020-02-17 23:21:07 -08:00

8 lines
106 B
Text

Public Sub Main()
Dim siCount As Short
For siCount = 1 To 50 Step 5
Print "Gambas is great!"
Next
End