Цикл с использованием конструкции For..Next

Операторы цикла

Конструкция Select Case

Конструкция Select case позволяет обрабатывать в программе несколько условий и аналогична блоку конструкций if...Then...Else. Эта конструкция состоит из анализируемого выражения и набора операторов case на каждое возможное значение выражения. Работает эта конструкция следующим образом. Сначала Visual Basic вычисляет значение заданного в конструкции выражения. Затем полученное значение сравнивается со значениями, задаваемыми в операторах case конструкции. Если найдено искомое значение, выполняются команды, приписанные данному оператору case. После завершения выполнения конструкций управление будет передано конструкции, следующей за ключевым словом End Select.

Синтаксис конструкции Select Case следующий:

Select Case <СравниваемоеЗначение>

Case Значение1

<Конструкция1>

Case Значение2

<Конструкция2>

...

Case Else

<КонструкцияN>

End Select

В начале конструкции расположены ключевые слова Select Case, указывающие, что расположенный рядом с ними параметр сравниваемоеЗначение будет проверяться на несколько значений. Далее следуют группы команд. начинающиеся с ключевого слова Case. Если параметр CравниваемоеЗначение равен значению, указанному в текущем операторе Case, то будут выполняться команды, расположенные между этим и следующим ключевым словом Case.

В качестве примера воспользуемся конструкцией Select Case для решения предыдущей задачи:

Select Case x

Case 1 То 9

MsgBox "Значение больше 0"

Case 0

MsgBox "Значение равно 0"

Case -9 То -1

MsgBox "Значение меньше 0"

End Select

В программах Visual Basic 6.0 для выполнения повторяющихся действий используются циклы. Они бывают следующих типов:

• For...Next
• For Each...Next
• Do... Loop

Рассмотрим перечисленные конструкции.

Конструкция For...Next выполняет последовательность команд определенное число раз. Такую конструкцию называют циклом, а выполняемые ею программные коды — телом цикла.

Синтаксис конструкции For...Next следующий:

For Счетчик = НачальноеЗначение То КонечноеЗначение [Step Шаг]

Конструкции

[Exit Do]

Next [Счетчик]

Например:

For lngCounter = 1 To 10 Step 2

txtCounter.Text = txtCounter.Text & lngCounter

Next lngCounter

Ключевое слово Exit For применяется для преждевременного завершения цикла, т.е. когда счетчик не доходит до конечного значения.

Цикл с использованием конструкции Do...Loop

Цикл, задаваемый конструкцией Do... Loop, выполняется до тех пор, пока истинно задаваемое в цикле условие.

Синтаксис конструкции Do..Loop следующий:

1. С предусловием:

Do [{While | Until} Условие]

Конструкции

[Exit Do]

Loop

1. С постусловием:

Do

Конструкции

[Exit Do]

Loop [{While | Until} Условие]

Пример использования конструкции приведен ниже:

nCounter = 2

Do While nCounter < 10

nDecades(nCounter) = nCounter * 2

nCounter = nCounter * 2

Loop

Ключевое слово Exit Do применяется для преждевременного завершения цикла.

Цикл с использованием конструкции For Each... Next

Цикл с использованием конструкции For Each...Next похож на цикл For...Next, но используется для обработки всех элементов некоторого набора объектов или массива. Его особенно удобно использовать в том случае, когда количество обрабатываемых элементов не известно.

Синтаксис конструкции For Each...Next следующий:

For Each Элемент In Группа

Конструкции

Next Элемент

Пример использования конструкции приведен ниже:

Dim objControl As Control

For Each objControl In Controls

objControl.Caption = "Test " & objControl.Caption

Next objControl

Дата добавления: 2014-12-23