Тема 4. Основы алгоритмики. Языки высокого уровня программирования
Do
Loop
Цикл Do Until
Do
Loop
Цикл Do While
В отличие от цикла For-Next, конструкция Do While выполняется до тех пор, пока не произойдет определенное условие. В цикле Do While используется следующий синтаксис:
Do [While условие]
операторы
Или:
операторы
Loop [While условие]
В VBA можно поставить условие While в начале или в конце цикла. Разница между представленными выше вариантами синтаксиса заключается в выполнении условий. Цикл первого варианта синтаксиса может не выполниться ни разу. Во втором варианте синтаксиса условие всегда выполняется хотя бы один раз.
Структура цикла Do Until напоминает конструкцию Do While. Разница заметна только при выполнении условий. В цикле Do While операторы выполняются, пока условие верно. В цикле Do Until оераторы выполняются до тех пор, пока условие не станет верным. В цикле Do Until используется такой синтаксис:
Do[Until условие]
операторы
Или:
операторы
Loop [Until условие]
В качестве примера реализации цикла типа “пока” рассмотрим программу, позволяющую бросать игральную кость до тех пор, пока не выпадет 6 очков.
Sub Игра()
Dim i As Integer
Dim Очко As Integer
Randomize Очко = Int(6 * Rnd()) + 1
i = 1
While Очко < 6
i = i + 1
Очко = Int(6 * Rnd()) + 1
Wend
MsgBox "Победили на броске " & i
End Sub
Здесь реализована цикл в виде While/Wend. Для получения очков, выбрашенных игральной костью использована VBA – функция Randomize. Результат работы программы показан на рис. 6.
Рисунок 3.6. Результат работы программы.
Список используемой литературы:
1) Баженова И.Ю., Сухомлин В.А.Введение в программирование. Курс лекций. http://www.intuit.ru
2) Громов Ю.Ю., Иванова О.Г., Лагутин А.В. Информатика: Учебное пособие. - Тамбов: Изд-во Тамб. гос. техн. ун-та, 2002. - 92 с. http://window.edu.ru/
3) Биллиг А.В. Основы офисного программирования и язык VBA. Курс лекций. http://www.intuit.ru/department/office/vba2000/
4) Уокенбах Дж. Подробное руководство по созданию формул в Excel 2003. Пер. с англ. – Издательский дом “Вильямс”, 2005. – 640 с.
АВТОР-СОСТАВИТЕЛЬ: ИВИНА Н.Л.