For…Next will loop the commands within itself for a set number of times.
For Variable = StartingValue To EndingValue [Incremental Step] Commands [Exit For] Next
In the below example, an Incremental Step is not set. By default each loop increments by 1.
Dim K As Long For K=0 To 10 Debug Dp(K),CR Next For K=10 To 0 Step –1 ' Negative Step, step from 10 to 0. Debug Dp(K),CR Next
An Exit For command can be used within the For…Next loop to exit at any time.
For K=0 To 10 Debug Dp(K),CR If K=8 Then Exit For ' If K equals 8 exit the For...Next loop. Next
When choosing a variable to use for the For…Next loop, please make sure the chosen variable is able to cover the desired range. Byte variables can cover 0 to 255. For larger values, a variable with a larger range must be chosen.
Dim K As Byte For K=0 To 255 Debug Dp(K),CR Next
When using a negative Step, please choose a Long variable type if the loop will go below 0.
Dim LK As Long For LK=255 To 0 Step –1 ' This will reach -1 as last step Debug Dp(LK),CR Next
Const Device = CB280 Dim A As Integer For A=1 To 9 Debug "3 * " Debug Dec A Debug " = " Debug Dec 3*A,Cr Next
Const Device = CB280 Dim A As Integer, B As Integer For A=2 To 9 For B=1 To 9 Debug Dec A," * " Debug Dec B Debug " = " Debug Dec A*B,Cr Next Debug Cr Next