МИНОБРНАУКИ РОССИИ
ФГБОУ ВПО «МГИУ»
Контрольная работа
по дисциплине «Электронный бизнес и Интернет-технологии»
Задание: 62
Группа: Мт13Э211
Студент: Михайлова А.С.
Руководитель: Суворов С.В.
Москва, 2014
Содержание
1. Задание на контрольную работу 3
2. Описание переменных 4
3. Блок схема 6
7
4. Описание алгоритма 11
5. Листинг программы 12
6. Описание входных данных и результат вычислений 15
7. Список использованной литературы 18
Магазин ткани продал за 9 месяцев различное количество ткани (20 наименований) по цене, устанавливаемой в начале каждого месяца (каждый месяц цены на ткани не менялись).
Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:
исходные данные в виде таблицы, где указаны наименования ткани, цена ткани в каждом месяце, количество проданной ткани в течение каждого месяца;
доход по каждому виду ткани за первый месяц;
доход за каждый месяц по всем видам ткани;
общий доход по всем видам ткани за 9 месяцев;
наименование ткани, принесшей наибольший доход в седьмом месяце.
Исходные данные находятся на листе «Нач_д» (рис. 1) и содержат следующую информацию:
Цену каждого вида ткани в каждом месяце.
Количество проданной ткани каждого вида в течение каждого месяца.
Результаты работы программы оформляются на листе «Результат» (рис. 2).
Рис.1. Лист с начальными данными
Рис.2. Полученные результаты
В программе переменные описаны следующим образом:
cena(20, 9) — цену каждого вида ткани в каждом месяце представляет двумерный массив дробных чисел
Dim cena(20, 9) As Double
kol(20, 9) — количество проданной ткани в течение каждого месяца представляет двумерный массив дробных чисел
Dim kol(20, 9) As Double
d1(20) — доход по каждому виду ткани за первый месяц представляет массив дробных чисел
Dim d1(20) As Double
d2(9) — доход за каждый месяц по всем видам ткани представляет массив дробных чисел
Dim d2(9) As Double
d3 — общий доход по всем видам ткани за 9 месяцев представляет дробное число
Dim d3 As Double
d4(20) — доход по каждому виду ткани в седьмом месяце представляет массив дробных чисел
Dim d4(20) As Double
max— наибольший доход в седьмом месяце представляет дробное число
Dim max As Double
В программе также были использованы вспомогательные переменные, счетчики циклов, i и j, являющиеся целыми числами.
Dim i As Integer, j As Integer
3. Блок схема
4. Описание алгоритма
Начало программы.
Открытие листа с начальными данными («Нач_д»), получение значений массивов cena(20, 9) и kol(20, 9).
Расчет дохода по каждому наименованию ткани за первый месяц происходит в цикле по типам ткани. Доход рассчитывается как произведение цены ткани в первом месяце на количество проданной ткани данного наименования за первый месяц. Полученные результаты выводятся в отдельном цикле.
Далее следует расчет дохода за каждый месяц по всем типам ткани в двух вложенных циклах (внешний цикл по месяцам, внутренний – по типам ткани). Расчет происходит во внутреннем цикле, доход находится как сумма доходов всех наименований ткани в течение каждого месяца. Рассчитанные значения выводятся в отдельном цикле.
Затем полученные значения дохода за каждый месяц по всем типам ткани суммируются в цикле по месяцам для получения значения общего дохода по всем наименованиям ткани за 9 месяцев.
Перед определением наименования ткани, принесшей наибольший доход в седьмом месяце, вычисляются значения доходов каждого типа ткани в седьмом месяце.
Вначале максимальному значению дохода в седьмом месяце присваивается значение дохода первого наименования ткани в седьмом месяце. Далее в цикле по типам ткани доход ткани текущего наименования сравнивается с максимальным значением, и если значение дохода больше максимального, то максимальному значению присваивается значение дохода ткани текущего наименования. Таким образом, при равенстве двух и более доходов результативным считается доход первого наименования ткани.
5. Листинг программы
Sub kr_Click()
'объявляем переменные используемые в программе
Dim i As Integer, j As Integer 'счетчики циклов
Dim cena(20, 9) As Double 'цена каждого вида ткани в каждом месяце
Dim kol(20, 9) As Double 'количество проданной ткани в течение каждого месяца
Dim d1(20) As Double 'доход по каждому виду ткани за первый месяц
Dim d2(9) As Double 'доход за каждый месяц по всем видам ткани
Dim d3 As Double 'общий доход по всем видам ткани за 9 месяцев
Dim d4(20) As Double 'доход по каждому виду ткани в седьмом месяце
Dim max As Double 'наибольший доход в седьмом месяце
Dim k As Integer
Sheets("Нач_д").Select
'в каждую ячейку массива cena(i,j) записывается цена каждого вида ткани в каждом месяце
'в каждую ячейку массива kol(i, j) записывается количество проданной ткани в течение каждого месяца
'так как массивы двумерные цикл проходит по двум счетчикам
For i = 1 To 20
For j = 1 To 9
cena(i, j) = Cells(2 + i, 2 * j)
kol(i, j) = Cells(2 + i, 1 + 2 * j)
Next j
Next i
'расчет дохода по каждому виду ткани за первый месяц
For i = 1 To 20
d1(i) = cena(i, 1) * kol(i, 1)
Next i
Sheets("Результат").Cells(1, 1) = "доход по каждому виду ткани за первый месяц"
For i = 1 To 20
Sheets("Результат").Cells(1 + i, 1) = Cells(2 + i, 1)
Sheets("Результат").Cells(1 + i, 2) = d1(i)
Next i
'расчет дохода за каждый месяц по всем видам ткани
For j = 1 To 9
For i = 1 To 20
d2(j) = d2(j) + cena(i, j) * kol(i, j)
Next i
Next j
Sheets("Результат").Cells(23, 1) = "доход за каждый месяц по всем видам ткани"
For i = 1 To 9
Sheets("Результат").Cells(24, i) = Cells(1, 2 * i)
Sheets("Результат").Cells(25, i) = d2(i)
Next i
'расчет общего дохода по всем видам ткани за 9 месяцев
For i = 1 To 9
d3 = d3 + d2(i)
Next i
Sheets("Результат").Cells(27, 1) = "общий доход по всем видам ткани за 9 месяцев"
Sheets("Результат").Cells(27, 8) = d3
'поиск ткани, принесшей наибольший доход в седьмом месяце
For i = 1 To 20
d4(i) = cena(i, 7) * kol(i, 7)
Next i
max = d4(1)
k = 1
For i = 2 To 20
If d4(i) > max Then
max = d4(i)
k = i
End If
Next
Sheets("Результат").Cells(29, 1) = "наименование ткани, принесшей наибольший доход в седьмом месяце"
Sheets("Результат").Cells(29, 8) = Cells(2 + k, 1)
End Sub
6. Описание входных данных и результат вычислений
Проверка программы на всех единицах:
Проверка на всех нулях:
Проверка на произвольных данных:
7. Список использованной литературы
MS Office XP, 2003 Word, Excel, Access, Outlook, PowerPoint, FrontPage, MS Project/ А. К. Гультяев: Корона-Век, 2006
VBA. Практическое программирование/ Туркин Олег: Солон-пресс,2007
VBA/ Кузьменко В.Г.: Бином,2008.
Измерение, управление и регулирование с помощью макросов VBA в Word и Excel/ Берндт Г.-Й.: КОРОНА-Век, 2008
Информатика. Методические указания по выполнению практических работ в компьютерном классе (Access, Internet) / Гришин М.П., Юрасов А.Б. М.: МГИУ, 2003.
Информатика. Методическое пособие по выполнению практических работ в компьютерном классе (Word, Excel) / Гришин М.П. М.: МГИУ, 2005.
Информатика. Часть 1. Введение в информатику: учебное пособие / Гришин М.П., Иванов М.Н., Носова Т.К., Суворов С.В. М.: МГИУ, 2008.
Информатика. Часть 2. Программирование: Учебно-методическое пособие / Иванов М.Н., Суворов С.В. М.: МГИУ. 2006.
Моделирование с помощью Microsoft Excel и VBA. Разработка систем поддержки принятия решений/ Кристиан Олбрайт: Вильямс, 2005
Профессиональная разработка приложений Excel/ Стивен Буллен, Роб Боуви, Джон Грин: Вильямс, 2005
Самоучитель VBA/ Андрей Гарнаев: БХВ-Петербург,2004
|
Скачать 1.55 Mb.