Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
LR4_Cikl_VBA.doc
Скачиваний:
0
Добавлен:
01.03.2025
Размер:
774.66 Кб
Скачать

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

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

Разработать проект кассового аппарата супермаркета. Определить суммарную стоимость купленного товара. В проекте предусмотреть организацию следующих условий:

предусмотреть случай, когда не было произведено ни одной покупки;

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

накопление суммарной стоимости товаров организовать в цикле с условием с применением функции MsgBox;

результаты расчетов вывести в виде сообщения и в текстовом поле;

определить величину сдачи после оплаты стоимости товаров.

2. Экономико-математическая модель

Стоимость купленного товара определяется по формуле:

,

где St – стоимость товара;

Z – цена единицы товара;

K – количество купленного товара.

Количество покупок n заранее не известно и определяется в процессе знакомства с товаром. Случай, когда не было совершено ни одной покупки, соответствует n = 0.

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

Решение задачи осуществляется в соответствии с алгоритмом, который приведен на рис. 4.4.

4. Структура данных

Имена переменных, их назначение и типы, используемые в коде программы представлены в таблице 4.2.

Таблица 4.2

Структура данных проекта

Реквизиты

Имя переменной

Тип

данных

Цена

CurZena

Currency

Стоимость

CurStoimost

Currency

Количество купленного товара

IntKolichestvo

Integer

Наличные

CurNalich

Currency

Сдача

CurSdasha

Currency

Номер товара

IntI

Integer

Сообщение

StrSoobschenie

String

Сообщение1

StrVid

String

Сообщение2

StrText

String

Значения переменных CurZena, CurNalich, IntKolich, вводятся с клавиатуры, а переменные CurStoimost, CurSdasha являются вычисляемыми.

Для подсказок пользователю о данных по каждому товару, которые вводятся в текущий момент, можно использовать переменную целого типа IntI. В ней будет храниться номер текущего товара.

Результат решения задачи, содержащий выходные данные вместе с пояснительным текстом содержит в себе переменную StrSoobschenie.

Рис. 4.4 Схема алгоритма работы кассового аппарата

5. Интерфейс проекта и пользователя

Д ля отображения результатов расчетов и организации взаимодействия пользователя с программным кодом разрабатывается форма (рис. 4.5).

Рис. 4.5. Проект формы для решения задачи

На форме использованы следующие элементы управления:

надписи (Label) – для обозначения наименования вводимых данных и результатов расчетов;

текстовые поля (TextBox) – для ввода исходных данных и вывода промежуточных результатов;

кнопки (CommanButton) – для запуска процедур расчета («РАСЧЕТ») и сброса результатов вычислений («СБРОС»).

Основные свойства формы и элементов управления на ней представлены в табл. 4.3.

Таблица 4.3

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]