Р ис. 4. Окно контрольного значения

Для добавления выражений в окно контрольных значений следует выделить в окне редактирования кода переменную или выражение и затем по команде Отладка/Добавить контрольное значение вызвать диалоговое окно Добавление контрольного значения.

Контролируемые выражения можно использовать также для назначения точек останова. В диалоговом окне Добавление контрольного значения имеется возможность назначить точки останова двух типов:

1. Точки останова, автоматически переводящие программу в режим паузы, как только выполнится оператор, изменяющий на ненулевое значение заданного выражения (в VBA 0 означает False, а любое ненулевое значение — это True). Для назначения этого типа точки останова выберите переключатель Останов, если выражение истинно.

2. Точки останова, автоматически переводящие программу в режим паузы при изменении значения заданного выражения. Чтобы назначить точку останова этого типа нужно выбрать переключатель Останов при изменении значения.

Таким образом, современные среды визуального программирования предельно облегчают отладку программ.

8. Лабораторные работы

Vba1. Создание простейшего интерфейса. Калькулятор

Описание калькулятора.

Операнды (числа) вводятся в поля - в регистры R1, R2. Результат вычислений заносится в регистр R2. Операции имеют вид: R2 = R2 операция R1, R2=1/R2, R2=R2^2, R2=R2^3, R2=R2^(1/2). Кроме того, предусматриваются операции присваивания: R1 = 0, R2 = R1, R2 = R3, R3 = 0, R3 = R2, R3 = R3 + R2.

Создание интерфейса пользователя.

1. Меню Вид/Панели инструментов/Visual Basic.

2. Кнопкой в виде молоточков вывести на экран панель, содержащую элементы управления.

3. Перейти в режим конструктора - кнопка с изображением треугольника и карандаша.

4. Кнопкой в виде листочка с указательным пальцем вывести окно Свойства.

5. Разместить на листе Excel элементы управления: заголовки с именами (свойство Name) Label1, Label2, Label3 и с надписями (свойство Caption) Регистр 1, Регистр 2, Регистр 3; поля с именами (свойство Name) R1, R2, R3 и со значением свойства Value, равным нулю; кнопки с надписями (свойство Caption - см. рисунок).

6. Написать процедуру для каждой кнопки.

Разработка событийных процедур.

Рассмотрим несколько процедур: Сложение – выполняется при нажатии командной кнопки с надписью + (свойство Caption), Умножение (*), Извлечение квадратного корня - командная кнопка с именем (Name) x12 и c надписью (Caption) x^(1/2).

Private Sub Сложение_Click()

R2.Value = Val(R1.Text) + Val(R2.Text) ' Функция Val преобразует символы в числа

End Sub

Private Sub Умножение_Click()

R2.Value = R1.Value * R2.Value

End Sub

Private Sub x12_Click()

If R2.Value > 0 Then ' если знаменатель больше нуля, то возможна операция деления

' Функция Format преобразует число в символы с тремя знаками после запятой

' Функция Sqr извлекает квадратный корень из числа

R2.Text = Format(Sqr(R2.Value), "0.000")

Else

' сообщение с помощью функции MsgBox, если подкоренное выражение отрицательно

MsgBox ("R2 <= 0")

End If

End Sub

Для перехода к тексту процедуры в окне редактора VBA - двойной щелчок мышью по командной кнопке в режиме конструктора.