Лабораторная работа №25

End Select

Select Case n

Case 1

MsgBox "Равно 1"

Case 2,3

MsgBox "Равно 2 или З"

Case 4 To 6

MsgBox "Больше или равно 4 и меньше или равно 6"

Case Is >= 9

MsgBox "Больше или равно 9"

Case Else

MsgBox "Ни одно из предшествующих"

End Select

В качестве значения для блока Case можно указывать не только одно значение (1), но и несколько, разделенных запятой (2, 3). Можно определять также области сравнения (4 то 6) или воспользоваться относительным сравнением (is >= 9): вместо непосредственного проверочного выражения можно использовать ключевое слово Is.

Блок Case Else выполняется, если ни одно из предыдущих условий не является истинным.

Если условию Select Case соответствует несколько блоков Case, то выполняется первый из них.

Private Sub CommandButtonl Click()

Select Case nVariable

Case()

MsgBox "Равно 0"

Case -10 To 10 '

MSgBox "Между -10 и 10, кроме 0"

End Select

End Sub

Во втором блоке Case обрабатываются значения от -10 до 10, однако значение 0 перехватывается первым блоком Case. Поэтому операторы второго блока Case будут выполняться, если значение условия больше или равно -10 и меньше 0, а также больше 0 и меньше или равно 10.

Задания для самостоятельной работы:

1. Найти наибольшее из двух чисел.

2. Найти наименьшее из трех данных чисел

3. Найдите корни квадратного уравнения ах^А2+Ьх+с=0

4. Вывести сообщение «стой», «жди» или «иди», в зависимости от выбора цвета светофора.

5. Составить процедуру, которая по введенному пользователем номеру дня недели выводит его название на русском языке.

6. Написать программу, которая анализирует человека по возрасту и относит к одной из четырех групп: дошкольник, ученик, работник, пенсионер.

7. Составить процедуру, реализующую эпизод сказки: спрашивает куда предпочитает пойти герой (налево, направо или прямо), и печатает, что ждет его в каждом случае.

Тема: Язык программирования VBA. Циклы

Цель работы: Ознакомить с операторами цикла и привить навыки использования их при решении задач

Для многократного выполнения одного или нескольких операторов предназначены циклы. VBA предлагает две конструкции: цикл For...Next дает возможность устанавливать число проходов цикла, а цикл Do... Loop завершается при выполнении заданного условия.

For ... Next

Цикл For...Next является самой простой конструкцией:

For Счетчик = Начальное_значение То Конечпое­_значение [Step Шаг] Тело цикла

Next [Счетчик]

В начале выполнения цикла значение Счетчик устанавливается в Начальное значение. При каждом проходе переменная Счетчик увеличивается на 1 или на величину Шаг. Если она достигает или становится больше (меньше, при отрицательном шаге) конечного значения, то цикл завершается и выполняются следующие операторы. Разность между начальным и конечным значениями, деленная на величину шага, составляет число проходов.

Дата добавления: 2014-11-20