Упражнение 4
Изучите операторы For Each...Next.
Скопируйте в модуль код процедур ForEach и ForEach1, выполните процедуры и проанализируйте результаты их выполнения.
Оператор прерывания выполнения цикла Exit
Оператор Exit позволяет досрочно завершить выполнение и выйти из циклов, а также выйти из процедур и функций. В зависимости от места его использования в коде программы к оператору Exit добавляется ещё одно ключевое слово, а именно:
оператор Exit Do позволяет выйти из цикла Do…Loop;
оператор Exit For позволяет выйти из цикла For…Next или For Each … Next;
оператор Exit Function позволяет выйти из функции, в которой имеется данный оператор;
оператор Exit Sub позволяет выйти из процедуры Sub, в которой имеется данный оператор.
Процедура ПримерExit, код которой представлен ниже, использует инструкцию Exit для выхода из циклов For...Next, Do...Loop и процедуры Sub.
Sub ПримерExit()
Dim I, MyNum
Do ' Устанавливается бесконечный цикл
For I = 1 To 5 ' Цикл повторяется 5 раз
MyNum = Int(Rnd * 10) ' Генерируется случайное число
Select Case MyNum ' Определяется значение
' случайного числа
Case 3: MsgBox "Case 3": Exit For 'Если 3, то выход
' из For...Next
Case 2: MsgBox "Case 2": Exit Do 'Если 2, то выход
' из Do...Loop
Case 5: MsgBox "Case 5": Exit Sub 'Если 5, то выход
' из процедуры
End Select
Next I
Loop
End Sub
Символ двоеточие в процедуре используется для разделения инструкций в одной строке кода. В этой процедуре используются две стандартные функции VBA:
функция Rnd, генерирующая случайное число в виде правильной десятичной дроби;
функция Int, выделяющая целую часть числа.
В результате выполнения инструкции MyNum = Int(Rnd * 10) генерируется целое случайное число.
Если значение случайного числа равно 3, то на экран выводится сообщение Case 3 и происходит выход из внутреннего цикла For...Next для получения следующего случайного числа.
Если значение случайного числа равно 2, то на экран выводится сообщение Case 2, происходит выход из внешнего цикла Do...Loop, на экран выводится сообщение Цикл Do завершён и выполнение процедуры завершается.
Если значение случайного числа равно 5, то на экран выводится сообщение выполнение Case 5 и выполнение процедуры завершается.
Упражнение 5
Пример выхода из процедуры рассмотрен в процедуре DWL, рассмотренной ранее. В случае если на вопрос "Хотите выйти из программы?" вы нажмёте на кнопку Yes, будет осуществлён выход из процедуры. Выполните это действие.
Скопируйте в модуль и выполните процедуру ПримерExit несколько раз, чтобы посмотреть как работает оператор Exit при выходе из циклов и процедуры.
Контрольные задания к лабораторной работе №4
Выполнить свой вариант задания №3.1 и оформить работу.
Выполнить свой вариант задания №3.2 и оформить работу.
Выполнить свой вариант задания №5.1 из файла Задания_массивы.doc и оформить работу.
Выполнить свой вариант задания №5.2 из файла Задания_массивы.doc и оформить работу.
Выполнить свой вариант задания №6.1 из файла Задания_массивы.doc и оформить работу.
Выполнить свой вариант задания №6.2 из файла Задания_массивы.doc и оформить работу
Задания № 3.1 и № 3.2 брать из учебно-методического пособия Е.Г. Барщевский, А.Н. Егоров, Н.В. Крупенина, С.А. Неклюдова «Информатика. Структурное программирование».