Написать программу на языке VBA

Cells(kv + 14, n + 1) = sum(kv, n)EndIf'В этом цикле выводится количество проданных туров по кварталамFor n = 1 To 8If Len(strana(n)) <> 0 Then Sheets("Результат").Cells(kv + 14, n + 1) = sum(kv, n)NextNext'Расчет месяца, в котором турфирмой был получен максимальный доход'В этих циклах массив cena(i, j) разбивается на два. Элементы четных столбцов ‘помещаются в массив s(i, j), не четных - в kol(i, j)For i = 1 To 8For j = 1 To 24If j Mod 2 = 0 Thens(i, j) = cena(i, j)Elsekol(i, j) = cena(i, j)End IfNextNextSheets("Результат").Cells(19, 3) = "Месяц, в котором турфирмой был получен максимальный доход"max = sum1(1)'В этих циклах рассчитывается доход по столбцам и вычисляется максимальное значениеFor j = 1 To 24For i = 1 To 8sum1(j) = sum1(j) + kol(i, j) * s(i, j + 1)NextIf sum1(j) <> 0 Then Sheets("Результат").Cells(20, 2 + j) = sum1(j)If sum1(j) > max Thenmax = sum1(j)'здесь запоминается позиция максимального значения для вывода месяца, в котором был ‘получен максимальный доходk = jEndIfNextSheets("Результат").Cells(20, 1) = "Прибыль по месяцам"Sheets("Результат").Cells(21, 1) = "Максимальная прибыль"Sheets("Результат").Cells(21, 2) = mes(k)Sheets("Результат").Cells(21, 3) = max'Расчет дохода, полученного от каждого наименования тура за 2 квартал'В этих циклах рассчитывается доход по строкам c 7 по 12 столбец, что соответствует 2 ‘кварталуFor i = 1 To 8For j = 7 To 12sum2(i) = sum2(i) + kol(i, j) * s(i, j + 1)Next'Здесь выводятся названия туровSheets("Результат").Cells(23 + i, 1) = tur(i)Sheets("Результат").Cells(23 + i, 2) = sum2(i)NextSheets("Результат").Cells(23, 1) = "Доход, полученный от каждого наименования тура за 2 квартал"'Расчет максимального дохода в каждом квартале и вывод названия тура, принесшего ‘максимальный доходSheets("Результат").Cells(32, 1) = "Наименование тура, принесшего максимальный доход в каждом квартале"Sheets("Результат").Cells(33, 2) = "1 квартал"Sheets("Результат").Cells(33, 3) = "2 квартал"Sheets("Результат").Cells(33, 4) = "3 квартал"Sheets("Результат").Cells(33, 5) = "4 квартал"'Во внешнем цикле перебираются кварталы, и выводится максимальная прибыль и ‘наименование тураFor kv = 1 To 4max1 = sum3(kv, 1)'В этом цикле перебираются туры, и выводится доход по каждому туру в каждом ‘кварталеFor i = 1 To 8sum3(kv, i) = 0'В этом цикле перебираются столбцы с учетом кварталов, и ведется расчет дохода и ‘максимального значенияFor j = kv * 6 - 5 To kv * 6sum3(kv, i) = sum3(kv, i) + kol(i, j) * s(i, j + 1)If sum3(kv, i) > max1 Thenmax1 = sum3(kv, i)'Здесь запоминается позиция максимального значения для вывода названия тураnas = iEnd IfNextSheets("Результат").Cells(33 + i, kv + 1) = sum3(kv, i)Sheets("Результат").Cells(33 + i, 1) = tur(i)NextSheets("Результат").Cells(42, 1) = "Максимальная прибыль по кварталам"Sheets("Результат").Cells(42, kv + 1) = max1Sheets("Результат").Cells(43, 1) = "Наименование тура"Sheets("Результат").Cells(43, kv + 1) = tur(nas)NextEnd Sub6. Описание входных данных и результат вычисленийПроверка программы на нулях в количестве проданных туров:Проверка программы на единицах в количестве проданных туров:Проверка на произвольных данных:Исходные данные для задания №53 представлены на Рис.1., решение – на Рис.2.Список использованной литературыVBA. Практическое программирование/ Туркин Олег: Солон-пресс,2007VBA/ Кузьменко В.Г.: Бином,2008.Самоучитель VBA/ Андрей Гарнаев: БХВ-Петербург,2004Информатика. Часть 2. Программирование: Учебно-методическое пособие / Иванов М.Н., Суворов С.В. М.: МГИУ. 2006.Самоучитель программирования на VBA в MicrosoftOffice/В. Д. Хореев: Юниор, 2001Электронные таблицы MicrosoftExcel. Проблемы и решения/ Лори Анн Ульрих: Эком, 2002