Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
курсовая информатика_3.docx
Скачиваний:
6
Добавлен:
02.11.2018
Размер:
2.22 Mб
Скачать

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ

РОССИЙСКОЙ ФЕДЕРАЦИИ

ИДО ГОУ МГИУ

Курсовая работа

По дисциплине «Информатика»

Задание:№89

Группа:

Студент:

Руководитель: Егоркин В. А.

Москва 2010

Содержание

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

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

3. Блок схема……………………………………………………………………...7

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

5. Листинг программы…………………………………………………...………11

6. Описание входных данных и результат вычисления……………………….17

7.Список использованной литературы…………………………………………22

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

Суши – бар за 12 месяцев продал различное количество суши ( 12 наименований) по цене, устанавливаемой в начале каждого месяца (т.е. каждый месяц цены на блюде менялись).

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

  • Исходные данные в виде таблицы, где указаны наименования суши, цена блюда в каждом месяце, количество проданных блюд за каждый месяц;

  • Доход по каждому блюду за 6 месяцев;

  • Доход за каждый месяц по всем блюдам;

  • Общий доход по всем блюдам за год;

  • Наименование блюда, принесшего наименьший доход.

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

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

1.наименование суши;

2. количество блюд в каждом месяце;

3.количество проданных блюд за каждый месяц.

Рис.№1 «Начальные данные»

Рис.№2 «Результат»

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

1) doh_po_blud(12,12) – доход по каждому из блюд за каждый месяц (отсюда вычисляются доход по каждому блюду за 6 месяцев, за год и наименование блюда принесшего наименьший доход), представляет двумерный массив целых чисел:

Dim doh_po_blud(12,12) As Integer

В суши баре удобнее вести счет целыми числами, поэтому дробные числа в стоимости блюд не используются, а потому и массив doh_po_blud(12,12) является целочисленным.

2) obw_doh_za_god - общий доход по всем блюдам за год. Так как общая сумма дохода велика, то эта переменная представляет собой длинное целое чесло:

Dim obw_doh_za_god As Long

3) doh, doh1 - Общий доход по одному блюду за год. Так как общая сумма дохода велика, то эти переменные представляет собой длинные целые чесла:

Dimdoh, doh1 AsLong

4) k, i, j - Вспомогательные переменные и счетчики цыклов. Так как эти переменные не имеют в программе отрицательных значений и не превышают значения равного 255, то эти переменные представляют собой простые целые положительные числа:

Dim k, i, j As Byte.

3. Блок схема

Начало

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

'Объявление необходимых переменных

Dimdoh_po_blud(12, 12) AsInteger 'Доход по каждому блюду за каждый месяц

Dimobw_doh_za_godAsLong 'Доход по всем блюдам за год

Dimdoh, doh1 AsLong 'Доход по одному блюду за год

Dim k, i, j AsByte 'Вспомогательные переменные и счетчики циклов

'Обнуление переменных

obw_doh_za_god = 0

doh = 0

'Работа с верхней частью таблицы "Начальные данные"

For i = 1 To 12

k = 1

For j = 1 To 6

'Вычисление и занесение данных о доходе по каждому блюду за каждый месяц

'в двумерный массив doh_po_blud(12,12)

doh_po_blud(i, j) = Cells(3 + i, k + j) * Cells(3 + i, k + 1 + j)

'Занесение полученного результата в таблицу "Результат"

Sheets("Результат").Cells(3 + i, 1 + j) = doh_po_blud(i, j)

'Инкриминация переменной k, используемой для правильной индексации

'ячеек таблицы "Начальные данные"

k = k + 1

Next j

Next i

'Работа с нижней частью таблицы "Начальные данные"

For i = 1 To 12

k = 1

For j = 1 To 6

'Вычисление и занесение данных о доходе по каждому блюду за каждый месяц

'в двумерный массив doh_po_blud(12,12)

doh_po_blud(i, j + 6) = Cells(20 + i, k + j) * Cells(20 + i, k + 1 + j)

'Занесение полученного результата в таблицу "Результат"

Sheets("Результат").Cells(3 + i, 7 + j) = doh_po_blud(i, j + 6)

'Инкриминация переменной k, используемой для правильной индексации

'ячеек таблицы "Начальные данные"

k = k + 1

Next j

Next i

'Заполнение названий полей таблицы "Результат"

Sheets("Результат").Select

Sheets("Результат").Cells(3, 1) = "Наименование блюд"

Sheets("Результат").Cells(3, 2) = "Доход за Январь"

Sheets("Результат").Cells(3, 3) = "Доход за Февраль"

Sheets("Результат").Cells(3, 4) = "Доход за Март"

Sheets("Результат").Cells(3, 5) = "Доход за Апрель"

Sheets("Результат").Cells(3, 6) = "Доход за Май"

Sheets("Результат").Cells(3, 7) = "Доход за Июнь"

Sheets("Результат").Cells(3, 8) = "Доход за Июль"

Sheets("Результат").Cells(3, 9) = "Доход за Август"

Sheets("Результат").Cells(3, 10) = "Доход за Сентябрь"

Sheets("Результат").Cells(3, 11) = "Доход за Октябрь"

Sheets("Результат").Cells(3, 12) = "Доход за Ноябрь"

Sheets("Результат").Cells(3, 13) = "Доход за Декабрь"

Sheets("Результат").Cells(3, 14) = "Доход за полгода"

Sheets("Результат").Cells(4, 1) = "Драгон"

Sheets("Результат").Cells(5, 1) = "Унаги бокс - суси"

Sheets("Результат").Cells(6, 1) = "Маруякисякэ маки"

Sheets("Результат").Cells(7, 1) = "Парадайзрору"

Sheets("Результат").Cells(8, 1) = "Сякэтидзурору"

Sheets("Результат").Cells(9, 1) = "О рицу маки"

Sheets("Результат").Cells(10, 1) = "Саамонскинрору"

Sheets("Результат").Cells(11, 1) = "Гейша рору"

Sheets("Результат").Cells(12, 1) = "Ана-куи маки"

Sheets("Результат").Cells(13, 1) = "Якитория"

Sheets("Результат").Cells(14, 1) = "Фурикакэрору"

Sheets("Результат").Cells(15, 1) = "Цезарь"

Sheets("Результат").Cells(17, 1) = "Итого:"

Sheets("Результат").Cells(18, 1) = "Общий доход за год -"

Sheets("Результат").Cells(19, 1) = "Наименьший доход с -"

'Вычисление дохода

For i = 1 To 12

For j = 1 To 12

'Вычисление ощего дохода за год путем циклического суммирования

'всех ячеек двумерного массива doh_po_blud(12,12)

'с сохранением результата в переменную obw_doh_za_god

obw_doh_za_god = obw_doh_za_god + doh_po_blud(j, i)

'Вычисление дохода по каждому блюду за год путем суммирования

'каждой строки ячеек двумерного массива doh_po_blud(12,12)

'с сохранением результата в переменную doh

doh = doh + doh_po_blud(i, j)

'Занесение в таблицу "результат" дохода по каждому блюду за полгода

If j = 6 Then

Sheets("Результат").Cells(3 + i, 14) = doh

EndIf

'Вычисление и занесение в таблицу "результат"

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

'Вычисление происходит путем сравнения дополнительной переменной doh1,

'хранящей текущее наименьшее численное значание дохода по каждому из блюд,

'и переменной doh, хранящей числинное значение дохода по текущему

'(в соответствии переменной счетчика цикла i) блюду

'(текущей строке дывумерного массива doh_po_blud(12,12)).

'Далее соответствующее название блюда заносится в таблицу "Результат"

If j = 12 Then

If i = 1 Then

doh1 = doh

Sheets("Результат").Cells(19, 2) = Sheets("Результат").Cells(3 + i, 1)

Else

If doh< doh1 Then

doh1 = doh

Sheets("Результат").Cells(19, 2) = Sheets("Результат").Cells(3 + i, 1)

End If

doh = 0

End If

End If

Nextj

Nexti

PrivateSubWorkbook_Open()

'Переключение фокуса на таблицу "Начальные данные"

Sheets("Начальные данные").Select

'Очистка ячеек таблицы "Результат"

For i = 3 To 19

For j = 1 To 14

Sheets("Результат").Cells(i, j) = ""

Next j

Next i

EndSub

Ввод данных:

Нулевых данных,

вспомогательных величин

i=1,12

k=1

j=1,6

doh_po_blud(i, j)=cells(3+i, k+j)*cells(3+i, k+1+j)

Вывод данных форм

Cells(*,*)=…

k=k+1

i=1,12

k=1

j=1,6

doh_po_blud(i, j+6)=cells(20+i, k+j)*cells(20+i, k+1+j)

Вывод данных форм

Cells(*,*)=…

k=k+1

Открытие листа с данными(«результат»)

Вывод данных форм

Cells(*,*)=…

i=1,12

j=1,12

obw_doh_za_god = obw_doh_za_god + doh_po_blud(j, i)

doh = doh + doh_po_blud(i, j)

j=6

нет

да

Вывод данных форм

Cells(*,*)=…

j=12

нет

да

i=1

нет

да

doh1 = doh

Вывод данных форм

Cells(*,*)=…

doh < doh1

да

нет

doh1 = doh

Вывод данных форм

Cells(*,*)=…

doh = 0

Вывод данных форм

Cells(*,*)=…

Конец

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

'Объявление необходимых переменных

Dimdoh_po_blud(12, 12) AsInteger 'Доход по каждому блюду за каждый месяц

Dimobw_doh_za_godAsLong 'Доход по всем блюдам за год

Dimdoh, doh1 AsLong 'Доход по одному блюду за год

Dim k, i, j AsByte 'Вспомогательные переменные и счетчики циклов

'Обнуление переменных

obw_doh_za_god = 0

doh = 0

'Работа с верхней частью таблицы "Начальные данные"

For i = 1 To 12

k = 1

For j = 1 To 6

'Вычисление и занесение данных о доходе по каждому блюду за каждый месяц

'в двумерный массив doh_po_blud(12,12)

doh_po_blud(i, j) = Cells(3 + i, k + j) * Cells(3 + i, k + 1 + j)

'Занесение полученного результата в таблицу "Результат"

Sheets("Результат").Cells(3 + i, 1 + j) = doh_po_blud(i, j)

'Инкриминация переменной k, используемой для правильной индексации

'ячеек таблицы "Начальные данные"

k = k + 1

Next j

Next i

'Работа с нижней частью таблицы "Начальные данные"

For i = 1 To 12

k = 1

For j = 1 To 6

'Вычисление и занесение данных о доходе по каждому блюду за каждый месяц

'в двумерный массив doh_po_blud(12,12)

doh_po_blud(i, j + 6) = Cells(20 + i, k + j) * Cells(20 + i, k + 1 + j)

'Занесение полученного результата в таблицу "Результат"

Sheets("Результат").Cells(3 + i, 7 + j) = doh_po_blud(i, j + 6)

'Инкриминация переменной k, используемой для правильной индексации

'ячеек таблицы "Начальные данные"

k = k + 1

Next j

Next i

'Заполнение названий полей таблицы "Результат"

Sheets("Результат").Select

Sheets("Результат").Cells(3, 1) = "Наименование блюд"

Sheets("Результат").Cells(3, 2) = "Доход за Январь"

Sheets("Результат").Cells(3, 3) = "Доход за Февраль"

Sheets("Результат").Cells(3, 4) = "Доход за Март"

Sheets("Результат").Cells(3, 5) = "Доход за Апрель"

Sheets("Результат").Cells(3, 6) = "Доход за Май"

Sheets("Результат").Cells(3, 7) = "Доход за Июнь"

Sheets("Результат").Cells(3, 8) = "Доход за Июль"

Sheets("Результат").Cells(3, 9) = "Доход за Август"

Sheets("Результат").Cells(3, 10) = "Доход за Сентябрь"

Sheets("Результат").Cells(3, 11) = "Доход за Октябрь"

Sheets("Результат").Cells(3, 12) = "Доход за Ноябрь"

Sheets("Результат").Cells(3, 13) = "Доход за Декабрь"

Sheets("Результат").Cells(3, 14) = "Доход за полгода"

Sheets("Результат").Cells(4, 1) = "Драгон"

Sheets("Результат").Cells(5, 1) = "Унаги бокс - суси"

Sheets("Результат").Cells(6, 1) = "Маруякисякэ маки"

Sheets("Результат").Cells(7, 1) = "Парадайзрору"

Sheets("Результат").Cells(8, 1) = "Сякэтидзурору"

Sheets("Результат").Cells(9, 1) = "О рицу маки"

Sheets("Результат").Cells(10, 1) = "Саамонскинрору"

Sheets("Результат").Cells(11, 1) = "Гейша рору"

Sheets("Результат").Cells(12, 1) = "Ана-куи маки"

Sheets("Результат").Cells(13, 1) = "Якитория"

Sheets("Результат").Cells(14, 1) = "Фурикакэрору"

Sheets("Результат").Cells(15, 1) = "Цезарь"

Sheets("Результат").Cells(17, 1) = "Итого:"

Sheets("Результат").Cells(18, 1) = "Общий доход за год -"

Sheets("Результат").Cells(19, 1) = "Наименьший доход с -"

'Вычисление дохода

For i = 1 To 12

For j = 1 To 12

'Вычисление ощего дохода за год путем циклического суммирования

'всех ячеек двумерного массива doh_po_blud(12,12)

'с сохранением результата в переменную obw_doh_za_god

obw_doh_za_god = obw_doh_za_god + doh_po_blud(j, i)

'Вычисление дохода по каждому блюду за год путем суммирования

'каждой строки ячеек двумерного массива doh_po_blud(12,12)

'с сохранением результата в переменную doh

doh = doh + doh_po_blud(i, j)

'Занесение в таблицу "результат" дохода по каждому блюду за полгода

If j = 6 Then

Sheets("Результат").Cells(3 + i, 14) = doh

EndIf

'Вычисление и занесение в таблицу "результат"

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

'Вычисление происходит путем сравнения дополнительной переменной doh1,

'хранящей текущее наименьшее численное значание дохода по каждому из блюд,

'и переменной doh, хранящей числинное значение дохода по текущему

'(в соответствии переменной счетчика цикла i) блюду

'(текущей строке дывумерного массива doh_po_blud(12,12)).

'Далее соответствующее название блюда заносится в таблицу "Результат"

If j = 12 Then

If i = 1 Then

doh1 = doh

Sheets("Результат").Cells(19, 2) = Sheets("Результат").Cells(3 + i, 1)

Else

If doh< doh1 Then

doh1 = doh

Sheets("Результат").Cells(19, 2) = Sheets("Результат").Cells(3 + i, 1)

End If

doh = 0

End If

End If

Nextj

Nexti

PrivateSubWorkbook_Open()

'Переключение фокуса на таблицу "Начальные данные"

Sheets("Начальные данные").Select

'Очистка ячеек таблицы "Результат"

For i = 3 To 19

For j = 1 To 14

Sheets("Результат").Cells(i, j) = ""

Next j

Next i

EndSub

Так же в программе есть фрагмент кода, отвечающий за очистку листа «результат», и принудительное открытие листа «начальные данные» при запуске файла

Начало

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

'Объявление необходимых переменных

Dimdoh_po_blud(12, 12) AsInteger 'Доход по каждому блюду за каждый месяц

Dimobw_doh_za_godAsLong 'Доход по всем блюдам за год

Dimdoh, doh1 AsLong 'Доход по одному блюду за год

Dim k, i, j AsByte 'Вспомогательные переменные и счетчики циклов

'Обнуление переменных

obw_doh_za_god = 0

doh = 0

'Работа с верхней частью таблицы "Начальные данные"

For i = 1 To 12

k = 1

For j = 1 To 6

'Вычисление и занесение данных о доходе по каждому блюду за каждый месяц

'в двумерный массив doh_po_blud(12,12)

doh_po_blud(i, j) = Cells(3 + i, k + j) * Cells(3 + i, k + 1 + j)

'Занесение полученного результата в таблицу "Результат"

Sheets("Результат").Cells(3 + i, 1 + j) = doh_po_blud(i, j)

'Инкриминация переменной k, используемой для правильной индексации

'ячеек таблицы "Начальные данные"

k = k + 1

Next j

Next i

'Работа с нижней частью таблицы "Начальные данные"

For i = 1 To 12

k = 1

For j = 1 To 6

'Вычисление и занесение данных о доходе по каждому блюду за каждый месяц

'в двумерный массив doh_po_blud(12,12)

doh_po_blud(i, j + 6) = Cells(20 + i, k + j) * Cells(20 + i, k + 1 + j)

'Занесение полученного результата в таблицу "Результат"

Sheets("Результат").Cells(3 + i, 7 + j) = doh_po_blud(i, j + 6)

'Инкриминация переменной k, используемой для правильной индексации

'ячеек таблицы "Начальные данные"

k = k + 1

Next j

Next i

'Заполнение названий полей таблицы "Результат"

Sheets("Результат").Select

Sheets("Результат").Cells(3, 1) = "Наименование блюд"

Sheets("Результат").Cells(3, 2) = "Доход за Январь"

Sheets("Результат").Cells(3, 3) = "Доход за Февраль"

Sheets("Результат").Cells(3, 4) = "Доход за Март"

Sheets("Результат").Cells(3, 5) = "Доход за Апрель"

Sheets("Результат").Cells(3, 6) = "Доход за Май"

Sheets("Результат").Cells(3, 7) = "Доход за Июнь"

Sheets("Результат").Cells(3, 8) = "Доход за Июль"

Sheets("Результат").Cells(3, 9) = "Доход за Август"

Sheets("Результат").Cells(3, 10) = "Доход за Сентябрь"

Sheets("Результат").Cells(3, 11) = "Доход за Октябрь"

Sheets("Результат").Cells(3, 12) = "Доход за Ноябрь"

Sheets("Результат").Cells(3, 13) = "Доход за Декабрь"

Sheets("Результат").Cells(3, 14) = "Доход за полгода"

Sheets("Результат").Cells(4, 1) = "Драгон"

Sheets("Результат").Cells(5, 1) = "Унаги бокс - суси"

Sheets("Результат").Cells(6, 1) = "Маруякисякэ маки"

Sheets("Результат").Cells(7, 1) = "Парадайзрору"

Sheets("Результат").Cells(8, 1) = "Сякэтидзурору"

Sheets("Результат").Cells(9, 1) = "О рицу маки"

Sheets("Результат").Cells(10, 1) = "Саамонскинрору"

Sheets("Результат").Cells(11, 1) = "Гейша рору"

Sheets("Результат").Cells(12, 1) = "Ана-куи маки"

Sheets("Результат").Cells(13, 1) = "Якитория"

Sheets("Результат").Cells(14, 1) = "Фурикакэрору"

Sheets("Результат").Cells(15, 1) = "Цезарь"

Sheets("Результат").Cells(17, 1) = "Итого:"

Sheets("Результат").Cells(18, 1) = "Общий доход за год -"

Sheets("Результат").Cells(19, 1) = "Наименьший доход с -"

'Вычисление дохода

For i = 1 To 12

For j = 1 To 12

'Вычисление ощего дохода за год путем циклического суммирования

'всех ячеек двумерного массива doh_po_blud(12,12)

'с сохранением результата в переменную obw_doh_za_god

obw_doh_za_god = obw_doh_za_god + doh_po_blud(j, i)

'Вычисление дохода по каждому блюду за год путем суммирования

'каждой строки ячеек двумерного массива doh_po_blud(12,12)

'с сохранением результата в переменную doh

doh = doh + doh_po_blud(i, j)

'Занесение в таблицу "результат" дохода по каждому блюду за полгода

If j = 6 Then

Sheets("Результат").Cells(3 + i, 14) = doh

EndIf

'Вычисление и занесение в таблицу "результат"

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

'Вычисление происходит путем сравнения дополнительной переменной doh1,

'хранящей текущее наименьшее численное значание дохода по каждому из блюд,

'и переменной doh, хранящей числинное значение дохода по текущему

'(в соответствии переменной счетчика цикла i) блюду

'(текущей строке дывумерного массива doh_po_blud(12,12)).

'Далее соответствующее название блюда заносится в таблицу "Результат"

If j = 12 Then

If i = 1 Then

doh1 = doh

Sheets("Результат").Cells(19, 2) = Sheets("Результат").Cells(3 + i, 1)

Else

If doh< doh1 Then

doh1 = doh

Sheets("Результат").Cells(19, 2) = Sheets("Результат").Cells(3 + i, 1)

End If

doh = 0

End If

End If

Nextj

Nexti

PrivateSubWorkbook_Open()

'Переключение фокуса на таблицу "Начальные данные"

Sheets("Начальные данные").Select

'Очистка ячеек таблицы "Результат"

For i = 3 To 19

For j = 1 To 14

Sheets("Результат").Cells(i, j) = ""

Next j

Next i

EndSub

Открытие листа с данными(«начальные данные»)

i=3,19

j=1,14

Очистка данных форм

Cells(i,j)=…

Конец

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

'Объявление необходимых переменных

Dimdoh_po_blud(12, 12) AsInteger 'Доход по каждому блюду за каждый месяц

Dimobw_doh_za_godAsLong 'Доход по всем блюдам за год

Dimdoh, doh1 AsLong 'Доход по одному блюду за год

Dim k, i, j AsByte 'Вспомогательные переменные и счетчики циклов

'Обнуление переменных

obw_doh_za_god = 0

doh = 0

'Работа с верхней частью таблицы "Начальные данные"

For i = 1 To 12

k = 1

For j = 1 To 6

'Вычисление и занесение данных о доходе по каждому блюду за каждый месяц

'в двумерный массив doh_po_blud(12,12)

doh_po_blud(i, j) = Cells(3 + i, k + j) * Cells(3 + i, k + 1 + j)

'Занесение полученного результата в таблицу "Результат"

Sheets("Результат").Cells(3 + i, 1 + j) = doh_po_blud(i, j)

'Инкриминация переменной k, используемой для правильной индексации

'ячеек таблицы "Начальные данные"

k = k + 1

Next j

Next i

'Работа с нижней частью таблицы "Начальные данные"

For i = 1 To 12

k = 1

For j = 1 To 6

'Вычисление и занесение данных о доходе по каждому блюду за каждый месяц

'в двумерный массив doh_po_blud(12,12)

doh_po_blud(i, j + 6) = Cells(20 + i, k + j) * Cells(20 + i, k + 1 + j)

'Занесение полученного результата в таблицу "Результат"

Sheets("Результат").Cells(3 + i, 7 + j) = doh_po_blud(i, j + 6)

'Инкриминация переменной k, используемой для правильной индексации

'ячеек таблицы "Начальные данные"

k = k + 1

Next j

Next i

'Заполнение названий полей таблицы "Результат"

Sheets("Результат").Select

Sheets("Результат").Cells(3, 1) = "Наименование блюд"

Sheets("Результат").Cells(3, 2) = "Доход за Январь"

Sheets("Результат").Cells(3, 3) = "Доход за Февраль"

Sheets("Результат").Cells(3, 4) = "Доход за Март"

Sheets("Результат").Cells(3, 5) = "Доход за Апрель"

Sheets("Результат").Cells(3, 6) = "Доход за Май"

Sheets("Результат").Cells(3, 7) = "Доход за Июнь"

Sheets("Результат").Cells(3, 8) = "Доход за Июль"

Sheets("Результат").Cells(3, 9) = "Доход за Август"

Sheets("Результат").Cells(3, 10) = "Доход за Сентябрь"

Sheets("Результат").Cells(3, 11) = "Доход за Октябрь"

Sheets("Результат").Cells(3, 12) = "Доход за Ноябрь"

Sheets("Результат").Cells(3, 13) = "Доход за Декабрь"

Sheets("Результат").Cells(3, 14) = "Доход за полгода"

Sheets("Результат").Cells(4, 1) = "Драгон"

Sheets("Результат").Cells(5, 1) = "Унаги бокс - суси"

Sheets("Результат").Cells(6, 1) = "Маруякисякэ маки"

Sheets("Результат").Cells(7, 1) = "Парадайзрору"

Sheets("Результат").Cells(8, 1) = "Сякэтидзурору"

Sheets("Результат").Cells(9, 1) = "О рицу маки"

Sheets("Результат").Cells(10, 1) = "Саамонскинрору"

Sheets("Результат").Cells(11, 1) = "Гейша рору"

Sheets("Результат").Cells(12, 1) = "Ана-куи маки"

Sheets("Результат").Cells(13, 1) = "Якитория"

Sheets("Результат").Cells(14, 1) = "Фурикакэрору"

Sheets("Результат").Cells(15, 1) = "Цезарь"

Sheets("Результат").Cells(17, 1) = "Итого:"

Sheets("Результат").Cells(18, 1) = "Общий доход за год -"

Sheets("Результат").Cells(19, 1) = "Наименьший доход с -"

'Вычисление дохода

For i = 1 To 12

For j = 1 To 12

'Вычисление ощего дохода за год путем циклического суммирования

'всех ячеек двумерного массива doh_po_blud(12,12)

'с сохранением результата в переменную obw_doh_za_god

obw_doh_za_god = obw_doh_za_god + doh_po_blud(j, i)

'Вычисление дохода по каждому блюду за год путем суммирования

'каждой строки ячеек двумерного массива doh_po_blud(12,12)

'с сохранением результата в переменную doh

doh = doh + doh_po_blud(i, j)

'Занесение в таблицу "результат" дохода по каждому блюду за полгода

If j = 6 Then

Sheets("Результат").Cells(3 + i, 14) = doh

EndIf

'Вычисление и занесение в таблицу "результат"

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

'Вычисление происходит путем сравнения дополнительной переменной doh1,

'хранящей текущее наименьшее численное значание дохода по каждому из блюд,

'и переменной doh, хранящей числинное значение дохода по текущему

'(в соответствии переменной счетчика цикла i) блюду

'(текущей строке дывумерного массива doh_po_blud(12,12)).

'Далее соответствующее название блюда заносится в таблицу "Результат"

If j = 12 Then

If i = 1 Then

doh1 = doh

Sheets("Результат").Cells(19, 2) = Sheets("Результат").Cells(3 + i, 1)

Else

If doh< doh1 Then

doh1 = doh

Sheets("Результат").Cells(19, 2) = Sheets("Результат").Cells(3 + i, 1)

End If

doh = 0

End If

End If

Nextj

Nexti

PrivateSubWorkbook_Open()

'Переключение фокуса на таблицу "Начальные данные"

Sheets("Начальные данные").Select

'Очистка ячеек таблицы "Результат"

For i = 3 To 19

For j = 1 To 14

Sheets("Результат").Cells(i, j) = ""

Next j

Next i

EndSub