Характеристика программы на языке VBA

Содержание
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()
'Сначала объявляем переменные, используемые в программе.
'счетчики циклов
Dim i, j As Integer
'количество проданных велосипедов (по месяцам)
Dim koll(10, 12) As Integer
'выручка за месяц
Dim zar(13) As Double
'количество проданных велосипедов (за год)
Dim koll_n(12) As Integer
'велосипед, принесший наибольший доход за год
Dim num As Integer
'стоимость велосипеда
Dim cena(10) As Double
'переменные, нужные для предварительных расчетов
Dim zarpl As Double
Dim pic As Double
Dim comb(10) As Double
‘Далее всем переменным присваивается нулевое значение.
For i = 1 To 10
koll_n(i) = 0
comb(i) = 0
Next
For j = 1 To 13
zar(j) = 0
Next
pic = 0
zarpl = 0
num = 0
'В этом фрагменте кода происходит считывание начальных данных с листа «Лист1», и в каждую ячейку массива cena(10) записывается стоимость каждой марки велосипеда, а в ячейках двумерного массива koll(10,12) теперь находится количество велосипедов каждого вида, проданных в каждый месяц.

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

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

Скачать полную версию