Характеристика программы на языке VBA, которая вводит исходные данные, выполняет расчеты и вывод

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ

РОССИЙСКОЙ ФЕДЕРАЦИИ

ИДО ГОУ МГИУ

Курсовая работа

По дисциплине «Информатика»

Задание:№ 38

Группа: № П09Б22п

Студент: Булдыгина Н.В.

Руководитель: Иванов М.Н.

Москва 2010

Содержание

1. Задание на курсовую работу. 3

2. Описание переменных. 4

3. Блок схема. 6

4. Описание алгоритма. 10

5. Листинг программы.. 11

6. Описание входных данных и результат вычислений. 16

7. Список использованной литературы.. 19

1. Задание на курсовую работу

Магазин велосипедов продал за год разное количество велосипедов (10 наименований) по цене, устанавливаемой в начале каждого месяца.

Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:

· исходные данные в виде таблицы, где перечислены наименования велосипедов и цены на них, количество проданных велосипедов в течение каждого месяца;

· доход от каждого вида велосипеда за год;

· доход от всех велосипедов за каждый месяц;

· общий доход от всех велосипедов за год;

· наименование велосипеда, принесшего наибольший доход за год.

2. Описание переменных

Исходные данные находятся на листе «Лист1» (рис. 1) и содержат сле­дующую информацию:

1) Количество велосипедов каждого из 10 типов, изготовленных за год (12 месяцев).

2) Стоимость одного велосипеда каждого типа.

Результаты работы программы оформляются на листе «Лист2» (рис. 2).

Рис.1. Лист с начальными данными

Рис.2. Полученные результаты

В программе переменные описаны следующим образом:

1) cena(10) — деньги, вырученные от продажи одного велосипеда,
представляет массив дробных чисел

Dim cena ( 10 ) As Double

2) koll (10,12) — количество велосипедов каждого вида, проданных за каждый месяц, представляет двумерный массив целых чисел

Dim koll (10,12) As Integer

3) zar (13) — заработок за каждый месяц (от января до декабря) и общий заработок за год представляет массив дробных чисел

Dim zar (13) As Double

4) koll _ n (12) — количество проданных велосипедов каждой модели за год представляет массив целых чисел

Dim kol _ n (12) As Integer

5) num — порядковый номер модели велосипеда, принесшей наибольший доход, представляет целое число

Dim den As Integer

В программе также были использованы вспомогательные переменные, счетчики циклов, i и j , являющиеся целыми числами.

Dim i As Integer, j As Integer

Переменные cena(10), zar (13), могут быть и не целыми числами, поэто­му они объявлены как действительные. Переменные koll (10,12) koll _ n (12), den — целые числа, так как мы считаем, что расчетный период составляет полный месяц, и производители могут продать только полностью собранный велосипед.

3. Блок схема

Рис.3. Блок-схема

Рис.3. Блок-схема (продолжение)

Рис.3. Блок-схема (продолжение)

Рис.3. Блок-схема

Рис.3. Блок-схема (окончание)

4. Описание алгоритма

Начало программы.

Ввод начальных (нулевых) значений для расчетных величин (количество проданных велосипедов за месяц, выручка по месяцам и за год, день с наи­большим заработком и величина максимальной выручки).

Открытие листа с начальными данными («Лист1») и получение этих данных в рабочие переменные (массивы сеnа(10) и kоll(12, 10)).

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

Расчет величины выручки от продажи велосипедов за каждый месяц, количество проданных велосипедов и вывод результатов. Организуется два вложенных цик­ла: внешний по моделям, внутренний по месяцам. Для оптимизации процесса расчетная часть совмещена с выводом: во внутреннем цикле происходит вы­числение выручки от продажи i-ого велосипеда в j-й месяц с выводом результата, во внешнем цикле (после получения результатов внутреннего цикла) — вы­вод стоимости одного велосипеда и по всем велосипедам. Расчет выручки за каждый месяц организован в этом же внутреннем цикле.

Определение наименования велосипеда, принесшего наибольший доход за год. Используется алго­ритм сравнения, при равенстве двух и более годовых доходов результативным считается последний доход.

5. Листинг программы

Private Sub CommandButton1_Click()

'Сначала объявляем п

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать