Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Private Sub CommandButton1_Click()
|
|
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 первого элемента " Кнопка" код процедуры:
Private Sub CommandButton1_Click()