Использованные переменные

Реквизит	Имя	Назначение
Ценаі	Сena	Цена текущего товара, грн.
Количествоі	Kol	Количество текущего товара, грн.
і	і	Номер текущего товара
S	S	Общая стоимость купленного товара, грн.

Интерфейс с пользователем

Поскольку входных данных, которые используются при решении задачи, может оказаться много (в зависимости от количества видов покупок), то вводить их значения с помощью текстовых полей к форме нецелесообразно. Для этого обычно используют специальные диалоговые окна ввода.

Рис. 5.2. Окно ввода цены товара

Цену товара i-ого вида вводят в окно ввода, которое представлено на рис. 5.2., а количество товара при помощи аналогичного окна.

Рис. 5.3. Окно запроса Рис.5.4. Окно вывода результата

Перед вводом сведений о товаре текущего вида пользователь должен ответить на запрос будут еще покупки или нет (рис. 5.3). Полученный результат выводится в диалоговом окне (рис.5.4).

Рис. 5.5. Форма для расчета стоимости покупок

Поскольку ввод и вывод осуществляется при помощи специальных окон, форма содержит только одну кнопку нажатие, на которую начинает процесс вычисления стоимости покупки (рис. 5.5.).

Код программы

В процедуре, которая обрабатывает событие Нажатия на кнопку «Вычислить », состоит из операторов:

‘ Описание переменных

Dim Сena As Currency, -

Kol As Integer, -

i,S As Integer, -

S As Integer, -

S = 0 ‘ Общая стоимость

i = 0 ‘ Номер покупки

‘Цикл обработки покупок

Do While MsgBox (“Будут ещё покупки ?”, vbQuestion + vbYesNo, _

“Покупки”) =vbYes ‘Условие продолжения

i = i +1

‘Ввод цены и количества

Cena =Ccur(InputBox(“Введите цену”,i& “- й товар”))

Kol =CInt(InputBox(“Введите количество”,i& “- й товар”))

‘Вычисление общей стоимости

S = S +Cena*Kol

Loop ‘Конец циклa

‘Вывод результата

MsgBox “Стоимость всех покупок”& Format (curS, “0.00”)&” грн. “ , , _

”Спасибо за покупки ”

Выполнение программы и анализ полученных результатов.

Программа использовалась при закупке мебели для офиса. Для этого было запланировано потратить 1500 грн. Имеющаяся в магазине мебель была представлена в прайс-листе (табл. 5.2.), а мебель, выбранная для офиса , - в табл. 5.3.

Таблица 5.2.

Прайс-лист

Наименование	Цена
Диван	850,00
Кресло	300,00
Стол	200,00
Стул	60,00
Тумбочка	80,00
Шкаф	300,00

Таблица 5.3.

Выбранные товары

Наименование	Цена	Количество
Кресло	1	300,00
Стол	1	200,00
Стул	5	60,00
Шкаф	1	300,00

После запуска программы на выполнение были введены данные из табл. 5.3. (цена и количество). Общая стоимость купленных товаров равна 1100,00 грн., что улаживается в запланированный бюджет. Более того, при желании количество купленных товаров можно увеличить и при этом повторно использовать разработанное приложение.

Рис. 5.6. Общая стоимость выбранных товаров.