Проектирование приложения с использованием цикла со счетчиком

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

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

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

Общая стоимость товара в магазине определяется по формуле

S = Цена₁ * Количество₁ + Цена₂ * Количество₂ + ... + Цена_n * Количество_n,

где n – количество видов товара в магазине (заранее известная величина).

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

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

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

В программе используются те же данные, что и в задаче о покупках (п. 6.3).

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

В отличие от задачи о покупках, в задаче о проведении переучета заранее известно количество всех видов товара. Поэтому эту величину можно ввести с помощью текстового поля txtN на форме.

Рис. 6.12. Схема алгоритма определения стоимости

Товаров при переучете

Ввод цены и количества товара каждого вида выполняется с помощью окон ввода таких же, как и в задаче о покупках. Начало этого процесса можно связать со щелчком на кнопке «Вычислить».

Полученный результат выводится в вогнутую область, которая представлена на форме надписью lblСтоимость.

Решение задачи выполняется с помощью формы (рис. 6.13).

Рис. 6.13. Форма для решения задачи о переучете

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

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

Option Explicit

Private Sub cmdВычислить_Click()

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

Dim curЦена As Currency, _

intКоличество As Integer, _

i As Integer, _

curS As Currency

curS = 0 'Общая стоимость

i = 0 'Номер товара

'Цикл по обработке товаров

For i = 1 To CInt(txtN)

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

curЦена = CCur(InputBox("Введите цену", _

CStr(i) & "-й товар"))

intКоличество = CInt(InputBox("Введите количество", _

CStr(i) & "-й товар"))

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

curS = curS + curЦена * intКоличество

Next i 'Конец цикла

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

lblСтомость = Format(curS, "0.00 грн.")

End Sub

Реализация проекта

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

Анализ проекта

Так как количество видов товаров известно заранее (до начала ввода и обработки данных по каждому виду), в коде применен оператор цикла со счетчиком.

В качестве конечного значения параметра цикла использовано значение текстового поля txtN. Оно должно быть целого типа, как и счетчик i, поэтому в заголовке цикла использовано выражение CInt(txtN). Результат вычисления общей стоимости товаров выводится после окончания обработки всех видов товара (после цикла). Если же требуется следить за возрастанием общей стоимости по мере добавления данных о текущем виде товара, то достаточно последний оператор присваивания значения надписи lblСтоимость поместить перед конструкцией Next i.