- •1.1. Знайомство із клавіатурою. Робота в Windows з папками й файлами
- •1.2. Робота з файлами, папками, ярликами в Провіднику
- •1.3. Текстовий процесор Word - створення документа, його редагування й форматування
- •1.4. Текстовий процесор Word - робота з таблицями
- •1.5. Текстовий процесор Word - робота з формульним редактором, набір і редагування математичних формул
- •1.6. Текстовий процесор Word - робота із графічними об'єктами - створення малюнків
- •1.7. Табличний процесор Excel - створення й занесення даних у
- •1.8. Табличний процесор Excel – робота з майстром формул
- •1.9. Табличний процесор Excel – робота з діаграмами й графіками
- •1.10. Табличний процесор Excel – рішення пошукових завдань лінійного програмування
- •2. Програмування мовою vba
- •2.1. Вступ
- •2.2. Робота у вікні модуля. Структура програми
- •2.3. Основні типи даних
- •2.4. Змінні, масиви, константи і їхній опис
- •2.5. Операції vba
- •2.5.1. Арифметичні операції
- •2.5.2. Операції порівняння
- •2.5.3. Логічні операції
- •2.6. Стандартні функції
- •2.7. Вирази
- •2.8. Оператор присвоювання
- •2.9. Введення даних користувачем
- •2.10. Виведення даних
- •2.11. Оператори переходу. Програмування розгалужуваних обчислювальних процесів
- •If умова Then оператор
- •If умова Then
- •If умова Then
- •2.12. Оператори циклу. Програмування циклічних обчислювальних процесів
- •Dim p As Single, I As Integer, n As Variant
- •2.13. Процедури
- •1) Function Sum(n Аs Integer, a As Single) Аs Integer
- •2)Private Function f1(a As Single, ParamArray X) As Single
- •2) Ім'я Список аргументів
- •3. Список літератури
2.10. Виведення даних
1) Функція MsgBox використовується для виведення даних або повідомлень на екран. Синтаксис функції:
MsgBox (запрошення[, кнопки][, заголовок][, файл допомоги][, контекст]),
де кнопки - константа, що визначає командні кнопки, які з'являються в діалоговому вікні. За замовчуванням установлюється значення 0. Інші параметри мають той же зміст, що і у функції InputBox.
Деякі значення констант кнопок функції MsgBox.
Константа Опис
Виводиться тільки кнопка ОК.
Виводяться кнопки ОК і Отмена.
Виводяться кнопки Да, Нет Отмена.
4 Виводяться кнопки Да, Нет.
ПРИМІТКА. Як і у всіх функціях VBA, вказівка аргументів функції MsgBox у круглих дужках необхідна тільки тоді, коли планується використання повертаюче значення цієї функції. Якщо виводиться велике повідомлення, то VBA робить перенос тексту в рамках діалогового вікна. Для вказівки власних меж переносу в кожному рядку використовується функція Chr і код повернення каретки (ASCII 13), наприклад, дане повідомлення буде виводитися у два рядки:
MsgBox "Перший рядок" & Chr(13) & "Другий рядок"
2) Оператор Debug.Print використовується для виведення даних у вікно налагодження.
Синтаксис оператора:
Debug.Print a1 & a2 & a3 …
де a1, a2, a3 - константи, змінні, вирази. Щоб відкрити вікно налагодження, потрібно виконати команди
Вид(View) ( Вікно налагодження (Immediate Window)
Приклад лінійної програми. Обчислити площу трапеції за формулою S=, де a,b - основи, h - висота.
Sub Трапеція()
Dim a As Single, b As Single, h As Single, s As Single
a = Val (InputBox("Введіть значення а"))
b = Val (InputBox("Введіть значення b"))
h = Val (InputBox("Введіть значення h"))
s = (a + b) * h / 2
MsgBox "Площа трапеції = " & s
End Sub
Після запуску програми потрібно ввести значення a,b,h і на екрані з'явиться результат обчислення у вікні виду (рис.2.3.).
Рис.2.3 - Вікно функції MsgBox
2.11. Оператори переходу. Програмування розгалужуваних обчислювальних процесів
1) Оператор If ... Then
Для зміни природного ходу виконання програми використовуються умовні оператори із застосуванням як однорядкового синтаксису
If умова Then оператор
так і блокового синтаксису
If умова Then
Блок операторів
End If
Тут і далі умова - логічний вираз. Якщо значення умови true, то виконується Блок операторів, у протилежному випадку управління передається операторові, який знаходиться за End if.
Приклад 1. Дані три числа: a, b, c. Від’ємні числа замінити їхніми квадратами, позитивні залишити без зміни.
Sub Разв1()
Dim a As Single, b As Single, c As Single
a = Val (InputBox("Введіть значення а"))
b = Val (InputBox("Введіть значення b"))
c = Val (InputBox("Введіть значення c"))
If a < 0 then a=a^2
If b < 0 then b=b^2
If c < 0 then c=c^2
MsgBox “a=” & a & “ b=” & b & “ c=” & c
End Sub
Оператор If...Then...Else.
Синтаксис оператора: