End Select

Оператори N

CASE ELSE

Оператори 2

Оператори 1

Конструкція SELECT CASE – багатозначний вибір.

END IF

ELSE

Оператори 2

ELSEIF умова2 THEN

Оператори 1

IF умова1 THEN

END IF

ELSE: оператори 2

Оператори 1

IF умова THEN

Або

END IF

Оператори 2

ELSE

Оператори 1

IF умова THEN

END IF

Оператори

IF умова THEN

IF умова THEN оператор

Теоретичні відомості

Лабораторна робота № 2

ТЕМА: Visual Basic for application. Розробка додатків, що реалізують розгалужений обчислювальний процес.

МЕТА: навчитись використовувати засоби VBA для розробки додатків із розгалуженим обчислювальним процесом.

Досить часто виникає необхідність змінити порядок виконання команд, залежно від результату виконання деякої умови. У VBA існують оператори, призначені для управління порядком виконання команд. Є два основних типи таких операторів:

· умовний оператор If.

· оператор вибору Select Case.

Конструкції управління мають такий синтаксис:

1.

2.

Конструкція IF... Then застосовується в тому разі, коли необхідно виконати один або групу операторів, якщо значення заданої умови дорівнює True. Ключові слова End If означають кінець багаторядкового оператора, і його наявність у цьому випадку обов'язкова. Якщо значення заданої умови дорівнює True, то будуть виконані операції, що слідують за ключовим словом Then. Якщо умова не виконується (логічний вираз має значення False), то Visual Basic переходить до виконання наступного оператора у однорядковому варіанті умовного оператора чи першого оператора після End If у багаторядковому варіанті умовного оператора.

ІІ.

Конструкція If... Then... Else аналогічна конструкції If... Then, але дозволяє задати дії, що здійснюються як при виконанні логічної умови, так і у разі її невиконання.

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

оператори N]

SELECT CASE <вираз>

CASE <список значень 1>

CASE <список значень 2>

….. ……

Оператор вибору діє так. Спочатку обчислюється вираз, який стоїть після ключових слів SELECT CASE. Потім відшукується в списках значень перше порівняння, яке виконується при отриманому значенні. Якщо таке порівняння знайдено, то виконуються оператори, що стоять у відповідному блоці CASE і керування передається на кінець оператора, якщо ж значення виразу не задовольняється у жодному списку, і є конструкція CASE ELSE, то виконуються оператори, що містяться в ній. В іншому випадку жодний оператор, що міститься в операторі вибору, не виконується.

Оператор вибору доцільно вживати, коли є більше двох гілок, тобто в складних розгалужених процесах.

При створенні коду процедур можна використовувати стандартні функції Visual Basic (табл. 2.3., табл. 2.4).

Таблица 2.3. Математичні функції

Функція	Призначення
Abs(x)	Абсолютне значення х
Atn(x)	Арктангенс
Cos(x)	Косинус
Exp(x)	Експонента е^х
Fix(x)	ціле число, дорівнює числу х без дробової частини.
Int(x)	найбільше ціле, що не перевищує х
Round(x,a)	Округлення х з точністю до а десяткових знаків
Log(x)	Натуральний логарифм – ln x
Rnd(x)	Датчик випадкових чисел
Sng(x)	В залежності від знака числа повертається значення 1, 0, -1
Sin(x)	Синус
Sqr(x)	Квадратний корінь
Tan(x)	Тангенс

Таблица 2.4. Текстові функції

LTrim(strA)	Вилучення зайвих пробілів на початку рядка
RTrim(strA)	Вилучення зайвих пробілів у кінці рядка
Trim(strA)	Вилучення зайвих пробілів на початку і у кінці рядка
LEFT(strA,K)	виділяє К символів з strA, починаючи з першого
RIGHT(strA,K)	виділяє з strA справа частину довжиною К символів
MID(strA,L,M)	виділяє з strA частину довжиною М символів, починаючи від символу з номером L
LEN(strA)	визначає кількість символів тексту strA
VAL(strA)	дане типу текст перетворює у числове
STR(X)	перетворює числове дане X в текст
INSTR(A$,B$)	дає номер позиції, з якої починається входження тексту B$ в текст A$
CHR$(число)	дає символ з таблиці ASCII з даним номером
ASC(символ)	дає номер символу в таблиці кодів ASCII
Space(N)	додавання рядка пробілів заданої довжини
Ucase(strA)	Заміна регістра символів (ВСІ ЛІТЕРИ ВЕЛИКІ)
Lcase(strA)	Заміна регістра символів (всі літери маленькі)

Дата добавления: 2014-12-24