22. Управляющая структура For-Next

Она позволяет выполнять несколько команд заданное число раз.

Sub LookUpPrice()

Dim ProdCode() As String, UnitPrice() As Currency, ReguestedPrice As Currency, Nproducts As Integer, i As Integer, Found As Boolean, ReguestedCode As String

With ActiveWorkbook.Worksheets("Коды товаров”).Range("A3")

Nproducts = Range(.Offset(1, 0), .End(xlDown)).Rows.Count

ReDim ProdCode(Nproducts)

ReDim UnitPrice(Nproducts)

For i = 1 To Nproducts

ProdCode(i) = .Offset(i, 0)

UnitPrice(i) = .Offset(i, 1)

Next i

End With

ReguestedCode = InputBox("Введите код товара (большая латинская буква и 4 цифры)")

Found = False

For i = 1 To Nproducts

If ProdCode(i) = ReguestedCode Then

Found = True

ReguestedPrice = UnitPrice(i)

Exit For

End If

Next i

If Found Then

MsgBox "Товар с кодом" & ReguestedCode & " стоит " & Format(ReguestedPrice, "0,00р."), vbInformation, "Товар не найден"

Else

MsgBox "Товара с кодом " & ReguestedCode & " нет в списке ", vbInformation, "Товар не найден”

End If

End Sub

23. Управляющая структура While-Wend

Действие ее подобно действию For-Next, но группа операторов вы-полняется не заданное число раз, а до соблюдения определенного условия. В программе Proc34 инструкция While-Wend использована для выделения определенного значения из последовательности случайных чисел.

Sub Proc34_WhileWend ( )

Dim LotteryEntry As Integer

LotteryEntry = 0

While LotteryEntry <> 7

LotteryEntry = Int (10*Rnd ( ))

Beep

Wend

MsgBox “Ваше число равно “& LotteryEntry &”. Вы выиграли!!”

End Sub

Программа Proc34 гарантирует, что в информационном окне всегда отображается заданное число. Цикл While-Wend выполняется, пока значе-ние переменной LotteryEntry не станет равным 7 (в условии использован оператор неравенства <>). При каждом выполнении цикла этой перемен-ной присваивается случайное значение от 1 до 9, а затем с помощью функ-ции VBA Beep, подается звуковой сигнал через внутренний динамик ком-пьютера. При запуске этой программы несколько раз, можно услышать разное количество сигналов, в зависимости от того, на каком шаге генера-тор случайных чисел вернет число 7.

Рассмотрим структуру цикла While-Wend подробнее.

While Ключевое слово, начало структуры While-Wend

LotteryEntry <> 7 Условие, определяющее, будет или нет вы-полнен цикл. Если оно соблюдено, цикл вы-полняется, если нет – управление передается оператору, стоящему перед ключевым сло-вом Wend

LotteryEntry=Int(10*Rnd( )) Первый оператор тела

Beep Второй оператор тела

Wend Ключевое слово, отмечающее конец струк-туры While-Wend

24. Управляющая структура Do-Loop

Она похожа на структуру While-Wend, однако дополнительно обладает двумя важными особенностями. Во-первых, условие завершения цикла Do-Loop можно задавать не только в его начале, но и в конце. Условие в конце цикла гарантирует, что он будет выполнен хотя бы один раз. Во-вторых, условие можно сделать критерием как выполнением цикла Do-Loop, так и его завершения. Последняя возможность в цикле While-Wend также доступна – чтобы цикл выполнялся, пока не соблюдено некоторое условие, его надо указать в структуре While с логическим оператором Not.

Рассмотрим несколько простых примеров. В программе Proc34 инструкция While-Wend применялась для определения момента, когда в последовательности случайных чисел появлялась семерка. В Proc35 та же операция осуществляется циклом Do-Loop.

Sub Proc35_DownileLoop ( )

Dim LotteryEntry As Integer

LotteryEntry = 0

Do While LotteryEntry <> 7

LotteryEntry = Int (10*Rnd ( ))

Beep

Loop

MsgBox “Ваше число равно “& LotteryEntry &”. Вы выиграли!!”

End Sub

Эта программа мало отличается от примера 34: во-первых, перед ключевым словом While появилось слово Do, во-вторых, в конце цикла вместо Wend стоит Loop. Однако цикл Do-Loop позволяет переписать эту процедуру еще несколькими способами. В примере 36 слово While заменено словом Until, а вместо оператора неравенства в сравнении LotteryEntry и 7 задан оператор равенства.

Sub Proc_DoUntilLoop ( )

Dim LotteryEntry As Integer

LotteryEntry = 0

Do Until LotteryEntry = 7

LotteryEntry = Int (10*Rnd ( ))

Beep

Loop

MsgBox “Ваше число равно “& LotteryEntry &”. Вы выиграли!!”

End Sub

Цикл Do-Loop позволяет внести в эту процедуру еще несколько изменений. Например, в программе Proc37 ключевое слово Do оставлено в начале цикла, а условие завершения и ключевое слово Until переместилось в его конец, за ключевое слово Loop. В таком варианте цикл обязательно выполняется хотя бы один раз, поскольку условие завершения не проверяется, пока не будут выполнены все операторы из тела цикла. Поэтому можно убрать оператор для инициализации переменной Lottery Entry.

Sub Proc37__DoLoopUntil ()

Dim LotteryEntry As Integer

Do

LotteryEntry = Int (10 • Rnd ( ))

Beep

Loop Until LotteryEntry = 7

MsgBox “Ваше число равно “& LotteryEntry &”. Вы выиграли!!”

End Sub