Упражнение

Во-первых, создайте процедуру с именем ТестЩелчок. Эта процедура должна выводить на экран окно сообщения с текстом "Вы хотите продолжать?" и кнопками ОК и Отмена. Примените оператор If, чтобы узнать, на какой кнопке щелкнул пользователь, и выведите окно сообщения, показывающее выбор пользователя.

Далее, создайте еще одну процедуру под названием Скидка. Процедура должна вывести на экран окно ввода, предлагающее ввести категорию скидки: 1, 2, 3 или 4. С помощью оператора Select Case организуйте вывод величины скидки в окне сообщения. Категории 1 соответствует скидка 5%, категории 2 - 10%, категории 3 - 15% и категории 4 - 20%.

Полный код процедуры;

Sub ТестЩелчок()

Dim iResponse As Integer

iResponse = MsgBox("Вы хотите продолжать?", vbOKCancel)

If iResponse =vbOk Then

MsgBox "Щелчок на кнопке ОК."

Else

MsgBox "Щелчок на кнопке Cancel."

End If

End Sub

Sub Скидка()

Dim iDiscountCategory As Integer

iDiscountCategory = InputBox("Введите категорию скидки; ")

Select Case iDiscountCategory

Case 1

MsgBox "Скидка 5%"

Case 2

MsgBox "Скидка 10%"

Case 3

MsgBox "Скидка 15%"

Case 4

MsgBox "Скидка 20%"

Case Else

MsgBox "Неправильная категория скидки."

End Select

End Sub

Ответы к 7-му часу

Тесты

1. Назовите два основных типа операторов цикла в VBA.

Операторы типа For и операторы типа Do.

1. Какой оператор позволяет досрочно выйти из цикла?

Оператор Exit For и оператор Exit Do.

1. Какие есть два типа оператора Do... Loop?

Оператор Do While и оператор Do Until.

1. Истинно или ложно следующее утверждение: логическое условие для оператора Do... Loop должно располагаться только в начале оператора?

Ложно.