2.10. Виведення даних

1) Функція MsgBox використовується для виведення даних або повідомлень на екран. Синтаксис функції:

MsgBox (запрошення[, кнопки][, заголовок][, файл допомоги][, контекст]),

де кнопки - константа, що визначає командні кнопки, які з'являються в діалоговому вікні. За замовчуванням установлюється значення 0. Інші параметри мають той же зміст, що і у функції InputBox.

Деякі значення констант кнопок функції MsgBox.

Константа Опис

0. Виводиться тільки кнопка ОК.

1. Виводяться кнопки ОК і Отмена.

3. Виводяться кнопки Да, Нет Отмена.

4 Виводяться кнопки Да, Нет.

ПРИМІТКА. Як і у всіх функціях VBA, вказівка аргументів функції MsgBox у круглих дужках необхідна тільки тоді, коли планується використання повертаюче значення цієї функції. Якщо виводиться велике повідомлення, то VBA робить перенос тексту в рамках діалогового вікна. Для вказівки власних меж переносу в кожному рядку використовується функція Chr і код повернення каретки (ASCII 13), наприклад, дане повідомлення буде виводитися у два рядки:

MsgBox "Перший рядок" & Chr(13) & "Другий рядок"

2) Оператор Debug.Print використовується для виведення даних у вікно налагодження.

Синтаксис оператора:

Debug.Print a₁ & a₂ & a₃ …

де a₁, a₂, a₃ - константи, змінні, вирази. Щоб відкрити вікно налагодження, потрібно виконати команди

Вид(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