IBM Lotus Symphony


Оператор For...Next [встроенный]

Выполняет операторы, указанные в блоке For...Next, заданное число раз.

Синтаксис:

For Счетчик=Начало To Конец [Step Шаг]

Блок операторов

[Exit For]

Блок операторов

Next [Счетчик]

Переменные:

Счетчик: счетчику цикла первоначально присваивается значение, указанное справа от знака равенства (Начало). Допустимы только числовые переменные. Счетчик цикла увеличивается или уменьшается с заданным Шагом, пока не будет достигнуто значение Конец.

Начало: числовая переменная, определяющая начальное значение счетчика цикла.

Конец: числовая переменная, определяющая конечное значение счетчика цикла.

Шаг: задает значение, на которое следует изменять счетчик цикла. Если Шаг не задан, то счетчик цикла увеличивается на 1. В этом случае, конечное значение должно быть больше начального. Если вы хотите, чтобы счетчик уменьшался, то конечное значение должно быть меньше начально, а шаг должен быть отрицательным.

Цикл For...Next выполняет все операторы цикла заданное число раз.

При каждом изменении счетчика среда Basic Lotus® Symphony™ проверяет, не достигнуто ли конечное значение. Как только счетчик достигает конечного значения, цикл автоматически прекращается.

Операторы For...Next могут быть вложенными. Если переменная после оператора Next не указана, то Next считается относящимся к последнему запущенному оператору For.

Если указан шаг 0, то операторы, заключенные между For и Next, повторяются неограниченное число раз.

При изменении счетчика программа Basic Lotus Symphony проверяет его на переполнение или потерю значимости. Цикл завершается, когда счетчик становится больше конечного значения (при положительном шаге) или меньше конечного значения (при отрицательном шаге).

Для безусловного выхода из цикла воспользуйтесь оператором Exit For. Этот оператор можно вставить в любом месте внутри цикла For...Next. Можно также воспользоваться условным оператором If...Then, как указано ниже:

For...

операторы

If Условие = True Then Exit For

операторы

Далее

Примечание: во вложенных циклах For...Next оператор Exit For выводит только из одного цикла.

Пример

В следующем примере два вложенных цикла применяются для сортировки строкового массива из 10 элементов ( sEntry() ), предварительно заполняемого различным содержимым:

Sub ExampleSort

Dim sEntry(9) As String

Dim iCount As Integer

Dim iCount2 As Integer

Dim sTemp As String

sEntry(0) = "Jerry"

sEntry(1) = "Patty"

sEntry(2) = "Kurt"

sEntry(3) = "Thomas"

sEntry(4) = "Michael"

sEntry(5) = "David"

sEntry(6) = "Cathy"

sEntry(7) = "Susie"

sEntry(8) = "Edward"

sEntry(9) = "Christine"

For iCount = 0 To 9

For iCount2 = iCount + 1 To 9

If sEntry(iCount) > sEntry(iCount2) Then

sTemp = sEntry(iCount)

sEntry(iCount) = sEntry(iCount2)

sEntry(iCount2) = sTemp

End If

Next iCount2

Next iCount

For iCount = 0 To 9

Print sEntry(iCount)

Next iCount

End Sub


Комментарии по продукту | Дополнительная документация | Товарные знаки