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
