Select Case X

End If

If умова Then

End If

Else

Умовний оператор If

Оператор If реалізує алгоритмічну конструкцію “Розгалуження”.

Загальна форма оператора:

If <умова> then

<Блок_операторів_1>

<Блок_операторів_2>

“Блок_операторів_1” виконується в тому випадку, якщо умова має значення «істинно». У тому випадку, якщо логічна умова має значення «брехня» виконується “Блок_операторів_2”.

Оператор If можна використовувати також у такій формі:

Блок_операторів

Скорочена форма оператору If застосовується тоді, коли блок операторів слід виконувати лише при істинності деякої умови.

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

При запису розгалужених обчислювальних процесів необхідно додержуватися наступних вимог:

1. У різноманітних гілках можна використовувати ті ж самі позначення перемінних.

2. Обчислення або процеси, що повторюються в різноманітних гілках блок - схеми, виносяться за межі розгалуження (у нашому прикладі це - обчислення а * х і друк результату).

3. Складні обчислення розбиваються на ряд простих.

З урахуванням перерахованих вимог, рішення задачі буде виглядати в так:

< >=

Рисунок 1. Блок-схема алгоритму обчислення

На етапі візуального програмування потрібно створити форму, подану на рис.2

Рисунок 2. Вікно програми-прикладу (форма) використання оператору If

Характеристика форми, елементів управління подана в таблиці.

Об'єкт	Властивість	Значення
Форма (Form)	Name	frmExampleIf
Caption	Програма - приклад If
BackColor	білий
Командна кнопка (Command Button)	Name	cmdSolve
Caption	Розрахунок
Font	12 пунктів, напівжирний
Командна кнопка (Command Button)	Name	cmdClear
Caption	Очистка
Font	12 пунктів, напівжирний
Командна кнопка (Command Button)	Name	cmdExit
Caption	Вихід
Font	12 пунктів, напівжирний
Етикетка (Label)	Name	lbla
Caption	Перемінна а
BackColor	білий
Font	12 пунктів, напівжирний
Етикетка (Label)	Name	lblb
Caption	Перемінна b
BackColor	білий
Font	12 пунктів, напівжирний
Етикетка (Label)	Name	lblx
Caption	Перемінна х
BackColor	білий
Font	12 пунктів, напівжирний
Етикетка (Label)	Name	lbly
Caption	Результат
BackColor	білий
Font	12 пунктів, напівжирний
Текстове поле (TextBox)	Name	txta
Text	“ëû” (порожній рядок)
Текстове поле (TextBox)	Name	txtb
Text	“ëû” (порожній рядок)
Текстове поле (TextBox)	Name	txtx
Text	“ëû” (порожній рядок)
Текстове поле (TextBox)	Name	txty
Text	“ëû” (порожній рядок)
Об'єкт OLE(OLE)	Name	ole1

Характеристика коду програми подана в таблиці.

Дані в рядку коду	Коментар
Option Explicit	Оголошення змінних:
Dim a, b, x, y	a, b, x, y
Private Sub cmdClear_Click()	Заголовок процедури, яка виконується у випадку події Click – клацання лівою кнопкою миші на кнопці cmdClear (Очистка).
txta.Text = ""	Властивості Text текстового поля txta (для введення перемінної а) привласнюється значення “ëû” (порожній рядок - пробіл).
txtb.Text = ""	Властивості Text текстового поля txtb (для введення перемінної b) привласнюється значення “ëû” (порожній рядок - пробіл).
txtx.Text = ""	Властивості Text текстового поля txtx (для введення перемінної x) привласнюється значення “ëû” (порожній рядок - пробіл).
txty.Text = ""	Властивості Text текстового поля txty (для виведення результату) привласнюється значення “ëû” (порожній рядок - пробіл).
End Sub	Кінець процедури cmdClear_Click.
Private Sub cmdExit_Click()	Заголовок процедури, яка виконується у випадку клацання лівою кнопкою миші на кнопці Вихід.
End	Кінець роботи програми
End Sub	Кінець процедури cmdExit_Click.

Private Sub cmdRachet_Click()	Заголовок процедури, яка виконується у випадку події Click на кнопці cmdRachet (Розрахунок).
a = Val(txta.Text)	Змінній a привласнюється значення властивості Text об'єкта txta - значення числа, яке введено за допомогою клавіатури. Оскільки значення текстового поля має тип даних string (текстові дані), щоб можна було виконувати обчислення, їх треба перетворювати до числових значень з використанням функції Val.
b = Val(txtb.Text)	Змінній b привласнюється значення властивості Text об'єкта txtb - значення числа, яке введено за допомогою клавіатури.
x = Val(txtx.Text)	Змінній x привласнюється значення властивості Text об'єкта txtx - значення числа, яке введено за допомогою клавіатури.
If x >= 0 Then	якщо x більше або рівно 0, то
y = a * x + b	У змінну y записується результат a*x+b.
Else	інакше
y = a * x - b	У змінну y записується результат a*x-b.
End If	Завершення оператору If
txty.Text = Str(y)	Властивості Text об'єкту txty привласнюється значення змінної У. За допомогою функції Str виконується перетворення числового значення змінної У у рядок символів.
End Sub	Кінець процедури cmdRachet _Click.

2. Оператор варіанти Select Case

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

Загальна форма оператора:

Case <значення1 або віраз1>

ділянка програми, що виконується, якщо Х = значення1 або выраз1

Case <значення2 або віраз2>

ділянка програми, що виконується, якщо Х = значення2 або выраз2

Дата добавления: 2015-01-03