Умовні оператори

ФУНКЦІЇ ДЛЯ РОБОТИ З РЯДКОВИМИ ЗМІННИМИ

Фунція	Дія	Приклад
Ucase	Переводить усі символи рядка у верхній регістр	Ucase("Ivanenko") - IVANENKO
Lcase	Переводить усі символи рядка в нижній регістр	Lease("Ivanenko") — ivanenko
Len	Визначає довжину рядка	Lеn("Ivanenko") — 8
Right	Повертає задане число символів, починаючи від кінця рядка	Right("Ivanenko", 2)—"ko"
Left	Повертає задане число символів, починаючи від початку рядка	Left("Ivanenko", 4) — "Ivan"
Mid	Повертає задане число символів, починаючи від указаної позиції	Mid("Ivanenko", 2, З) — "van"
String	Повторює вказаний символ — установлену кількість разів.	String(4, "$"} — $$$$

Умовні оператори застосовуються в програмах для управління виконанням дій залеж- но від результату перевірки заданої умови. Результатом перевірки умови може бути значен- ня True (істина) або False (хибність). Відповідно ці значення можуть бути збережені в змін- них типу Variant або Boolean.

В умовних виразах використовуються такі оператори:

Оператор	Значення
>	Більше
<=	Менше або дорівнює
>=	Більше або дорівнює
=	Дорівнює
<>	Не дорівнює

тина).

Оператор If. Існує простий тип умовного оператора

If <умова> Then <дія>

У такому операторі <дія> виконується лише тоді, коли значенням <умова> є True (іс-

Наприклад, при правильному пинкоді з'являється повідомлення

If pinkod ="666" Then MsgBox ("Пинкод — правильний!").

Оператор може також складатися з кількох рядків, тоді після слова Then відбувається

перехід на наступний рядок і кінцевим є оператор End If. Наприклад: If pinkod ="666' Then

MsgBox ("Пинкод — правильний!") End If

Якщо умова має значення False (хибність), то виконується оператор, розташований після умовного оператора (або блока операторів).

У випадку, коли дія має виконуватися при значенні умови False, використовують оператор Not. Наприклад, при будь-якому неправильному паролі на екрані дисплея з'яв- ляється повідомлення, і програма закінчує свою роботу:

If Not pinkod ='121" Then

MsgBox ("Пинкод — неправильний!") End

End If

Умовний оператор може мати кілька умов для перевірки значень, тоді він є складним умовним оператором і має такий вигляд:

If <умова 1> Then

<дія 1> — виконується, коли значення умови 1 — True; ElseIf <умова 2> Then

<дія 2> — виконується, коли значення умови 2 — True; Else

<дія 3> — виконується, коли значення умови 1 та умови 2 — False, тобто в усіх інших випадках;

End if

У наведеному нижче прикладі залежно від значення змінної VKlad виконуються такі дії (змінна VKlad оголошена як Integer):

If VKlad < О Then

MsgBox ("Зверніться, будь ласка, до кредитного відділу ")

Elself VKlad >1000 Then MsgBox ("12 % річних ") Else

MsgBox ("Ми не маємо можливості Вас обслужити ") End If

В умовних операторах для зв'язування кількох умов використовуються такі ключові

слова:

Ключові слова	Дії
And	Якщо обидві умови мають значення True,то й результат перевірки умов має значення True
Or	Якщо одна із умов має значення True,то й результат пе- ревірки умов має значення True

Приклад 1: 1 < x < 10 — (1 < x) AND (x < 10).

 x < 0

Приклад 2: 

 x > 1000

— (x < 0) OR (x > 1000).

Побудова умовних виразів за допомогою операторів Select Case. Більш наочною і зручною є структура Select Case. Ці вирази дають змогу виконувати вибір із кількох фраг- ментів програми залежно від значення умовного виразу або змінної. Загальний вигляд стру- ктури Select Case такий:

Select Case <змінна> Case <значення 1> програмні оператори 1

Case <значення 2>

програмні оператори 2

................... Case Else

програмні оператори З

End Select

У такій структурі завжди виконується лише одна група програмних операторів, при- чому параметри Змінна та Значення повинні мати однаковий тип. Параметр Значення мо- же бути:

• оператором порівняння, наприклад Case X < 2;

• числом (змінною) — Case 3;

• списком значень — Case 2,4,6;

• діапазоном значень — Case 5 То 10.

Нехай, наприклад, залежно від значення X розраховується Y. Тоді маємо таку струк-

туру Select Case:

Select Case X

Case 5 то 10 ' значення X від 5 до 10

Y = X*2

Case Is = 100 ' значення X дорівнює 100

У = X/2

Case Is > 500 ' значення X більше 500

Y = X^(1/2)

Case Else ' в інших випадках

Y = X

End Select

Оператор Case Else передає управління групі операторів тоді, коли жодна умова у створеній структурі Select Case не може бути виконана.

Дата добавления: 2014-01-07