Пример готовой курсовой работы по предмету: Информатика
Содержание
Содержание 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)
If KolGames(j, i)
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 CommandButton 1_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
