Основы программирования на языке Visual Basic, страница 15

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.

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

Работа в киоске по продаже канцелярских товаров организована посменно: одну неделю работает Иванов, следующую – Петров. Поэтому в конце каждой недели производится переучет товаров. В следующей таблице приведен перечень товаров, которые остались непроданными в конце смены Иванова.

Таблица

Остаток товаров на 17.09.01

Наименование

Цена

Количество

Ручка

1.20

100

Карандаш

0.40

50

Тетрадь

0.30

200

Резинка

0.40

20

Линейка

1.00

10

Для определения общей стоимости этих товаров было использовано разработанное приложение. На рис. 6.3 приведена общая стоимость товаров, которые Иванов передал Петрову.

Рис. 6.3. Результат решения задачи

Варианты задач

1. Предприятие выпускает N наименований продукции. Определить объем нормативно чистой продукции по формуле:

Qнчп = К1 * H1 + K2 * H2 + + Ki * Hi + + KN * HN ,

где Кi – количество продукции і-го вида в натуральном выражении,

Нi – норматив чистой продукции на единицу изделий і-го наименование.

2. Вычислить плановую прибыль предприятия, используя метод прямого расчета:

П = Р1 * (Ц1 - С1) + Р2 * (Ц2 - С2) + + Рi * (Цi – Сi) + + РN * (ЦN - СN) ,

где Рi – объем реализованной продукции і-го вида в натуральном выражении;

Цi – оптовая цена единицы продукции і-го вида, грн.;

Сi – себестоимость единицы продукции і-го вида, грн.;

N – номенклатура реализованной продукции, N = 6.

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

4. Определить заработную плату бухгалтера через пять лет, если каждый год она будет увеличиваться на 10 %.

5. Определить общий расход (Р ) стали на выпуск пяти видов продукции по формуле:

Р = Н1 * П1 + Н2 * П2 + + Нi * Пi + + Н5 * П5 ,

где Нi – норма расхода стали на изготовление единицы продукции і-го вида, кг;

Пi – плановое задание на выпуск продукции і-го вида, шт.

6. Предприятие выпускает N видов продукции. Известны плановые и фактические данные по каждому виду продукции, выраженные в гривнях. Определить процент выполнения плана предприятием.

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

8. Определить остаток товара одного вида в гривнях в конце недели, если известны остатки этого товара на складе в начале недели, поступление и отпуск каждый день в течение недели, а также цена единицы товара.

9. В прайс-листе имеются данные о ценах N товаров. Определить среднюю цену товаров.

10. В течение месяца предприятие выпускало N видов продукции. Определить общий объем продукции, если стоимость реализованной за это время продукции одного вида определяется по формуле:

РП = Г + ПФ ,

где Г – объем готовой продукции, грн.,

ПФ – объем полуфабрикатов, грн.

Контрольные вопросы

1.  Какой процесс называется циклическим?

2.  Каково назначение оператора со счетчиком? Нарисуйте его схему алгоритма.

3.  Какие значения может иметь шаг цикла в цикле со счетчиком? Всегда ли он указывается?

4.  Возможно ли зацикливание в цикле со счетчиком?

5.  Всегда ли можно заменить оператор цикла со счетчиком оператором условного цикла и наоборот?

6.  Почему в проекте “Переучет” использован цикл со счетчиком?

7.  Замените фрагмент кода проекта “Переучет”, в котором используется оператор цикла со счетчиком, оператором условного цикла так, чтобы пользователь не заметил изменений в работе приложения.

8.   Можно ли удалить из формы “Переучет” текстовое поле “Количество видов товаров”? Объясните последствия такого удаления.

9.  С какой целью в коде проекта “Переучет” объявлена переменная i?

10.  Объясните, какие будут последствия в работе приложения “Переучет”, если в текстовое поле “Количество видов товаров”:

а) не ввести ничего;

б) ввести отрицательное целое число;

в) ввести положительное дробное число;

г) ввести слово “Три”.

11.  Придумайте две задачи, в которых использовался бы оператор цикла со счетчиком.