Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

For Loops with different steps

Sub ForSteps()     Dim I As Integer     For I = 0 To 10       MsgBox (I)     Next I     For I = 0 To 10 Step 2       MsgBox (I)     Next I     For I = 0 To 10 Step 3       MsgBox (I)     Next I     For I = 10 To 0 Step -5       MsgBox (I)     Next I End Sub