Курсовая.

Введение
Задание на курсовую работу
Описание переменных
Блок-схема
Описание алгоритма
Листинг программы
Проверка работы программы
Заключение
Список литературы

Value * Sheets("Исходные_данные").Cells(2 + i, 10).Value
Next
Next
Sheets("Результат").Cells(3, 1) = "Общая стоимость роз, проданных за неделю"
Sheets("Результат").Cells(3, 2) = itogi
Sheets("Результат").Columns(1).EntireColumn.AutoFit
'поиск названия вида розы, принесшего наибольший доход
For i = 1 To 8
itog_rose(i) = 0
Next i
For i = 1 To 8
For j = 1 To 7
itog_rose(i) = itog_rose(i) + Sheets("Исходные_данные").Cells(2 + i, 2 + j).Value * Sheets("Исходные_данные").Cells(2 + i, 10).Value
Next
Next
k = 1
For i = 2 To 8
If itog_rose(i) > itog_rose(k) Then k = i
Next i
name = Sheets("Исходные_данные").Cells(2 + k, 1).Value
Sheets("Результат").Cells(4, 1) = "Вид розы, принесший наибольший доход"
Sheets("Результат").Cells(4, 2) = name
Sheets("Результат").Columns(1).EntireColumn.AutoFit
'расчет количества роз, проданных за день
For i = 1 To 7
kol(i) = 0
Next i
For i = 1 To 7
For j = 1 To 8
kol(i) = kol(i) + Sheets("Исходные_данные").Cells(2 + j, 2 + i).Value
Next
Next
Sheets("Результат").Cells(6, 1) = "Количество роз, проданных за день"
For i = 1 To 7
Sheets("Результат").Cells(7 + i, 1) = Sheets("Исходные_данные").Cells(2, 2 + i).Value
Sheets("Результат").Cells(7 + i, 2) = kol(i)
Next i
Sheets("Результат").Columns(1).EntireColumn.AutoFit
Sheets("Результат").Columns(2).EntireColumn.AutoFit
End Sub
Проверка работы программы
Рис.1
Рис.2
Заключение
В результате выполнения курсовой работы были получены знания, умения и навыки, необходимые для решения профессиональных задач в области автоматизации работы с офисным пакетом Microsoft Office Excel на основе использования программ, созданных на языке Visual Basic for Application (Visual Basic для приложений).
Результатом является разработанное небольшое приложение для учета продаж цветов.
Список литературы
Кузьменко В. Г. VBA 2003. Самоучитель. М: Бином-Пресс, 2010. 429 с.
Пол Санна Visual Basic для приложений (версия 5) в подлиннике: пер. с англ. СПб: BHV, 1997. 704 с.
10
конец
начало
Вывод результатов расчета
Расчет общей стоимости роз проданных за 3 день
Расчет общей стоимости роз, проданных за неделю
Поиск названия вида розы, принесшего наибольший доход
Расчет количества роз, проданных за день