====== For...Next ======

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.

<code xbasic>
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
</code>

An Exit For command can be used within the For...Next loop to exit at any time.

<code xbasic>
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
</code>

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.

<code xbasic>
Dim K As Byte
For K=0 To 255
  Debug Dp(K),CR
Next
</code>

When using a negative Step, please choose a Long variable type if the loop will go below 0.

<code xbasic>
Dim LK As Long
For LK=255 To 0 Step –1 ' This will reach -1 as last step
  Debug Dp(LK),CR
Next
</code>

==== Demo program ====

<code xbasic>
Const Device = CB280
Dim A As Integer
For A=1 To 9
  Debug "3 * "
  Debug Dec A
  Debug " = "
  Debug Dec 3*A,Cr
Next
</code>

{{ :cubloc:for...next:fornext1.png?nolink |}}

<code xbasic>
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
</code>

{{ :cubloc:for...next:fornext2.png?nolink |}}



[[cubloc:index#system_library:|Go CUBLOC home]]