 |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
End Sub. Программа WhileWend гарантирует, что в информационном окне всегда отображается заданное число
|
|
Программа WhileWend гарантирует, что в информационном окне всегда отображается заданное число. Цикл While-Wend выполняется, пока значение переменной LotteryEntry не станет равным 7 (в условии использован оператор неравенства <>).
При каждом выполнении цикла этой переменной присваивается случайное значение от 0 до 9, а затем (впрочем, без особой надобности) вызывается функция VBA Веер, подающая звуковой сигнал через внутренний динамик компьютера. Запустите эту программу несколько раз и вы услышите разное количество сигналов, в зависимости от того, на каком шаге генератор случайных чисел вернет число 7.
ЗАМЕЧАНИЕ. Чтобы генератор случайных чисел при каждом запуске приложения выдавал новую последовательность случайных чисел, вставьте в начало программы команду Randomize. Если вы этого не сделаете, при каждом открытии файла рабочей книги будет генерироваться одна и та же последовательность.
Рассмотрим структуру цикла While-Wend подробнее.
| Элементы структуры | Описание |
| While | Ключевое слово, отмечающее начало инструкции While-Wend |
| LotteryEntry <> 7 | Условие, определяющее, будет или нет выполнен цикл. Если оно соблюдено, цикл выполняется, если нет – управление передается инструкции, стоящей за ключевым словом Wend |
| LotteryEntry = Int(10 * Rnd()) | Первая инструкция цикла |
| Beep | Вторая инструкция цикла |
| Wend | Ключевое слово, отмечающее конец инструкции While-Wend |
Дата публикования: 2014-11-26; Прочитано: 187 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
