Задание. 
Разрабока программы

программа листинг алгоритм Магазин швейных принадлежностей продал за 6 месяцев различное количество пуговиц (17 наименований) по цене, устанавливаемой в начале каждого месяца (каждый месяц цены на пуговицы менялись).

Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:

• — исходные данные в виде таблицы, где указаны наименования пуговиц, цена пуговиц в каждом месяце, количество проданных пуговиц в течение каждого месяца;
• — доход по каждому виду пуговиц за первые 3 месяца;
• — доход за каждый месяц по всем пуговицам;
• — общий доход по всем пуговицам за 6 месяцев;
• — наименование пуговиц, принесших наибольший доход в первом месяце.

Описание переменных

На листе «Нач_д» (рис. 1) расположены исходные данные в виде таблицы: наименования пуговиц (17 наименований), цена пуговиц в каждом из 6 месяцев, количество проданных пуговиц в течение каждого месяца. Также на листе расположена кнопка «Расчитать». По нажатию на неё запускается выполнение макроса. Программный код приведён ниже.

Рис. 1. Лист «Нач_д»

В программе используются переменные и массивы типов Integer (целое число), Double (число с плавающей точкой) и String (строка). Массив строк используется для хранения наименований пуговиц. В массивы типа Double записываются цены пуговиц в каждом месяце, выручки за интересующие периоды и общий доход. В массиве типа Integer хранится количество проданных пуговиц по наименованиям в каждом месяце. В программе присутствуют вспомогательные переменные типа Integer. i и j — счётчики циклов. Переменная a использующаяся для расчёта наименования пуговиц принёсших наибольшую прибыль в первом месяце. Все переменные приведены ниже.

• 1. i As Integer, j As Integer, a As Integer — вспомогательные переменные;
• 2. kol (17, 6) As Integer — количество проданных пуговиц (массив);
• 3. cena (17, 6) As Double — цена пуговиц (массив);
• 4. viruchka (17, 6) As Double — выручка (массив);
• 5. viruchkaM (6) As Double — выручка за каждый месяц (массив);
• 6. viruchka3 (17) As Double — выручка за первые 3 месяца по всем пуговицам (массив);
• 7. dohod As Double — доход от продаж;
• 8. pugovici (17) As String — наименование пуговиц (массив);
• 9. max As Double — максимальный доход в первом месяце (массив).