If умова then
інструкції 1
ELSE
інструкції 2
END IF
Алгоритм роботи оператора:
Якщо значення умови дорівнює істині, то виконується інструкція 1 і управління передається на оператор, що слідує за інструкцією2 (тобто інструкція 2 не виконується).
Якщо значення виразу -- неправда, то виконується. Інструкція 2.
Для запису умов можна використовувати операції порівняння =, <, <=, >, >=, <> та логічні операції AND, OR і NOT.
Декілька умов можна перевірити, використовуючи логічні операції або вкладені умовні оператори.
Частина ELSE може бути відсутня
If умова then оператор
Інколи в програмі необхідно вибрати один з кількох варіантів. В цьому випадку буває раціональним використання оператора Case що має такий формат
Select Case выраз
Case список 1 значень виразу
інструкції 1
Case список 2 значень виразу
інструкції 2
. . . . . . . . . . . . . .
Case Else
інструкції для Else
End Select
В першому рядку оператора записується вираз, а потім він порівнюється зі списками значень виразу.. Найчастіше вираз – це числова або строкова змінна. Якщо вираз задовольняє одному зі списків, то виконуються інструкції, записані після цього списку, і оператор закінчує роботу. Списки значень, записані нижче, не перевіряються, тобто виконується тільки одна з інструкцій. Якщо вираз НЕ задовольняє жодному зі списків значений, то виконується інструкція для Else. Проте, остання частина ( Case Else ) в операторі може бути відсутня.
Приклад виконання лабораторної роботи.
Знайти
значення
та
Sub Lab_2()
Dim a As Single, b As Single
Dim x As Single, f As Single
a = Worksheets("Лист1").Cells(1, 1).Value
b = Worksheets("Лист1").Cells(2, 1).Value
x = (a - b) / (a * a - a * b / Sin(a))
If a * b < 15 Then
f = Exp(a * x + 3) * Sin(x / b)
ElseIf (a * b >= 15) Then
f = a * Log(x) * Sin(x)
End If
Worksheets("Лист1").Cells(3, 1).Value = " X "
Worksheets("Лист1").Cells(4, 1).Value = " F "
Worksheets("Лист1").Cells(3, 2).Value = x
Worksheets("Лист1").Cells(4, 2).Value = f
End Sub
3.2 Індивідуальні завдання
На листі Excel знаходяться значення змінних а, в, с, d. Обчислити координати точки P(x,y) та вивести результати розрахунків на лист Excel.
Варіанти завдань
Номер варіанту |
Формули для обчислювання |
|
x |
y |
|
1 |
|
|
2 |
|
|
3 |
|
|
4 |
|
|
5 |
|
|
6 |
|
|
7 |
|
|
8 |
|
|
9 |
|
|
10 |
|
|
11 |
|
|
12 |
|
|
13 |
|
|
14 |
|
|
15 |
|
|
3.3 Контрольні запитання
1. Які типи даних використовуються в VBA.
2. Введення та виведення даних.
3. Для чого необхідні оператори Іf…Else? Наведіть приклади їх використання.
4. Як організувати вибір одного з кількох варіантів?
5. Правила запису логічних виразів. Операції відношення. Логічні операції.
Лабораторна робота № 4.