Пример 1. Visual Basic for Applications for Applications (VBA)

Visual Basic for Applications for Applications (VBA). Лабораторные работы. Часть 2

Введение

Процедуры в Visual Basic for Applications могут проверять некие условия и затем, в зависимости от результатов проверки, выполнять разные операции. Обычно условие является простым сравнением, но оно может быть любым выражением с вычисляемым значением. Visual Basic for Applicationsинтерпретирует это значение как True (истина) или False (ложь).

Тема №1: «Условный оператор»

Для записи разветвляющихся алгоритмов используется оператор If.

Он имеет две формы записи.

1. Однострочная запись:

If условие Then [ оператор1 ] [ Else оператор2 ]

Если условие, верно, то выполняется оператор 1, в противном случае выполняется оператор 2.

В условии записывается логическое выражение, которое использует операции сравнения.

Оператор сравнения	Значение	Пример
= (знак равенства)	Равно	A1=B1
> (знак больше)	Больше	A1>B1
< (знак меньше)	Меньше	A1<B1
>= (знак больше и знак равенства)	Больше или равно	A1>=B1
<= (знак меньше и знак равенства)	Меньше или равно	A1<=B1
<> (знак «не равно»)	Не равно	A1<>B1

Пример:

If A<0 then A=10 else A=A-1

Для создания сложных условий используются логические операции and (и) и or (или).

If A>0 and A<2 then A=10 else A=A-1

2. Многострочная запись:

If < условие > Then

[ оператор1 ]
Else

[ оператор2 ]

End If

Если при выполнении условия должно быть выполнено несколько операторов, то применяется составной оператор:

If условие Then [оператор 1, оператор 2 и т.д.] [ Else оператор1, оператор2 и т.д.] end if

Пример:

If A<0 then

S=S+1

A=10

Else

S=12

A=A+10

End if

Если при выполнении условия 1 должен быть выполнен оператор 1, а в противном случае при выполнении условии 2 должен быть выполнен оператор 2 и т.д., то применяется вложенный условный оператор:

If условие-1 Then
[ оператор1 ]

[ ElseIf условие-2 Then
[ оператор2 ]...

[ Else [ оператор3 ]]

End If

End If

Пример 1.

1. Составьте процедуру для решения следующей задачи: Даны действительные числа х и у. Присвоить переменной z значение х - у, если х > у; в противном случае присвоить z значение у - х+ 1.

2. Для этого:

а) добавьте к проекту форму;

б) разместите на форме 3 элемента "Надпись" (Label3 – для вывода результата), 2 элемента "Поле" (TextBoxl - для ввода х, TextBox2 — для ввода у) и 2 элемента "Кнопка";

в) свойство BorderStyle (стиль рамки) элемента "Надпись" с именем Label3 установите в значение 1;

г) измените значения других свойств объектов так, чтобы форма имела следующий вид:

3. В окне редактирования модуля наберите для события Click перво­го элемента "Кнопка" код процедуры: