Умовний оператор і оператор вибору.
Умовний оператор організує виконання однієї з двох груп операторів у залежності від виконання умови. Синтаксис:
If умова Then
[Операторы1] - виконуються, якщо умова виконана
Else
[Операторы2] - виконуються, якщо умова не виконана
End If
Приклад 3.2. Використання умовного оператора.
Sub Розгалуження()
Dim x as Integer
x=InputBox(“Введіть число”)
If x>=0 Then
MsgBox “Ви ввели позитивне число або нуль”
Else
MsgBox “Ви ввели негативне число”
End If
End Sub
Оператор вибору організує виконання однієї з декількох груп операторів у залежності від значення деякого виразу. Синтаксис:
Select Case вираз
Case умова1
[група операторів 1]
Case умова2
[група операторів 2]
………………………………………………
Case умова N
[Група операторів N]
End Select
У якості умов після слова Case можна записувати одне з таких виражень:
значення; наприклад, case “весна”
Is знак_відношення значення; наприклад, case Is <20
значення1 To Значення2; наприклад, case 10 To 50
Приклад 3.3. Процедура виводить повідомлення про рівень рейтингу.
Sub Вибір()
Dim x as Integer
x=InputBox(“Введіть число від 0 до 100 - значення рейтингу”)
Select case x
Case Is <30
MsgBox “Рейтинг низький”
Case 30 To 60
Msgbox “Рейтинг середній”
Case Is >60
Msgbox “Рейтинг високий”
End Select
End Sub
3.5 Оператори циклу
Циклом називають групу операторів, що повторюється багаторазово з різноманітними значеннями деякої перемінної, що називається перемінною циклу. Оператори циклу організують повторення груп операторів. Синтаксис операторів циклу:
Оператор циклу з лічильником або з відомим числом повторень:
For лічильник = початок To кінець Step крок
[Оператори - тіло циклу]
Next лічильник
Оператор повторює виконання операторів тіло циклу, змінюючи значення перемінної лічильник від значення початок до значення кінець із кроком крок. Наведемо декілька прикладів використання цього оператора циклу.
Приклад 3.4. Обчислити таблицю значень функції
y=
,
Для значень х, що змінюються від -2 до 2 із кроком h=0.2. Таблицю помістити на робочий лист.
Sub Таблиця()
Dim x as Single, z as Single, i as Integer
Dim a as Single, b as Single, h as Single
a=InputBox(“Введіть початкове значення аргументу x”)
b= InputBox(“Введіть кінцеве значення аргументу x”)
h= InputBox(“Введіть крок для аргументу x”)
Worksheets(“Лист1”) . Activate
Range(“A1”). Value=”x”
Range(“B1”). Value=”y” ‘ Записуємо заголовки колонок таблиці
i=2 ‘ Номер рядка, починаючи з якого записуємо значення
For x=a To b Step h
If x<=0 Then
y = 3*sin(x)-cos(x)^2
Else
y = 3*sqr(1+x^2)
End if
Cells(i,1). Value = x ‘ Записуємо обчислені значення
Cells(i,2). Value = y
i = i + 1 ‘ збільшуємо номер рядка на 1
Next x
End sub
Приклад 3.5. У таблиці в діапазоні B2:B24 записані числа. Написати процедуру, що обчисляє суму і кількість позитивних чисел діапазону.
Sub СумаТаКількість()
Dim s as Single, k as Integer, i as Integer
s=0 : k=0
For i=2 To 24 ‘цикл, що працює 23 рази
If Cells(i,2). Value >0 Then
k=k+1 ‘збільшуємо кількість
s=s+Cells(i,2). Value ‘ накопичуємо суму
End if
Next i
MsgBox “Позитивних чисел - “ & k & “, їхня сума -” & s
End sub