Составление и описание программы по заданным параметрам - Курсовая работа

Задание на курсовую работу В коллективном хозяйстве имеются цветочные оранжереи (розы, гвоздики, лилии - всего 6 видов цветов). Каждый год в течение 3 лет колхоз собирал букеты с каждой оранжереи и продавал их по закупочным ценам, которые были различны в разные годы. Результаты работы программы оформляются на листе «Результат» (рис. Private Sub CommandButton1_Click() назначаю переменные Dim i As Integer, j As Integer счетчики циклов Dim koll(7, 5) As Integer количество букетов за каждый год Dim zar(6) As Double доход по всем цветам за каждый год Dim koll_n(7) As Integer общее количество букетов за 3 года Dim vid As Integer вид цветов принесший максимальный доход Dim zarpl As Double сумма макимального дохода Dim cena(7) As Double общий доход колхоза за 3 года в начале программы все переменные равны нулям создаем цикл, который считает количество букетов за 3 года For i = 1 To 5 koll_n(i) = 0 Next создаем цикл, который считает доход по всем цветам за период For j = 1 To 6 zar(j) = 0 Next zarpl = 0 den = 0 считываем начальные данные Sheets(Нач_д).Select в каждую ячейку массива cena(i) записывается цена каждого букета для этого используем цикл For i = 1 To 6 cena(i) = Cells(3 i, 2) Next в каждую ячейку массива koll(i, j) записывается количество букетов за период так как массив двумерный цикл проходит по двум счетчикам For i = 1 To 6 For j = 1 To 5 koll(i, j) = Cells(3 i, 2 j) Next j Next i на листе Результат создаются ячейки с определенными названиями Sheets(Результат).Cells(1, 1) = Количество букетов Sheets(Результат).Cells(2, 1) = Наименование цветов Sheets(Результат).Cells(2, 2) = Цена 1-го букета Sheets(Результат).Cells(2, 3) = Собрано Sheets(Результат).Cells(3, 3) = 1-й год Sheets(Результат).Cells(3, 4) = 2-й год Sheets(Результат).Cells(3, 5) = 3-й год Sheets(Результат).Cells(3, 6) = Всего Sheets(Результат).Cells(4, 1) = Розы Sheets(Результат).Cells(5, 1) = Гвоздики Sheets(Результат).Cells(6, 1) = Лилии Sheets(Результат).Cells(7, 1) = Тюльпаны Sheets(Результат).Cells(8, 1) = Орхидеи Sheets(Результат).Cells(9, 1) = Хризантемы в соответсвующие ячейки записываются цены собранных букетов For i = 1 To 6 Sheets(Результат).Cells(3 i, 2) = cena(i) For j = 1 To 4 в соответсвующие ячейки записываются количество собранных букетов за каждый год Sheets(Результат).Cells(3 i, 2 j) = koll(i, j) рассчитывается количество собранных букетов каждого вида за 3 года koll_n(i) = koll_n(i) koll(i, j) Next j результат записывается в соответствующие ячейки Sheets(Результат).Cells(3 i, 6) = koll_n(i) Next i на листе Результат создаются ячейки с определенными названиями Sheets(Результат).Select Sheets(Результат).Cells(12, 1) = Доход в денежном эквиваленте Sheets(Результат).Cells(13, 1) = Наименования цветов Sheets(Результат).Cells(13, 2) = Цена 1-го букета Sheets(Результат).Cells(13, 3) = Доход Sheets(Результат).Cells(14, 3) = 1-й год Sheets(Результат).Cells(14, 4) = 2-й год Sheets(Результат).Cells(14, 5) = 3-й год Sheets(Результат).Cells(14, 6) = Всего Sheets(Результат).Cells(15, 1) = Розы Sheets(Результат).Cells(16, 1) = Гвоздики Sheets(Результат).Cells(17, 1) = Лилии Sheets(Результат).Cells(18, 1) = Тюльпаны Sheets(Результат).Cells(19, 1) = Орхидие Sheets(Результат).Cells(20, 1) = Хризантемы Sheets(Результат).Cells(21, 1) = Доход по всем цветам за каждый год во внешнем цикле происходит вывод дохода по всем цветам за каждый год и общий доход колхоза, собранных в данный период For i = 1 To 7 в этом цикле вычисляется общее количество букетов за 3 года доход по всем цветам за каждый год и общий доход колхоза за 3 года For j = 1 To 4 Sheets(Результат).Cells(14 i, 2 j) = koll(i, j) * cena(i) zar(j) = zar(j) koll(i, j) * cena(i) zar(6) = zar(6) koll(i, j) * cena(i) Next j Sheets(Результат).Cells(14 i, 2) = cena(i) Sheets(Результат).Cells(14 i, 6) = cena(i) * koll_n(i) Next i в данном цикле происходит выбор суммы наибольшего заработка и соответственно день с максимальным заработком становится день j (день, в который был получен максимальный доход) For j = 1 To 4 Sheets(Результат).Cells(21, 2 j) = zar(j) If zar(j) > zarpl Then zarpl = zar(j) Sheets(Результат).Cells(23, 6) = vid vid = розы End If Next в соответствующие ячейки выводятся заработок рабочего за неделю, день с максимальным доходом и размер дохода в этот день Sheets(Результат).Select Sheets(Результат).Cells(22, 1) = Общий доход колхоза за 3 года Sheets(Результат).Cells(22, 6) = zar(6) Sheets(Результат).Cells(23, 1) = Вид цветов, принесший максимальный доход за 2 года Sheets(Результат).Cells(23, 6) = Розы End Sub 6.