Значення, що повертаються функцією MsgBox

Константа	Значення	Натиснуто кнопку
vbOK	1	OK
vbCancel	2	Отмена
vbAbort	3	Стоп
vbRetry	4	Повторить
vblgnore	5	Пропустить
vbYes	6	Да
vbNo	7	Нет

Параметри Prompt і Title не вимагають пояснень. Значення параметра Buttons може містити кілька об'єктів (категорій), які визначають зовнішній вигляд вікна. Ці категорії можна групувати за допомогою символу додавання (конкатенації):

Buttons = Button + Icon + Default + Modal + Extras,

де Button – вибір набору кнопок управління;

Icon – вибір однієї із піктограм з набору;

Default – вказання кнопки, що буде активною по замовчуванню;

Modal – вказання напрямку виходу в проект або із додатку в цілому;

Extras – додатковий інструмент щодо оформлення діалогового вікна.

Для параметрів Button, Icon, Default і Modal можна використовувати тільки одну із припустимих констант, а для категорії Extras допускається застосування комбінації значень.

Наприклад, щоб у вікні MsgBox відображалися знак питання, кнопки Да і Нет, і при цьому Нет була задана кнопкою за замовчуванням, треба "склеїти" відповідні значення. У цьому випадку фрагмент коду має такий вигляд:

type = 4 + 32 + 256 + 0;

MsgBox "Повідомлення", type, "Заголовок".

Значення функції MsgBox() може використовуватись для організації розгалужень (рис. 5.28).

Рис. 5.28. Вікно повідомлення "Продовження"

Однак варіант виклику, що використовує цифрові коди без коментарів, неінформативний, неприпустима операція підсумовування цих кодів. Тому доцільно застосовувати відповідні константи:

type=vbYesNo + vbQuestion + vbDefaultButton2 + vbApplicationModal;

MsgBox "Повідомлення", type, "Title".

При програмуванні замість знака "+" можна використовувати оператор Or.

Функція MsgBox() повертає значення, яке визначається тим, яку кнопку натиснув користувач.

Приклад вирішення економічної задачі на базі умовного циклу

Постановка задачі.

Розробити проект касового апарата супермаркету. Визначити сумарну вартість товару, що придбається. У проекті передбачити організацію таких умов:

передбачити випадок, коли не було зроблено жодної покупки;

введення ціни й кількість даного товару організувати в діалоговому режимі через функцію InputBox();

накопичення сумарної вартості товарів організувати в циклі з умовою із застосуванням функції MsgBox();

результати розрахунків вивести у вигляді повідомлення й у вигляді напису на формі;

визначити величину решти після сплати вартості товару.

Примітка. При вирішенні поставленої задачі в проекті можна передбачити облік різних видів товару, що придбається.

Економіко-математична модель.

Вартість товару, що придбається визначається за формулою:

,

де St – вартість товару;

Z – ціна одиниці товару;

K – кількість придбаного товару.

Кількість покупок n заздалегідь невідома й визначається в процесі знайомства з товаром. Випадок, коли не було зроблено жодної покупки, відповідає n = 0.

Алгоритм вирішення задачі

Вирішення задачі здійснюється відповідно до алгоритму, що наведено на рис. 5.29.

Структура даних.

Імена змінних, їх призначення та типи, які використовуються в коді програми, представлені в табл. 5.12.

Таблиця 5.12