Export (0) Print
Expand All

For...Next Statements

Repeats a group of statements a specified number of times.

For counter [ As datatype ] = start To end [ Step step ]
   [ statements ]
[ Exit For ]
   [ statements ]
Next [ counter ]

Parts

counter
Required. Variable. The data type of counter is usually Integer but can be any elementary numeric type that supports the greater than or equal to (>=), less than or equal to (<=), and addition (+) operators.
datatype
Required if counter is not already declared. Data type of counter. If counter is declared outside this loop, you cannot use the As clause to redeclare it.
start
Required. Expression. The initial value of counter. The start expression usually evaluates to type Integer but can evaluate to any data type that widens to the type of counter.
end
Required. Expression. The final value of counter. The end expression usually evaluates to type Integer but can evaluate to any data type that widens to the type of counter.
step
Optional. Expression. The amount by which counter is incremented each time through the loop. The step expression usually evaluates to type Integer but can evaluate to any data type that widens to the type of counter. If not specified, step defaults to 1.
statements
Optional. One or more statements between For and Next that are executed the specified number of times.

Remarks

If counter has not been declared outside this loop, you can declare it within the For statement. In this case, the scope of counter is the body of the loop. However, you cannot declare counter both outside and inside the loop.

The step argument can be either positive or negative. The value of the step argument determines loop processing as follows:

Step value Loop executes if
Positive or zero counter <= end
Negative counter >= end

The expressions start, end, and step are all evaluated only once, when the For statement is first encountered. They are not evaluated again, even if the loop statements change their constituent parts.

The counter variable is compared to end every time before the loop is entered. This includes the first time the For statement is executed. Therefore, if the value of start is past the value of end when the loop is entered, the loop is not executed, and execution passes immediately to the statement following the Next statement.

After the loop statements have executed, step is added to counter. At this point, the For statement again compares counter to end. As a result of this comparison, either the statements in the loop execute again, or the loop is terminated and execution continues with the statement following the Next statement.

Note   Changing the value of counter while inside a loop can make it more difficult to read and debug your code.

The Exit For statement transfers control immediately to the statement following the Next statement. Any number of Exit For statements can be placed anywhere in the For...Next loop. Exit For is often used after evaluating some condition, for example with an If...Then...Else statement.

You can nest For...Next loops by placing one loop within another. Each loop must have a unique counter variable. The following construction is correct:

For I As Integer = 1 To 10
   For J As Integer = 1 To 10
      For K As Integer = 1 To 10
         ' Statements to operate with current values of I, J, and K.
      Next K
   Next J
Next I
Note   If a Next statement is encountered before its corresponding For statement, or if a Next statement of an outer nesting level is encountered before the Next of an inner level, an error occurs.

Example

This example uses the For...Next statement to create a string that contains 10 instances of the numbers 0 through 9, each string separated from the other by a single space. The outer loop uses a loop counter variable that is decremented each time through the loop.

Dim Words, Digit As Integer
Dim MyString As String
For Words = 10 To 1 Step -1    ' Set up 10 repetitions.
   For Digit = 0 To 9   ' Set up 10 repetitions.
      MyString = MyString & CStr(Digit)   ' Append number to string.
   Next Digit   ' Increment counter.
   MyString = MyString & " "   ' Append a space.
Next Words

See Also

For...Next Statements (Conceptual) | Do...Loop Statements | Exit Statement | For Each...Next Statements | While...End While Statements | Faster For...Next Loops | Do...Loop Statements (Conceptual) | For Each...Next Statements (Conceptual)

Show:
© 2014 Microsoft