Оператори циклу

Умовний оператор і оператор вибору.

Умовний оператор організує виконання однієї з двох груп операторів у залежності від виконання умови. Синтаксис:

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

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

1. Оператор циклу з лічильником або з відомим числом повторень:

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

2. Оператор циклу по сімейству об'єктів.

For Each перемінна in сімейство

[Оператори - тіло циклу]

Next перемінна

Оператор повторює виконання операторів тіло циклу, поки перемінна перебирає всі об'єкти із сімейство об'єктів.

Приклад 3.6. У діапазоні B2:D30 знаходяться числа. Виділити кольором ті числа діапазону, що перевищують середнє значення більше ніж на 30%.

Sub ВиділенняКольором()

Dim r As Range, s As Integer

Range("F2"). FormulaLocal = "=СРЗНАЧ(B2:D30)"

s = Range("F2"). Value

For Each r In Range("B2:D30") ‘заголовок циклу по клітинах

If r. Value - s > s * 0.3 Then

r. Font. ColorIndex = 3 ‘ змінюємо колір

r. Font. Bold = True ‘ робимо цифри жирними

End If

Next r

Дата добавления: 2014-10-23