VBA. Оператор условного перехода. Объекты Excel
Цель работы:
-Разработка программ разветвляющейся структуры с условным оператором IF.
- Программирование с использованием объектов EXCEL.
Для выполнения примеров и заданий создайте файл Lab_2_VBA (имя можете выбрать по своему.
Часть 1.
1. В схемах алгоритмов выбор условия обозначается с помощью символа,
от которого отходит ветвление для указания дальнейших действий в зависимости от выбора “ДА” или “НЕТ”.Выбор хода алгоритма, как правило,зависит от значения переменной или выражения, состояния объекта. Например,
НЕТ
…
ДА
….
2. В программном коде, чтобы реализовать ветвление применяется условный оператор
IFTHEN.
Примечания.
1 В приведенных ниже описаниях синтаксиса выражения, записанные в [ ] (квадратные скобки) необязательны.
Использование: (двоеточие) позволяет записать несколько выражений в одной строке. Применяется редко.
Условный оператор позволяет выбирать и выполнять действия в зависимости от истинности некоторого условия. Имеется два варианта синтаксиса: В первом случае он имеет вид:
IF< условие >Then [операторы 1] [ Else [операторы 2] ]
Во втором случае оператор расположен на нескольких строках:
IF< условие >Then
[операторы]
[ElseIf< условие – n> Then
[операторы-n ]…
[Else]
[ИначеОператоры]]
EndIf
Здесь условие обязательно в обоих вариантах. Оно может быть числовым или строковым выражением со значениями TRUE или FALSE.
Операторы 1 и операторы 2 это последовательности из одного или нескольких операторов. По крайней мере одна из этих последовательностей должна быть непустой. Если условие истинно (TRUE), выполняется последовательность «операторы 1», если ложно, “операторы 2”.
|
|
Примеры записи оператора:
Условный оператор в виде одной строки:
IF A>10 Then A=A+1: B=B+A: C=C+B ELSE C=A*B: A=C+2
Тот же условный оператор в виде блока:
IF A>10 Then
A=A+1
B=B+A
C=C+B
ELSE
C=A*B: A=C+2
EndIf
Далее рассматривается примеры использования условного оператора и задания для выполнения.
Задание 1 Определить положение точки с заданными координатами на плоскости.
Пример1 (Выполнить)
Если точка М(x1,y1)лежит:
· выше прямой y=kx+b, то выдать сообщение “Точка М лежит выше прямой”;
· ниже прямой, то выдать сообщение “Точка М лежит ниже прямой”;
· на прямой, то выдать сообщение “Точка М лежит на прямой”.\
Решение задачи.
 |
1 этап. Разработать интерфейс приложения.
Рис.1 Интерфейс приложения
2 этап. Определить ход решения задачи и составить алгоритм программы. В нашей задаче, чтобы определить положение точки относительно прямой, нужно подставить координату точки X1 в уравнение прямой и сравнить полученное значение Yc координатой точки Y1. Если значение Y=Y1, точка лежит на прямой; если полученное значение Y>Y1, точка –ниже прямой, и,наконец, если Y<Y1, точка – выше прямой.
СХЕМА АЛГОРИТМА ПРОГРАММЫ(См. ниже)
3 этап. Загрузить редактор VBA и разработать приложение, используя в качестве интерфейса UserForm.
 | |||
 |
4 этап. Написать программный код. Для этого рекомендуется выполнить двойной щелчок по кнопке СТАРТ и перейти в окно программы, где набрать текст процедуры обработки события.
Примерная структура процедуры приведена ниже. Приведены пронумерованные блоки выражений и операторов. Для вывода сообщения использована функция MsgBox.
|
|
PrivateSubCommandButton1_Click()
1. Описаниепеременныxx1, y1, k, b, y
Dim x1 As Double, y1 As Double, k As Double
2. Блок операторов считывания значений переменных из окон TextBox. (Подобные операторы применялись в предыдущей лаб. работе).
3. Оператор определения значения y (y = k * x1 + b)
4. Условный оператор (текст приведен ниже)
Ify = y1 Then
MsgBox "Точка лежит на прямой"
ElseIfy>y1 Then
MsgBox "Точка лежит ниже прямой "
Else
MsgBox "Точка лежит выше прямой "
EndIf
EndSub
Процедурадлякнопки ВЫХОД:
Private Sub CommandButton2_Click()
Unload UserForm1 (илиUserForm1.Hide)
EndSub
Для объекта Флажок ( CheckBox) -подобная процедура разрабатывалась в лаб. работе №1.