Курсовая.

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

Курсовая.

Sheets(1).Activate
Range("A:J").HorizontalAlignment = xlCenter

For i = 3 To 10
Rows(i).Clear
Next
For i = 1 To 8
ActiveSheet.Cells(2 + i, 1) = InputBox("Название")
ActiveSheet.Cells(2 + i, 2) = InputBox("Кол-во заступивших роз")
ActiveSheet.Cells(2 + i, 3) = InputBox("Кол-во проданных роз в 1-й день")
ActiveSheet.Cells(2 + i, 4) = InputBox("Кол-во проданных роз в 2-й день")
ActiveSheet.Cells(2 + i, 5) = InputBox("Кол-во проданных роз в 3-й день")
ActiveSheet.Cells(2 + i, 6) = InputBox("Кол-во проданных роз в 4-й день")
ActiveSheet.Cells(2 + i, 7) = InputBox("Кол-во проданных роз в 5-й день")
ActiveSheet.Cells(2 + i, 8) = InputBox("Кол-во проданных роз в 6-й день")
ActiveSheet.Cells(2 + i, 9) = InputBox("Кол-во проданных роз в 7-й день")
ActiveSheet.Cells(2 + i, 10) = InputBox("Цена")
Next
End Sub
Private Sub CommandButton2_Click()
Sheets("Результат").Range("A:B").Clear
'объявляем переменные используемые в программе
Dim i As Integer, j As Integer 'счетчики циклов
Dim k As Integer 'порядковый номер вида роз с наибольшей прибылью
Dim itog_rose(8) As Double ' количество роз каждого вида проданных за каждый день
Dim sm As Double 'общая стоимость роз, проданных за 3 день
Dim itogi As Double 'общая стоимость роз, проданных за неделю
Dim name As String 'название вида розы, принесшего наибольший доход
Dim kol(7) As Integer 'количество роз, проданных за день
'расчет общей стоимости роз проданных за 3 день
'на листе "Результат" создается ячейка с определенными названиями для вывода результата
sm = 0
For i = 1 To 8
sm = sm + Sheets("Исходные_данные").Cells(2 + i, 5).Value * Sheets("Исходные_данные").Cells(2 + i, 10).Value
Next
Sheets("Результат").Cells(2, 1) = "Общая стоимость роз, проданных за 3 день"
Sheets("Результат").Cells(2, 2) = sm
Sheets("Результат").Columns(1).EntireColumn.AutoFit
'расчет общей стоимости роз, проданных за неделю
itogi = 0
For i = 1 To 8
For j = 1 To 7
itogi = itogi + Sheets("Исходные_данные").Cells(2 + i, 2 + j).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