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

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)