Оператор For... Next (Visual Basic)For...Next Statement (Visual Basic)

• 07/20/2015
• Время чтения: 7 мин
• • 
  • 
  • 
  • 

Повторяет блок операторов указанное число раз.Repeats a group of statements a specified number of times.

СинтаксисSyntax

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

ЧастиParts

Простые примерыSimple Examples

Использовании For... Next структуры, когда нужно повторить набор инструкций set несколько раз.You use a For...Next structure when you want to repeat a set of statements a set number of times.

В следующем примере index переменной начинается со значения 1 и увеличивается при каждой итерации цикла, заканчивается после значение index достигает 5.In the following example, the index variable starts with a value of 1 and is incremented with each iteration of the loop, ending after the value of index reaches 5.

For index As Integer = 1 To 5
    Debug.Write(index.ToString & " ")
Next
Debug.WriteLine("")
' Output: 1 2 3 4 5

В следующем примере number переменной начинается с 2 и уменьшается на 0,25 на каждой итерации цикла, заканчивается после значение number становится равным нулю.In the following example, the number variable starts at 2 and is reduced by 0.25 on each iteration of the loop, ending after the value of number reaches 0. Step Аргумент -.25 уменьшает значение, 0,25 на каждой итерации цикла.The Step argument of -.25 reduces the value by 0.25 on each iteration of the loop.

For number As Double = 2 To 0 Step -0.25
    Debug.Write(number.ToString & " ")
Next
Debug.WriteLine("")
' Output: 2 1.75 1.5 1.25 1 0.75 0.5 0.25 0 

Вложенные циклыNesting Loops

Можно вложить For циклы, поместив в одном цикле в другую.You can nest For loops by putting one loop within another. В следующем примере демонстрируется вложенных For... Next структуры с разными значениями шага.The following example demonstrates nested For...Next structures that have different step values. Внешний цикл создает строку для каждой итерации цикла.The outer loop creates a string for every iteration of the loop. Внутренний цикл уменьшает переменную счетчика цикла для каждой итерации цикла.The inner loop decrements a loop counter variable for every iteration of the loop.

For indexA = 1 To 3
    ' Create a new StringBuilder, which is used
    ' to efficiently build strings.
    Dim sb As New System.Text.StringBuilder()

    ' Append to the StringBuilder every third number
    ' from 20 to 1 descending.
    For indexB = 20 To 1 Step -3
        sb.Append(indexB.ToString)
        sb.Append(" ")
    Next indexB

    ' Display the line.
    Debug.WriteLine(sb.ToString)
Next indexA
' Output:
'  20 17 14 11 8 5 2
'  20 17 14 11 8 5 2
'  20 17 14 11 8 5 2

При наличии вложенных циклов, каждый цикл должен иметь уникальный counter переменной.When nesting loops, each loop must have a unique counter variable.

Можно также вложить структур управления различных типов в друг с другом.You can also nest different kinds control structures within each other. Дополнительные сведения см. в разделе вложенные структуры управления.For more information, see Nested Control Structures.

Возврата для и продолжите дляExit For and Continue For

Exit For Инструкция немедленно завершает работу For...NextThe Exit For statement immediately exits the For…Next цикл передает управление оператору, который расположен Next инструкции.loop and transfers control to the statement that follows the Next statement.

Continue For Оператор передает управление непосредственно в следующую итерацию цикла.The Continue For statement transfers control immediately to the next iteration of the loop. Дополнительные сведения см. в разделе оператор Continue.For more information, see Continue Statement.

Следующий пример иллюстрирует использование Continue For и Exit For инструкций.The following example illustrates the use of the Continue For and Exit For statements.

For index As Integer = 1 To 100000
    ' If index is between 5 and 7, continue
    ' with the next iteration.
    If index >= 5 AndAlso index <= 8 Then
        Continue For
    End If

    ' Display the index.
    Debug.Write(index.ToString & " ")

    ' If index is 10, exit the loop.
    If index = 10 Then
        Exit For
    End If
Next
Debug.WriteLine("")
' Output: 1 2 3 4 9 10

Можно поместить любое количество Exit For инструкций в For...NextYou can put any number of Exit For statements in a For…Next Цикл.loop. При использовании внутри вложенной For...NextWhen used within nested For…Next циклы, Exit For выходит из самого внутреннего цикла и передает управление повысить уровень вложенности.loops, Exit For exits the innermost loop and transfers control to the next higher level of nesting.

Exit For часто используется после оценки некоторого условия (например, в If... Then... Else структуры).Exit For is often used after you evaluate some condition (for example, in an If...Then...Else structure). Вы можете использовать Exit For для следующих условий:You might want to use Exit For for the following conditions:

• Продолжение для выполнения итерации, ненужных или невозможно.Continuing to iterate is unnecessary or impossible. Ошибочное значение или запрос на завершение может создать это условие.An erroneous value or a termination request might create this condition.

• Объект Try... Catch... Finally инструкция перехватывает исключение.A Try...Catch...Finally statement catches an exception. Можно использовать Exit For в конце Finally блока.You might use Exit For at the end of the Finally block.

• У вас есть бесконечный цикл, который является цикл, который может запустить большое или возможно, бесконечное число раз.You have an endless loop, which is a loop that could run a large or even infinite number of times. При обнаружении таких условий, можно использовать Exit For для выхода из цикла.If you detect such a condition, you can use Exit For to escape the loop. Дополнительные сведения см. в разделе сделать... Цикл инструкции.For more information, see Do...Loop Statement.

Техническая реализацияTechnical Implementation

Когда For... Next начале цикла, Visual Basic вычисляет start, end, и step.When a For...Next loop starts, Visual Basic evaluates start, end, and step. Visual Basic вычисляет эти значения только в это время, а затем назначает start для counter.Visual Basic evaluates these values only at this time and then assigns start to counter. Перед оператором блок выполняется, Visual Basic сравнивает counter для end.Before the statement block runs, Visual Basic compares counter to end. Если counter уже больше, чем end значение (или меньшего размера, если step отрицательное), For завершения цикла и управление передается оператору, который расположен Next инструкции.If counter is already larger than the end value (or smaller if step is negative), the For loop ends and control passes to the statement that follows the Next statement. В противном случае выполняется блок операторов.Otherwise, the statement block runs.

При каждом запуске Visual Basic встречает Next инструкция, он увеличивает counter по step и возвращает For инструкции.Each time Visual Basic encounters the Next statement, it increments counter by step and returns to the For statement. После этого сравниваются counter для end, и еще раз она выполняется блок или выходит из цикла, в зависимости от результата.Again it compares counter to end, and again it either runs the block or exits the loop, depending on the result. Этот процесс продолжается до counter передает end или Exit For встречается.This process continues until counter passes end or an Exit For statement is encountered.

Цикл не останавливается до counter достиг end.The loop doesn't stop until counter has passed end. Если counter равен end, цикл продолжается.If counter is equal to end, the loop continues. Сравнение, которое определяет, следует ли выполнять блок является counter <= end Если step положительно и counter >= end Если step является отрицательным.The comparison that determines whether to run the block is counter <= end if step is positive and counter >= end if step is negative.

Если изменить значение counter во время в цикле, ваш код может быть более сложным для чтения и отладки.If you change the value of counter while inside a loop, your code might be more difficult to read and debug. Изменение значения start, end, или step не влияет на значения итерации, которые были определены при цикла.Changing the value of start, end, or step doesn't affect the iteration values that were determined when the loop was first entered.

Если вы вкладывать циклы, компилятор сообщает об ошибке при обнаружении Next инструкции внешнего уровня вложенности перед Next инструкции внутреннего уровня.If you nest loops, the compiler signals an error if it encounters the Next statement of an outer nesting level before the Next statement of an inner level. Тем не менее, компилятор может определить, это перекрытие ошибки только в том случае, если указать counter в каждом Next инструкции.However, the compiler can detect this overlapping error only if you specify counter in every Next statement.

Аргумент шагStep Argument

Значение step может быть положительным или отрицательным.The value of step can be either positive or negative. Этот параметр определяет цикл обработки согласно следующей таблице:This parameter determines loop processing according to the following table:

Значение по умолчанию step -1.The default value of step is 1.

Встречный аргументCounter Argument

В следующей таблице перечислены ли counter определяет новую локальную переменную, которая предназначена для всего For…Next цикла.The following table indicates whether counter defines a new local variable that’s scoped to the entire For…Next loop. Это определение зависит от того datatype присутствует и был ли counter уже определен.This determination depends on whether datatype is present and whether counter is already defined.

Тип данных counter определяет тип итерации, который должен быть одним из следующих типов:The data type of counter determines the type of the iteration, which must be one of the following types:

• Объект Byte, SByte, UShort, Short, UInteger, Integer, ULong, Long, Decimal, Single, или Double.A Byte, SByte, UShort, Short, UInteger, Integer, ULong, Long, Decimal, Single, or Double.

• Перечисление, которое объявляется с помощью оператор Enum.An enumeration that you declare by using an Enum Statement.

• Объект Object.An Object.

• Тип T , имеет следующие операторы, где B — это тип, который может использоваться в Boolean выражение.A type T that has the following operators, where B is a type that can be used in a Boolean expression.

  Public Shared Operator >= (op1 As T, op2 As T) As B

  Public Shared Operator <= (op1 As T, op2 As T) As B

  Public Shared Operator - (op1 As T, op2 As T) As T

  Public Shared Operator + (op1 As T, op2 As T) As T

При необходимости можно указать counter переменных в Next инструкции.You can optionally specify the counter variable in the Next statement. Этот синтаксис повышает удобочитаемость программы, особенно в том случае, если имеются вложенные For циклы.This syntax improves the readability of your program, especially if you have nested For loops. Необходимо указать переменную, которая отображается в соответствующем For инструкции.You must specify the variable that appears in the corresponding For statement.

start, end, И step выражения могут иметь любой тип данных, который расширяется до типа counter.The start, end, and step expressions can evaluate to any data type that widens to the type of counter. Если вы используете определяемого пользователем типа для counter, может потребоваться определить CType оператор преобразования типов start, end, или step типу counter.If you use a user-defined type for counter, you might have to define the CType conversion operator to convert the types of start, end, or step to the type of counter.

ПримерExample

Следующий пример удаляет все элементы из универсального списка.The following example removes all elements from a generic list. Вместо для каждого... Следующий оператор, показано в примере For... Next , выполняющий перебор в порядке убывания.Instead of a For Each...Next Statement, the example shows a For...Next statement that iterates in descending order. В примере используется этот способ, поскольку removeAt метод вызывает элементов после удаленным элементом, получают меньшее значение индекса.The example uses this technique because the removeAt method causes elements after the removed element to have a lower index value.

Dim lst As New List(Of Integer) From {10, 20, 30, 40}

For index As Integer = lst.Count - 1 To 0 Step -1
    lst.RemoveAt(index)
Next

Debug.WriteLine(lst.Count.ToString)
' Output: 0

ПримерExample

Приведенный ниже пример проходит через перечисления, объявленный с помощью оператор Enum.The following example iterates through an enumeration that's declared by using an Enum Statement.

Public Enum Mammals
    Buffalo
    Gazelle
    Mongoose
    Rhinoceros
    Whale
End Enum


Public Sub ListSomeMammals()
    For mammal As Mammals = Mammals.Gazelle To Mammals.Rhinoceros
        Debug.Write(mammal.ToString & " ")
    Next
    Debug.WriteLine("")
    ' Output: Gazelle Mongoose Rhinoceros
End Sub

ПримерExample

В следующем примере параметры инструкции использовать класс, который имеет перегрузки операторов для +, -, >=, и <= операторы.In the following example, the statement parameters use a class that has operator overloads for the +, -, >=, and <= operators.

Private Class Distance
    Public Property Number() As Double

    Public Sub New(ByVal number As Double)
        Me.Number = number
    End Sub

    ' Define operator overloads to support For...Next statements.
    Public Shared Operator +(ByVal op1 As Distance, ByVal op2 As Distance) As Distance
        Return New Distance(op1.Number + op2.Number)
    End Operator

    Public Shared Operator -(ByVal op1 As Distance, ByVal op2 As Distance) As Distance
        Return New Distance(op1.Number - op2.Number)
    End Operator

    Public Shared Operator >=(ByVal op1 As Distance, ByVal op2 As Distance) As Boolean
        Return (op1.Number >= op2.Number)
    End Operator

    Public Shared Operator <=(ByVal op1 As Distance, ByVal op2 As Distance) As Boolean
        Return (op1.Number <= op2.Number)
    End Operator
End Class


Public Sub ListDistances()
    Dim distFrom As New Distance(10)
    Dim distTo As New Distance(25)
    Dim distStep As New Distance(4)

    For dist As Distance = distFrom To distTo Step distStep
        Debug.Write(dist.Number.ToString & " ")
    Next
    Debug.WriteLine("")

    ' Output: 10 14 18 22 
End Sub

См. такжеSee also

• List<T>
• Циклические структурыLoop Structures
• Оператор While...End WhileWhile...End While Statement
• Оператор Do...LoopDo...Loop Statement
• Вложенные структуры управленияNested Control Structures
• Оператор ExitExit Statement
• КоллекцииCollections