Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364139
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62791)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21319)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21692)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8692)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3462)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20644)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Курсовая работа: Программирование в VBA

Название: Программирование в VBA
Раздел: Рефераты по информатике
Тип: курсовая работа Добавлен 02:22:07 16 мая 2011 Похожие работы
Просмотров: 49 Комментариев: 14 Оценило: 2 человек Средний балл: 5 Оценка: неизвестно     Скачать

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ

РОССИЙСКОЙ ФЕДЕРАЦИИ

Курсовая работа

по дисциплине

«ИНФОРМАТИКА»

Задание: 9

Группа:

Студент:

Руководитель:

* *


СОДЕРЖАНИЕ

1. Задание на курсовую работу…………………………………………………..2

2. Описание переменных…………………………………………………………3

3. Блок-схема……………………………………………………………………...6

4. Описание алгоритма…………………………………………………………..10

5. Листинг программы…………………………………………………………...11

6. Описание входных данных и результат вычисления……………………….14


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

В течение 5-ти дней (рабочая неделя) рабочий изготавливает детали 7 различных типов. Известно количество изготовленных им деталей за каждый день и стоимость изготовления одной детали каждого типа (стоимость изготовления детали не меняется).

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

выполняет расчеты и выводит на экран:

- исходные данные в виде таблицы, где перечислены наименования деталей, стоимость их изготовления, количество деталей, изготовленных за каждый день;

- количество деталей каждого типа, изготовленных за неделю;

- заработок за каждый день;

- заработок за неделю;

- день с наибольшим заработком.


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

Исходные данные находятся на листе «Start» (рис. 1) и содержат следующую информацию:

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

- стоимость изготовления детали каждого из семи типов.

Результаты работы программы находятся на листе «Result» (рис. 2).

Рис. 1 Лист с начальными данными

Рис.2 Полученные результаты

В программе перменные описаны следующим образом:

1) cost (7) – стоимость изготовления одной единицы каждого изделия, представляет массив дробных чисел

Dim cost(7) As Double

2) amount(7,5) – количество деталей каждого вида, изготовленных в каждый из рабочих дней, представляет двумерный массив целых чисел

Dim amount(7,5) As Integer

3) pay (6) – заработок за каждый день (от 1 до 5) и общий заработок за весь период, представляет массив дробных чисел

Dim pay(6) As Double

4) amount _ n (7) – количество деталей каждого вида за истекший период, представляет массив целых чисел

Dim amount_n(7) As Integer

5) day – порядковый номер дня с наибольшим заработком, представляет целое число

Dim day As Integer

6) sumpay – сумма наибольшего заработка за период, представляет дробное число

Dim sumpay As Double

В программе также были использованы вспомогательные переменные, счетчики циклов m и p , являющиеся целыми числами.

Dim m As Integer, p As Integer

Переменные cost (7), pay (6), sumpay могут быть не целыми числами, поэтому они объявлены как действительные.

Переменные amount (7,5), amount _ n (7), day – целые числа, так как смена рабочего составляет полный день, и он не может изготовить за смену половину детали.


Блок-схема

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

Общая структура курсовой работы имеет вид, показанный на рисунках 3, 4, 5. Существуют некоторые типы блоков:

· квадрат – блок решения

· эллипс – блок используется для обозначения начала и конца алгоритма;

· ромб – блок используется для обозначения условного оператора;

· шестиугольник – блок используется для обозначения оператора цикла;

· стрелками обозначен переход от одного действия к другому.


Рис.3 Блок-схема (начало)


Рис. 4 Блок-схема (продолжение)


Рис.5 Блок-схема (окончание)


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

Начало программы.

I. Ввод начальных (нулевых) значений для расчетных величин:

· количество изготовленных деталей за неделю;

· зарплата по дням;

· зарплата суммарно;

· день с наибольшим заработком;

· величина максимальной зарплаты.


II. Открытие листа с начальными данными («Start»).

Получение данных в рабочие переменные.

III. Открытие листа с результатами.

Формирование матрицы входных данных.

Два вложенных цикла: по деталям и по дням.

Во внутреннем цикле (по дням, расчет по одному изделию) суммируется количество изготовленных деталей.

После вывода из внутреннего цикла выводится результат по деталям.

Расчет заработной платы организован в этом же внутреннем цикле.

IV. Определение дня с максимальной заработной платой.

Используется алгоритм сравнения.

При равенстве двух и более дневных сумм результативной считается первая сумма.


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

Sub Funct()

Dim cost(7) As Double

Dim amount(7, 5) As Integer

Dim pay(6) As Double

Dim amount_n(7) As Integer

Dim day As Integer

Dim sumpay As Double

Dim m As Integer, p As Integer

For m = 1 To 7

amount_n(m) = 0

Next

For p = 1 To 6

pay(p) = 0

Next

sumpay = 0

day = 0

Sheets("Start").Select

For m = 1 To 7

cost(m) = Cells(3 + m, 2)

Next

For m = 1 To 7

For p = 1 To 5

amount(m, p) = Cells(3 + m, 2 + p)

Next p

Next m

Sheets("Results").Select

Cells(1, 1) = "Количество изготовленных деталей"

Cells(2, 1) = "Наименование изделия"

Cells(2, 2) = "Стоимость 1 шт"

Cells(2, 3) = "Изготовлено"

Cells(3, 3) = "1 день"

Cells(3, 4) = "2 день"

Cells(3, 5) = "3 день"

Cells(3, 6) = "4 день"

Cells(3, 7) = "5 день"

Cells(3, 8) = "Всего"

Cells(4, 1) = "HDD"

Cells(5, 1) = "CD ROM"

Cells(6, 1) = "DVD ROM"

Cells(7, 1) = "CARD READER"

Cells(8, 1) = "MOTHERBOARD ASUS"

Cells(9, 1) = "DDR-3 Gigabyte viseocard"

Cells(10, 1) = "D-Link Switch"

For m = 1 To 7

Cells(3 + i, 2) = cost(m)

For p = 1 To 5

Cells(3 + m, 2 + p) = amount(m, p)

amount_n(m) = amount_n(m) + amount(m, p)

Next p

Cells(3 + m, 8) = amount_n(m)

Next m

Cells(12, 1) = "Количество изготовленных деталей "

Cells(13, 1) = "Наименование изделия "

Cells(13, 2) = "Стоимость 1 шт "

Cells(13, 3) = "Заработано"

Cells(14, 3) = "1 день"

Cells(14, 4) = "2 день"

Cells(14, 5) = "3 день"

Cells(14, 6) = "4 день"

Cells(14, 7) = "5 день"

Cells(14, 8) = "Всего"

Cells(15, 1) = "HDD"

Cells(16, 1) = "CD ROM"

Cells(17, 1) = "DVD ROM"

Cells(18, 1) = "CARD READER"

Cells(19, 1) = "MOTHERBOARD ASUS"

Cells(20, 1) = "DDR-3 Gigabyte viseocard"

Cells(21, 1) = "D-Link Switch"

For m = 1 To 7

For p = 1 To 5

Cells(14 + m, 2 + p) = amount(m, p) * cost(m)

pay(p) = pay(p) + amount(m, p) * cost(m)

pay(6) = pay(6) + amount(m, p) * cost(m)

Next p

Cells(14 + m, 2) = cost(m)

Cells(14 + m, 8) = cost(m) * amount_n(m)

Next m

For p = 1 To 5

Cells(22, 2 + p) = pay(p)

If pay(p) > sumpay Then

sumpay = pay(p)

day = p

End If

Next

Cells(22, 8) = pay(6)

Cells(23, 1) = "Заработок за неделю"

Cells(23, 5) = pay(6)

Cells(24, 1) = "День с максимальным заработком"

Cells(24, 5) = day

Cells(24, 6) = "Заработано"

Cells(24, 8) = sumpay

End Sub


Описание входных данных и результат вычислений

Создание документа MicrosoftExcelс именем inf_course_1.xls

На лист Start вводятся начальные данные в таблицу.

Далее открывается редактор VisualBasic, в котором вводится код программы.

Изменения сохраняются в созданном модуле.

Программа запускается с помощью F5.

Результат помещается на лист Results.

Проводится проверка работы кода с нулевыми и единичными начальными данными.

«Нулевой» результат

Количество изготовленных деталей (нулевой)
Наименование изделия Стоимость 1 шт Изготовлено
1 день 2 день 3 день 4 день 5 день
HDD 0 0 0 0 0 0
CD ROM 0 0 0 0 0 0
DVD ROM 0 0 0 0 0 0
CARD READER 0 0 0 0 0 0
MOTHERBOARD ASUS 0 0 0 0 0 0
DDR-3 Gigabyte viseocard 0 0 0 0 0 0
D-Link Switch 0 0 0 0 0 0

«Единичный» результат

Количество изготовленных деталей (единичный)
Наименование изделия Стоимость 1 шт Изготовлено
1 день 2 день 3 день 4 день 5 день
HDD 1 1 1 1 1 1
CD ROM 1 1 1 1 1 1
DVD ROM 1 1 1 1 1 1
CARD READER 1 1 1 1 1 1
MOTHERBOARD ASUS 1 1 1 1 1 1
DDR-3 Gigabyte viseocard 1 1 1 1 1 1
D-Link Switch 1 1 1 1 1 1

Результат с выбранными данными

Количество изготовленных деталей
Наименование изделия Стоимость 1 шт Изготовлено
1 день 2 день 3 день 4 день 5 день
HDD 100,5 2 1 5 1 4
CD ROM 25 4 3 2 7 9
DVD ROM 30,8 12 2 7 5 4
CARD READER 15,8 6 5 10 8 12
MOTHERBOARD ASUS 237,4 3 13 1 3 5
DDR-3 Gigabyte viseocard 597,3 2 4 2 4 2
D-Link Switch 87,6 1 2 3 2 1

Результат после проведенных вычислений

Количество изготовленных деталей
Наименование изделия Стоимость 1 ш т Изготовлено
1 день 2 день 3 день 4 день 5 день Всего
HDD 100,5 2 1 5 1 4 13
CD ROM 25 4 3 2 7 9 25
DVD ROM 30,8 12 2 7 5 4 30
CARD READER 15,8 6 5 10 8 12 41
MOTHERBOARD ASUS 237,4 3 13 1 3 5 25
DDR-3 Gigabyte viseocard 597,3 2 4 2 4 2 14
D-Link Switch 87,6 1 2 3 2 1 9

Конечный результат

Результат в денежном эквиваленте
Наименование изделия Стоимость 1 шт Заработано
1 день 2 день 3 день 4 день 5 день Всего
HDD 100,5 201 100,5 502,5 100,5 402 1307
CD ROM 25 100 75 50 175 225 625
DVD ROM 30,8 369,6 61,6 215,6 154 123,2 924
CARD READER 15,8 94,8 79 158 126,4 189,6 647,8
MOTHERBOARD ASUS 237,4 712,2 3086,2 237,4 712,2 1187 5935
DDR-3 Gigabyte viseocard 597,3 1194,6 2389,2 1194,6 2389,2 1194,6 8362
D-Link Switch 87,6 87,6 175,2 262,8 175,2 87,6 788,4
ИТОГО 2759,8 5966,7 2620,9 3832,5 3409 18589
Заработок за неделю 18588,9
День с максимальным заработком 2 Заработано 5967
Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Olya22:30:29 28 августа 2019
.
.22:30:28 28 августа 2019
.
.22:30:28 28 августа 2019
.
.22:30:27 28 августа 2019
.
.22:30:26 28 августа 2019

Смотреть все комментарии (14)
Работы, похожие на Курсовая работа: Программирование в VBA

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(258535)
Комментарии (3481)
Copyright © 2005-2020 BestReferat.ru support@bestreferat.ru реклама на сайте

Рейтинг@Mail.ru