Блок-схема. 
Программа подсчета доходов киоска печатной продукции

Описание алгоритма

Зарезервируем память для хранения переменных и массивов. Присвоим всем переменным нулевое значение. Создадим два цикла, для присвоения массивам нулевого значение. Выберем лист с начальными данными, создаем цикл для заполнения массива наименования журналов. Создаем внешний цикл для 15 журналов, затем создаем внутренний цикл для 6 месяцы, занесем данные с таблицы в массив об журналов за каждый день по всем 15, занесем данные с таблицы в массив о закупочных ценах журналах по всем 6 месяцам. Затем на втором листе заполним названия колонок и строк. Создаём два цикла для расчёта общей стоимости всех журналов, и общей стоимости всех журналов за 6 месяцев, после выхода из внутреннего цикла записываем данные в таблицу.

Создаем внешний цикл за 6 месяцев и внутренний для 15 журналов. Считаем доход за каждый день. Выходим из внутреннего цикла. Выводим доход за каждый месяц. Доход за 6 месяцев рассчитываем и выводим его. Выходим из внешнего цикла.

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

Sub Кнопка1_Щелчок ().

Dim i As Integer, j As Integer 'внутренние переменные.

Dim type_name (15) As String 'журналы.

Dim price (15, 6) As Long 'цена за единицу.

Dim koll (15, 6) As Long 'количество (по месяцам).

Dim total_koll_3den (15) As Long 'количество проданных жарналов за 2 месяца.

Dim total_koll_6den (6) As Long 'количество проданных журналов 6 месяцев (по месяцам).

Dim total_price As Long 'общая стоимость.

total_price = 0.

less_del = 0.

less_del_type = 0.

For i = 1 To 6.

total_koll_6den (i) = 0.

Next.

For i = 1 To 15.

total_koll_3den (i) = 0.

Next.

'Выбираем лист начальных данных.

Sheets («Начальные_Данные»).Select.

'Выбираем название журналов.

For i = 1 To 15.

type_name (i) = Cells (3 + i, 1).

Next.

'Вводим цену и количество.

For i = 1 To 15.

For j = 1 To 6.

price (i, j) = Cells (20 + i, 2 + j).

koll (i, j) = Cells (3 + i, 2 + j).

Next j.

Next i.

'Далее на листе «Result» в ячейку с определенными данными вводится ее название.

Sheets («Result»).Cells (1, 1) = «Продажа журналов» .

Sheets («Result»).Cells (2, 1) = «Наименование» .

Sheets («Result»).Cells (2, 3) = «Поставки» .

Sheets («Result»).Cells (3, 3) = «1-й месяц» .

Sheets («Result»).Cells (3, 4) = «2-й месяц» .

Sheets («Result»).Cells (3, 5) = «Всего» .

Sheets («Result»).Cells (4, 1) = «Журнал 1» .

Sheets («Result»).Cells (5, 1) = «Журнал 2» .

Sheets («Result»).Cells (6, 1) = «Журнал 3» .

Sheets («Result»).Cells (7, 1) = «Журнал 4» .

Sheets («Result»).Cells (8, 1) = «Журнал 5» .

Sheets («Result»).Cells (9, 1) = «Журнал 6» .

Sheets («Result»).Cells (10, 1) = «Журнал 7» .

Sheets («Result»).Cells (11, 1) = «Журнал 8» .

Sheets («Result»).Cells (12, 1) = «Журнал 9» .

Sheets («Result»).Cells (13, 1) = «Журнал 10» .

Sheets («Result»).Cells (14, 1) = «Журнал 11» .

Sheets («Result»).Cells (15, 1) = «Журнал 12» .

Sheets («Result»).Cells (16, 1) = «Журнал 13» .

Sheets («Result»).Cells (17, 1) = «Журнал 14» .

Sheets («Result»).Cells (18, 1) = «Журнал 15» .

'Всего продаж по дням.

Sheets («Result»).Select.

Sheets («Result»).Cells (21, 1) = «Общий доход за каждый месяц» .

Sheets («Result»).Cells (22, 1) = «1-й месяц» .

Sheets («Result»).Cells (22, 2) = «2-й месяц» .

Sheets («Result»).Cells (22, 3) = «3-й месяц» .

Sheets («Result»).Cells (22, 4) = «4-й месяц» .

Sheets («Result»).Cells (22, 5) = «5-й месяц» .

Sheets («Result»).Cells (22, 6) = «6-й месяц» .

'Продажи за первые 2 дня.

For i = 1 To 15.

For j = 1 To 2.

Sheets («Result»).Cells (3 + i, 2 + j) = koll (i, j).

total_koll_3den (i) = total_koll_3den (i) + koll (i, j).

Next j.

Sheets («Result»).Cells (3 + i, 5) = total_koll_3den (i).

Next i.

For i = 1 To 6.

For j = 1 To 15.

total_koll_6den (i) = total_koll_6den (i) + koll (j, i).

total_price = total_price + price (j, i) * koll (j, i).

Next j.

Sheets («Result»).Cells (23, i) = total_koll_6den (i).

Next i.

'Общая стоимость проданных журналов.

Sheets («Result»).Cells (20, 1) = «Общая стоимость» .

Sheets («Result»).Cells (20, 5) = total_price.

End Sub.

Описание вводных данных и результат вычислений Таблица исходных данных.

Таблица с вычислениями.