Разработка программы для решения экономических задач с использованием массивов

2)Основная часть - описание проделанной работы:

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

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

на экран:

1)Исходные данные в виде таблицы, где указаны наименование игр,цена игр в каждом квартале,

количество проданных игр за каждый квартал

2)Доход от каждой игры за год

3)Доход за каждый квартал по всем играм

4)Общий доход от всех игр за год

5)Наименование игры, принесшей наименьший доход за год



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

Public Games(7) As String Названия игр

Public GamePrice(4, 7) As Integer цена j-той игры в i-том квартале

Public KolGames(4, 7) As Integer количество j-той игры в i-том квартале

Public GameIncome(7) As Integer доход с i-той игры

Public QuorterIncome(4) As Integer доход в i-том квартале

Public YearIncome As Long годовой доход

Public MinIncome As Integer наименьший доход

Public MinGame As String наименование игры принесшей наименьший доход

Public i, j, k, l As Integer параметры для циклов

Public vrPrice, vrKol As Integer переменные для временного хранения цены и количества при сортировке

Public vrGame As String для хранения названия игры при сортировке

-Блок-схема

с

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





ввод данных

начало

for I =1 to 7



Games(i) = Cells(i + 1, 1)





for I =1 to 7



GamePrice(j, i) = InputBox("введите цену" & Games(i) & " " & j & "квартала")



Cells(i + 1, j * 2 + 1) = GamePrice(j, i)











расчеты







For j = 1 To 4

For i = 1 To 7



GamePrice(j, i) = Cells(i + 1, j * 2 + 1)

KolGames(j, i) = Cells(i + 1, j * 2)







If GamePrice(j, i) < 1 Then For j = 1 To 4

If KolGames(j, i) < 0 Then For i = 1 To 7



GameIncome(i) = GameIncome(i) + GamePrice(j, i) * KolGames(j, i)

QuorterIncome(i) = QuorterIncome(i) + GamePrice(i, j) * KolGames(i, j)





For i = 1 To 7







If MinIncome > GameIncome(i)





MinIncome = GameIncome(i)

MinGame = Games(i)











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

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

при открытии файла описываются переменные.

управляющие кнопки находятся на листе Excel. Нажатие каждой из них вызывает соответствующую законченную процедуру- кнопки «рассчитать», «очистить», «сортировка», либо вызывает на экран форму для дальнейшей работы кнопки «ввод данных», «действия» - кнопкам которых также назначены соответствующие команды.

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



Option Explicit Обязательное описание переменных

описание переменных было рассмотрено выше

Public Games(7) As String

Public GamePrice(4, 7) As Integer

Public KolGames(4, 7) As Integer

Public GameIncome(7) As Integer

Public QuorterIncome(4) As Integer

Public YearIncome As Long

Public MinIncome As Integer

Public MinGame As String

Public i, j, k, l As Integer

Public vrPrice, vrKol As Integer

Public vrGame As String





Sub Auto_Open() макрос запускаемый при открытии документа



For i = 1 To 7 в цикле

Games(i) = Cells(i + 1, 1) считывает названия игр

Next i



'For j = 1 To 4 в цикле считывает цену и количество игр, дублируется в

'For i = 1 To 7 процедурах, и поэтому закомментировано

'GamePrice(j, i) = Cells(i + 1, j * 2 + 1)

'KolGames(j, i) = Cells(i + 1, j * 2)

'Next i

'Next j



End Sub конец макроса



Эти кнопки находятся на листе

Private Sub CommandButton1_Click() процедура описывающая действия при нажатии кнопки «ввод данных»

For i = 1 To 7 в цикле

Games(i) = Cells(i + 1, 1) считываются названия игр

Next i конец цикла

VVod.Show открывает форму VVod

End Sub конец

Описание открытой формы vvod