RosettaCodeData/Task/Loops-For-with-a-specified-step/BASIC/loops-for-with-a-specified-step-20.basic

7 lines
97 B
Text
Raw Permalink Normal View History

2020-02-17 23:21:07 -08:00
Sub MyLoop()
For i = 2 To 8 Step 2
Debug.Print i;
Next i
Debug.Print
End Sub