Открытие листа с результатами, формирование матрицы входных данных. Организуется два вложенных цикла (доход по всем цветам за каждый год и общее количество букетов за 3 года). Во внутреннем цикле (по годам, расчет по одному виду цветов) суммируется количество собранных букетов, после выхода из внутреннего цикла выводится результат собранных букетов.

Расчет сумм дохода по каждому виду цветов за каждый год, количество собранных букетов и вывод результатов. Организуется два вложенных цикла: внешний по цветам, внутренний по годам. Для оптимизации процесса расчетная часть совмещена с выводом: во внутреннем цикле происходит вычисление суммы дохода по i-му виду букетов в j-й год с выводом результата, во внешнем цикле (после получения результатов внутреннего цикла) — вывод стоимости одного букета и по всем видам цветов. Доход за каждый год организован в этом же внутреннем цикле.

Определение вида цветов, принесший максимальный доход за 2 года. Используется алгоритм сравнения, после выводиться результат вида цветов, принесший максимальный доход за 2 года

5. Листинг программы

Сначала объявляем переменные, используемые в программе.

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