
- •Теоретична довідка до пр №23
- •Код макросів та його редагування
- •Теоретична довідка до пр №24 Середовище vba
- •Процедура типу Sub і процедура типу Function
- •Теоретична довідка до пр №25-26 Об’єктна структура мови vba
- •Загальні принципи побудови vba-програм
- •Основні елементи мови програмування Visual Basic For Application (vba)
- •Стандартні математичні функції
- •Оператор введення InputBox
- •Оператор виведення MsgBox
- •Оператор виведення даних Print
- •Теоретична довідка до пр №27 Оператори управління обчислювальним процесом
- •Оператор вибору Select Case
- •Об’єкти vbа у середовищі ms Excel
- •Теоретична довідка до пр №28-29 Оператори циклів
- •Приклади програм з використанням об’єктів ms Excel у циклічних обчислювальних процесах:
- •Теоретична довідка до пр №30-31 Використання масивів та матриць
- •Теоретична довідка до пр №32 Рядкові величини
- •Теоретична довідка до Практичної роботи №32-33 Властивості екранної форми та елементів управління
- •Основні методи та події об’єктів vba
- •Створення процедур опрацювання подій
Оператор виведення MsgBox
Цей оператор використовується для одержання від користувача відповідей (“Так” або “Ні”) на короткі повідомлення. Синтаксис:
MsgBox <повідомлення > [, число ] [, < заголовок > ]
Де <повідомлення > і < заголовок > - довільні символи, число – цифра в залежності від якої змінюється вигляд вікна (наприклад, 16 – повідомлення про помилку, 64 – інформаційне повідомлення, 3 – кнопки Да, Нет, Отмена). Повідомлення може включати арифметичний вираз, якій задається через функцію Str ().
Приклади:
1. MsgBox “Процес обчислення завершено”, 1, “Проект” (Рис.13)
Рис. 13
2. MsgBox (“х=” + Str (x) + “ “ + ” x+sin(x)=”+Str (x+Sin(x))), , "проект" (Рис.14)
Результатом виконання буде виведене вікно з результатом розрахунку, передбачається що значення “х” було вказано раніше :
Рис. 14
Оператор виведення даних Print
Дія цього оператора полягає у виведенні результатів роботи програми у окреме вікно Immediate Window. Синтаксис:
Debug.Print [ список елементів виведення ]
До списку елементів виведення можуть входити: константи, змінні, арифметичні вирази, послідовність символів у лапках, функції Tab, Spc, String. Елементи списку відокремлюються комою (,) або крапка з комою (;). У випадку розділення комою наступна інформація друкується з нової зони (одна зона 14 позицій),. У випадку розділення крапкою з комою наступна інформація друкується безпосередньо після попередньої. Якщо елементом списку є вираз, то спочатку система обчислює значення виразу а потім друкує результат. Функція Tab(n) – визначає номер позиції з якої відбувається друк. Функція Spc(n) – визначає кількість позицій, які треба пропустити. Функція String(n, “символ”) – визначає кількість символів, які друкуються. Рис. 15.
Рис. 15
Теоретична довідка до пр №27 Оператори управління обчислювальним процесом
При необхідності виконувати ті чи інші оператори в залежності від дотримання деяких умов, використовують оператори управління обчислювальним процесом. До них відносяться оператор безумовного переходу, оператори умовного переходу та оператор вибору.
Оператори умовного переходу If...Then
1) Оператор If … Then - перевіряється одна умова і виконується один оператор чи блок операторів.
Синтаксис:
If <умова> Then <оператор>
або з декількома операторами
If <умова> Then
<Блок операторів>
End If
2) Оператор If … Then … Else - перевіряється одна умова і виконується один із двох блоків операторів.
Синтаксис:
If умова Then
<Блок операторів 1>
Else
<Блок операторів 2>
End If
Приклад.
Sub Вік ()
If vik <= 7 Then
MsgBox "Дошкiльник"
Else
MsgBox "Школяр або дорослий"
End If
End Sub
3) Оператор If … Then … ElseIf - перевіряється кілька умов і виконується один з декількох блоків операторів.
Синтаксис:
If <умова1> Then
<Блок операторів 1>
ElseIf <умова2> Then
<Блок операторів 2>
ElseIf <умова3> Then
<Блок операторів3>
…
Else
<Блок операторів_n>
End If
Приклад.
Sub Вік1 ()
vik= InputBox ("Вкажіть вік")
If vik < 7 Then
MsgBox "Дошкiльник"
ElseIf vik < 17 Then
MsgBox "Школяр"
ElseIf vik < 23 Then
MsgBox "Студент"
ElseIf vik < 55 Then
MsgBox "Спецiалiст"
Else
MsgBox "Пенсiонер"
End If
End Sub