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

Содержание

Содержание 1

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

-Поручение на курсовую работу 2

-Отображение переменных 2

-Блок-схема 2

-Отображение алгоритма 5

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

Отображение входных данных и итог вычислений 17

Перечень использованной литературы 21

Выдержка

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

Литература

1. Гарнаев А. Самоучитель VBA СПб. BHV 1999

2. информация интернет-сайта http://www. somit. ru/e

Больше работ по теме: