Вход

Курсовая.

Рекомендуемая категория для самостоятельной подготовки:
Курсовая работа*
Код 341350
Дата создания 07 июля 2013
Страниц 16
Покупка готовых работ временно недоступна.
970руб.

Содержание

Введение
Задание на курсовую работу
Описание переменных
Блок-схема
Описание алгоритма
Листинг программы
Проверка работы программы
Заключение
Список литературы

Введение

Курсовая.

Фрагмент работы для ознакомления

Sheets(1).Activate
Range("A:J").HorizontalAlignment = xlCenter

For i = 3 To 10
Rows(i).Clear
Next
For i = 1 To 8
ActiveSheet.Cells(2 + i, 1) = InputBox("Название")
ActiveSheet.Cells(2 + i, 2) = InputBox("Кол-во заступивших роз")
ActiveSheet.Cells(2 + i, 3) = InputBox("Кол-во проданных роз в 1-й день")
ActiveSheet.Cells(2 + i, 4) = InputBox("Кол-во проданных роз в 2-й день")
ActiveSheet.Cells(2 + i, 5) = InputBox("Кол-во проданных роз в 3-й день")
ActiveSheet.Cells(2 + i, 6) = InputBox("Кол-во проданных роз в 4-й день")
ActiveSheet.Cells(2 + i, 7) = InputBox("Кол-во проданных роз в 5-й день")
ActiveSheet.Cells(2 + i, 8) = InputBox("Кол-во проданных роз в 6-й день")
ActiveSheet.Cells(2 + i, 9) = InputBox("Кол-во проданных роз в 7-й день")
ActiveSheet.Cells(2 + i, 10) = InputBox("Цена")
Next
End Sub
Private Sub CommandButton2_Click()
Sheets("Результат").Range("A:B").Clear
'объявляем переменные используемые в программе
Dim i As Integer, j As Integer 'счетчики циклов
Dim k As Integer 'порядковый номер вида роз с наибольшей прибылью
Dim itog_rose(8) As Double ' количество роз каждого вида проданных за каждый день
Dim sm As Double 'общая стоимость роз, проданных за 3 день
Dim itogi As Double 'общая стоимость роз, проданных за неделю
Dim name As String 'название вида розы, принесшего наибольший доход
Dim kol(7) As Integer 'количество роз, проданных за день
'расчет общей стоимости роз проданных за 3 день
'на листе "Результат" создается ячейка с определенными названиями для вывода результата
sm = 0
For i = 1 To 8
sm = sm + Sheets("Исходные_данные").Cells(2 + i, 5).Value * Sheets("Исходные_данные").Cells(2 + i, 10).Value
Next
Sheets("Результат").Cells(2, 1) = "Общая стоимость роз, проданных за 3 день"
Sheets("Результат").Cells(2, 2) = sm
Sheets("Результат").Columns(1).EntireColumn.AutoFit
'расчет общей стоимости роз, проданных за неделю
itogi = 0
For i = 1 To 8
For j = 1 To 7
itogi = itogi + Sheets("Исходные_данные").Cells(2 + i, 2 + j).Value * Sheets("Исходные_данные").Cells(2 + i, 10).Value
Next
Next
Sheets("Результат").Cells(3, 1) = "Общая стоимость роз, проданных за неделю"
Sheets("Результат").Cells(3, 2) = itogi
Sheets("Результат").Columns(1).EntireColumn.AutoFit
'поиск названия вида розы, принесшего наибольший доход
For i = 1 To 8
itog_rose(i) = 0
Next i
For i = 1 To 8
For j = 1 To 7
itog_rose(i) = itog_rose(i) + Sheets("Исходные_данные").Cells(2 + i, 2 + j).Value * Sheets("Исходные_данные").Cells(2 + i, 10).Value
Next
Next
k = 1
For i = 2 To 8
If itog_rose(i) > itog_rose(k) Then k = i
Next i

Список литературы

1.Кузьменко В. Г. VBA 2003. Самоучитель. М: Бином-Пресс, 2010. 429 с.
2.Пол Санна Visual Basic для приложений (версия 5) в подлиннике: пер. с англ. СПб: BHV, 1997. 704 с.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
© Рефератбанк, 2002 - 2022