Презентація на тему:
Оператор розгалуження

Оператор розгалуження

Умовний оператор If…Then…Else Умовний оператор використовується для подання розгалуженого обчислювального процесу у коді програми мовою Visual Basic. Умовний оператор If…Then…Else має дві структури: лінійну та блочну.

Синтаксис лінійної структури умовного оператора: If Then [ Else ] If Then + - Else Логічний вираз Оператор 1 Оператор 2

Блочна форма оператора If…Then…Else Синтаксис блочної форми умовного оператора: If< логічний вираз 1> Then оператори 1 [Else if Then оператори 2] [Еlse оператори n] End If

Приклад: Скласти програму для визначення права на отримання пенсії. «Людині призначається пенсія, якщо ця людина чоловік і йому більше 60 років, чи якщо ця людина жінка і їй більше 55 років, чи якщо стаж роботи людини «на шкідливому виробництві» перевищив 25 років».

Для початку потрібно створити в візуальному середовищі новий проект типу Windows Forms Application. Потім на форму потрібно додати відповідні об’єкти для того щоб форма набула такого вигляду як на малюнку нижче: Далі програмуємо кнопку для визначення права на отримання пенсії.

Розглянемо код кнопки: Dim vik, stag As Integer – оголошуємо змінні vik та stag цілочислового типу Dim st As String – оголошуємо змінну st рядкового типу vik = Convert.ToInt32(TextBox2.Text()) – присвоюємо змінну vik значенню введених даних в текстове поле TextBox2 stag = Convert.ToInt32(TextBox3.Text()) – присвоюємо змінну stag значенню введених даних в текстове поле TextBox3 st = TextBox1.Text() - присвоюємо змінну st значенню введених даних в текстове поле TextBox1 If (((st = "Ч") And ((vik >= 60) Or (stag >= 25)))) Or (((st = "Ж") And ((vik >= 55) Or (stag >= 25)))) Then – складаємо складний вираз TextBox4.Text() = "Людина має право отримувати пенсію!" – якщо умова вірна, то TextBox4 отримує відповідне значення Else : TextBox4.Text() = "Людина не має право отримувати пенсію!" – якщо умова хибна, то TextBox4 отримує відповідне значення End If – кінець умовного оператора