Тема 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 с.

 

АВТОР-СОСТАВИТЕЛЬ: ИВИНА Н.Л.