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

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

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

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

ПРИМІТКА. Як і у всіх функціях 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 і на екрані з'явиться результат обчислення у вікні вигляду (рис.7.2).

Рис.7.2 - Вікно функції MsgBox

7.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