Курсовая работа: Составление программы Определение фруктово-ягодной культуры приносящей хозяйству максимальный

Cells(3 + i, 6 + j) = urozhai(i, j)

obsh(i) = obsh(i) + urozhai(i, j)

Next j

Cells(3 + i, 12) = obsh(i)

Next i

Cells(12, 1) = "Результат в денежном эквиваленте"

Cells(13, 1) = " Наименование фруктово-ягодных культур "

Cells(13, 2) = "Доход по всем культурам за каждый год"

Cells(14, 2) = "2000 год "

Cells(14, 3) = "2001 год "

Cells(14, 4) = "2002 год "

Cells(14, 5) = "2003 год "

Cells(14, 6) = "2004 год "

Cells(14, 7) = "Общий доход по всем культурам за 5 лет"

Cells(15, 1) = "1. Яблоня"

Cells(16, 1) = "2. Вишня"

Cells(17, 1) = "3. Слива"

Cells(18, 1) = "4. Черная смородина"

Cells(19, 1) = "5. Крыжовник"

Cells(20, 1) = "6. Клубника"

For i = 1 To 6

For j = 1 To 5

doh(i, j) = zakup_ceni(i, j) * urozhai(i, j)

Cells(14 + i, 1 + j) = doh(i, j)

Next j

Next i

Cells(21, 4) = "Общий доход колхоза за 5 лет"

For i = 1 To 6

obsh_doh_pyat = obsh_doh_pyat + obsh_doh(i)