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

Задание на курсовую работу.

Магазин «Виртуальный мир» продал за 1 месяц (3 декады) некоторое количество компьютеров различных типов (6 типов). Цены на компьютеры устанавливались в начале каждой декады.

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

исходные данные в виде таблицы, где перечислены типы компьютеров и цены на них, количество проданных компьютеров в течение каждой декады;

Доход от каждого компьютера за месяц;

Доход от всех компьютеров за каждую декаду;

Общий доход от продажи за месяц;

тип компьютера, принесшего наибольший доход в месяц.

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

Исходные данные находятся на листе «Нач_д» (рис. 1) и содержат следующую информацию:

типы компьютеров;

цены на них;

количество проданных компьютеров в течение каждой декады;

Рис. 1. Лист с начальными данными.

Результаты работы программы оформляются на листе «Результат» (рис. 2).

В программе переменные описаны следующим образом:

1) cena (7, 3) Цена компьютера, представляет массив дробных чисел

Dim cena (7, 3) As Double

2) koll (7, 4) Количество проданных компьютеров, представляет массив целых чисел

Dim koll (7, 4) As Integer

3) doh (7, 4) Доход от продажи комьютеров, представляет массив дробных чисел

Dim doh (7, 4) As Double

4) maxdoh сумма максимального дохода, представляет дробное число

Dim maxdoh As Double

5) maxtype тип компьютера, принесшего максимальный доход, представляет текстовое значение

Dim maxtype As String

6) i, j Счетчики циклов, представляют целые числа.

Dim i As Integer

Dim j As Integer

Рис. 2 Лист с примером решения.

Переменные количества заданы целыми числами, т.к. мы считаем что невозможно продать часть компьютера.

Блок-схема.

Блоки используются для обозначения действий, которые производит алгоритм, представленный блок-схемой.

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

Начало программы.

Ввод начальных (нулевых) значений для расчетных величин.

Открытие листа с начальными данными («Нач_д») и получение этих данных в рабочие переменные. Предварительные расчеты. Определение максимального дохода за месяц.

Открытие листа результатов, окончательные вычисления. Заполнение листа результатов результатами.