Теоретичні відомості. Оператор переходу GoTo

Оператор переходу GoTo

Оператор GoTo - це оператор безумовного переходу, який відноситься до групи операторів управління ходом виконання програми. Оператор безумовного переходу завжди змінює порядок виконання операторів у програмі - при цьому VBA не перевіряє жодних умов, а просто переходить до подальшого виконання програми з того місця, яке буде вказано в цьому операторі. Оператор GoTo має наступний синтаксис.

GoTo Lab1

Тут Lab1 - мітка, яка визначає оператор (або групу операторів), з якого буде продовжено виконання програми. Мітка - це будь-який допустимий ідентифікатор VBA, за яким обов'язково має слідувати двокрапка. Програма, написана на мові VBA, може містити будь-яку кількість міток, однак оператор GoTo не може вказувати на мітку, що знаходиться поза тієї процедури, в якій він знаходиться. Інакше кажучи, мітка, на яку посилається оператор GoTo, повинна бути обов'язково розташована в тій же процедурі, що і цей оператор.

Оператор умовного переходу If... Then

У мові VBA є два умовних оператора переходу - I f... Then і Select Case.

Оператор If... Then - один з найважливіших керуючих операторів. Він організовує виконання заданого блоку операторів, якщо при обчисленні зазначеного умовного виразу буде отримано значення True, і не робить нічого, якщо буде отримано значення False. Синтаксис цього умовного оператора наступний.

If умова Then (оператори)

Тут умова - це умовний вираз, який VBA повинен обчислити для перевірки виконання умови. Якщо обчислене значення дорівнює True, виконується оператор (або блок операторів), наступний за ключовим словом Then, до кінця рядка. Якщо в операторі if... Then виконується тільки один оператор, коли перевіряється умова приймає значення True, ми будемо говорити про однорядковий оператор. Така конструкція If... Then записується в одному рядку, і завершальний оператор End If для неї не потрібен.

Проте в операторі If... Then може виконуватися не тільки один оператор, а й блок послідовних операторів. У цьому випадку перевіряється умова і виконувані оператори записуються в окремих рядках. Якщо умовний вираз має значення True, виконувана група операторів починається з першого оператора, розміщеного після ключового слова Then, і включає всі наступні оператори, аж до оператора завершення End If.

If умова Then (оператори)

End If

Для більш складних ситуацій, коли на підставі деякої умови необхідно вибрати одну з двох різних послідовностей операторів, використовується оператор If... Then... Else.

Однорядковий оператор Іf... Then... Else не завжди зручний при написанні програми, тому краще скористатися блоковим оператором If... Then... Else, в якому умова і оператори записуються в окремих рядках. В цьому випадку синтаксис оператора Іf... Then... Else наступний.

If умова Then (оператори1)

Else

(оператори2)

End If

Тут умова - це перевірка умовного виразу. Якщо значення цього умовного виразу True, то VBA виконує оператори блоку (оператори1), а потім, пропустивши всі інші оператори структури lf... Then... Else, переходить до рядка, наступного за оператором End If. Якщо значення умовного виразу False, виконуються оператори блоку (оператори2), розташовані після ключового слова Else, аж до оператора End If. Після цього VBA продовжить виконання програми починаючи з першого оператора, наступного за оператором End If.

Оператор Select Case

Крім розглянутих вище умовних операторів, в мові VBA є ще один умовний оператор переходу Select Case. Цей умовний оператор використовується в тому випадку, коли необхідно перевіряти одне й те ж значення, порівнюючи його з різнимими виразами. Після вихідного оператора Select Case за значенням яке перевіряється може слідувати довільна кількість операторів перевірки умови Case, причому в кожному з них перевіряється виконання різних умов. У будь-якому випадку виконується тільки одна з гілок Case (та, в якої було виявлено перше істина умова), або жодна (якщо всі умови виявилися не виконаними). Після кожного оператора перевірки умови Case можна записувати будь-яку кількість виконуваних операторів. Якщо виконується тільки один оператор, то він записується в одному рядку з оператором Case. Синтаксис оператора Select Case буде таким.

Select Case значення Case умова 1 (оператори1)

Case умова2 (оператори2)

Case умоваN (операториN)

Case Else Це необов'язковий оператор конструкції

(Оператори_else)

End Select

Спочатку обчислюється вираз значення, яке може бути будь-яким числовим або рядковим виразом, а потім отриманий результат порівнюється з кожною з умов в операторах Case, починаючи з першого умова1. Якщо результат обчислення виразу значення збігається зі значенням виразу умова1, будуть виконані оператори блоку (оператори1), після чого виконання програми продовжиться починаючи з оператора, наступного за оператором End Select. Якщо результат обчислення виразу значення не збігається ні з одним із значень виразів, починаючи з висловлю-вання умова1 і закінчуючи виразом умоваN, то буде виконаний блок операторів наступний за ключовим словом Case Else. Оператор Case Else завжди знаходиться в кінці конструкції Select Case і не є обов'язковим - він і відповідний йому блок операторів можуть бути опущені.

Слід зауважити, що в кожному операторі Case вираз умову можна представити наступним чином.

■ Будь-який вираз (числовий, стррядковий або логічний). В цьому випадку результат обчислення виразу значення повинен в точності збігатися з результатом ви-лення значення виразу умова.

■ Вираз, що задає діапазон значень. В цьому випадку зазначаються граничні значення діапазону, об’днані ключовим словом То. Наприклад, запис 10 То 20 означає, що значення виразу має потрапити до діапазону чисел від 10 до 20.

■ Конструкція з ключовим словом Is, поміщеним перед оператором порівняння. Після оператора порівняння записується то вираз, із значенням якого проводиться порівняння. Наприклад: Is> 20.

В одному операторі Case можна вказати кілька виразів умов, які в цьому випадку розділяються комами.

Завдання: Розробити алгоритм і написати на мові VBA програму обчислення значень функцій відповідно варіантам, що наведені в табл. 1.

Таблиця 1. Варіанти завдань до лабораторної роботи

ЛАБОРАТОРНА РОБОТА № 6.