If умова then

інструкції 1

ELSE

інструкції 2

END IF

Алгоритм роботи оператора:

1. Якщо значення умови дорівнює істині, то виконується інструкція 1і управління передається на оператор, що слідує заінструкцією2(тобтоінструкція 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.

Тема роботи: Оператори циклу

Мета роботи: Вивчити оператори циклу та навчитися програмувати циклічні алгоритми

4.1 Теоретичні відомості

Циклом називають групу операторів, що повторюється багато­разово з різними значеннями деякої змінної, яка називається змінною або параметром циклу.

4.1.1 Оператор циклу з лічильником.

Синтаксис:

For параметр = значення1 To значення2 Step h

інструкції тіла циклу

Next

Оператор повторює виконання тіла циклу, змінюючи значення параметру циклу від значення1 до значення2 із кроком h. Якщо крок дорівнює 1, його можна не вказувати.

Задача 4.1. В діапазоні B2 : B24 записані числа. Знайти суму і кількість додатнних чисел діапазону.

Використаємо для розв’язку задачі об’єкт Cells – клітинку.

Sub СумаТаКількість( )

Dim suma as Single, k as Integer, i as Integer

suma =0 : k=0

For i =2 To 24

If Cells(i , 2) . Value >0 Then

k = k+1 ‘збільшуємо кількість

suma = suma +Cells(i , 2) . Value ‘накопичуємо суму

End if

Next i

MsgBox “Додатних чисел – “ & Str(k) & “, сума – ” & Str(suma)

End Sub