End Sub. Цикл Do с предусловием

Do

End Sub

Do

End Sub

Loop

End Sub

Loop

Цикл Do с предусловием

Синтаксис:

Do [While|Until] <условие>
<Блок>
Loop

Если выбрано служебное слово While, то цикл продолжается, пока выполняется условие; если Until – то прекращается, когда условие выполняется.

Цикл Do с постусловием

Синтаксис:

Do
<Блок>
Loop [{While|Until}] <условие>

Значение служебных слов цикла аналогично циклу с предусловием, но здесь сначала выполняются действия в блоке, а затем проверка выхода из цикла.

В обоих циклах Do для досрочного выхода из цикла используется команда Exit Do.

Пример: выделение определенного значения (равного 7) из последовательности случайных чисел

1.

Sub DoWhileLoop()

Dim Number As Integer

Number = 0

Do While Number <> 7

Number = Int (10 * Rnd ())

MsgBox "Your number is " & Number & "."

2. Sub DoUntilLoop()

Dim Number As Integer

Number = 0

Do Until Number = 7

Number = Int (10 * Rnd ())

MsgBox "Your number is " & Number & "."

3. Sub DoLoopUntil()

Dim Number As Integer

Number = Int (10 * Rnd ())

Loop Until Number = 7

MsgBox "Your number is " & Number & "."

4.

Sub DoLoopWhile()

Dim Number As Integer

Number = Int (10 * Rnd ())

Loop While Number <> 7

MsgBox "Your number is " & Number & "."

Управляющая инструкция Select - Case

Позволяет в зависимости от значения переменной или выражения выполнять один из нескольких фрагментов кода.

Пример:

Sub SelectCase()

Dim Score As Integer

Score = Int (100 * Rnd ())

Select Case Score

Case 0 To 33

MsgBox "Score: " & Score & Chr(13) & _

"You are in the first third."

Case 34 To 66

MsgBox "Score: " & Score & Chr (13) & _

"You are in the second third."

Case 67 To 100

MsgBox "Score: " & Score & Chr (13) & _

"You are in the last third."

Дата добавления: 2014-01-07