Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (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)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (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)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Реферат: Программирование на VBA в среде MS Excel

Название: Программирование на VBA в среде MS Excel
Раздел: Рефераты по информатике, программированию
Тип: реферат Добавлен 06:30:22 12 декабря 2010 Похожие работы
Просмотров: 277 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

Федеральное агентство по образованию

Государственное образовательное учреждение

Высшего профессионального образования

Московский государственный индустриальный университет

(ГОУ МГИУ)

Кафедра информационных технологий и систем в экономике и управлении

Реферат

по специальности "Информатика"

на тему "Программирование на VBA в среде MS Excel""

Группа 08Ф21

Студент Л.Н. Ибатуллина

Руководитель проекта,

доцент, к.э.н. С.В. Суворов

Москва – 2009

Содержание

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

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

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

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

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

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

На складе мастерской индивидуального пошива имеются запасы 12-ти видов ткани. За каждый рабочий день (6 дней) расходилось некоторое кол-во ткани каждого вида.

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

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

· Расход каждого вида ткани за неделю.

· Стоимость всей израсходованной ткани за день.

· Общая стоимость всей израсходованной ткани за неделю.

· Наименование самой ходовой ткани.

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

Исходные данные находятся на листе "исх_д." и содержат следующую информацию:

Naz (12) - наименование ткани

Dimnaz (12) AsString

Cena (12) - стоимость ткани за м.

Dimcena (12) AsDouble

Ras (12,6) - расход каждого вида ткани каждый день в метрах

Dimras (12,6) AsDouble

Traiti (12,8) - стоимость каждого вида ткани за день

Dimtrati (12,6) AsDouble

o_stoim - общая стоимость всей израсходованной ткани за неделю

Dimo_stoimAsDouble

o_ras (12) - общий расход каждого вида ткани за неделю в м.

Dimo_ras (12) AsDouble

o_trati (6) - общая стоимость всей израсходованной ткани за день

Dimo_trati (6) AsDouble

I, j - вспомогательные переменные счетчики цикла являющимися целыми числами

Max, k - вспомогательная переменная для нахождения самой "ходовой" ткани


Блок - схема

нет

да


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

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

Чтение с листа "Исходные данные" значение в naz (12) и ras (12,6).

Расчет расхода каждого вида ткани за неделю производиться путем сложения расходов ткани ежедневно. Организуется два вложенных цикла. Во внутреннем цикле суммируется расход ткани по каждому дню, после выхода из внутреннего цикла выводиться результат по тканям.

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

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

Определение самой "Ходовой ткани". Для этого используется два массива одинаковой размерности: "ras (12)" - в котором лежат количественные значения и "naz (12)" - в котором лежат названия тканей, а также две переменных "max" - в которой лежит максимальное значение ткани и "k " - порядковый номер ячейки с максимальным значением израсходованной ткани. На первом шаге мы предполагаем, что в первой ячейке массива "o_ras (i) находиться максимальное значение ложем его в переменную "max" и записываем номер ячейки в "k". На втором шаге мы начинаем сравнивать значение, содержащееся в "max" со значениями остальных ячеек, начиная с первой. Если мы нашли, что в какой - то ячейке значение больше, чем "max", то тогда это значение ложем в переменную "max" и записываем номер ячейки в "k".После того как мы прошли весь массив "ras (12)" и нашли максимальное значение, помощи переменной "k " мы берем из массива naz (12) наименование самой расходуемой ткани.

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

Private Sub CommandButton1_Click ()

'объявление и обнуление

'Сначала объявляем переменные, используемые в программе.

Dim naz (12) As String

Dim cena (12) As Double

Dim ras (12,6) As Double

Dim o_ras (12) As Double

Dim o_trati (6) As Double

Dim trati (12,6) As Double

Dim o_stoim As Double

Dim k As Integer

Dim max As Double

'Далее всем переменным присваивается нулевое значение.

For i = 0 To 11

o_ras (i) = 0

Next i

For j = 0 To 5

o_trati (j) = 0

Next j

o_stoim = 0

'ввод данных

For i = 0 To 11

naz (i) = Worksheets ("исходные данные").Cells (4 + i, 1)

cena (i) = Worksheets ("исходные данные").Cells (4 + i,

2)

Next i

For i = 0 To 11

For j = 0 To 5

ras (i, j) = Worksheets ("исходные данные").Cells (4 + i, 3 + j)

Next j

Next i

'решение

'Находим "общий расход" каждого вида ткани за неделю

For i = 0 To 11

For j = 0 To 5

o_ras (i) = o_ras (i) + ras (i, j)

Next j

Next i

'находим стоимость каждого вида ткани за день

For i = 0 To 11

For j = 0 To 5

trati (i, j) = cena (i) * ras (i, j)

Next j

Next i

'находим общую стоимость всей израсходованной ткани за день

For j = 0 To 5

For i = 0 To 11

o_trati (j) = o_trati (j) + trati (i, j)

Next i

Next j

'находим общую стоимость всей израсходованной ткани за неделю

For j = 0 To 5

o_stoim = o_stoim + o_trati (j)

Next j

k = 0

'максимуму присваиваем o_ras (k)

max = o_ras (k)

For i = 1 To 11

If o_ras (i) > max Then

max = o_ras (i)

k = i

End If

Next i

'вывод

'На листе "результат" в ячейку с определенным номером вводится ее название

Worksheets ("результат").Cells (2, 1) = "Название изделия"

Worksheets ("результат").Cells (2,2) = "Цена 1м."

Worksheets ("результат").Cells (2,6) = "Расход"

Worksheets ("результат").Cells (3,3) = "1-ый день"

Worksheets ("результат").Cells (3,4) = "2-ой день"

Worksheets ("результат").Cells (3,5) = "3-ий день"

Worksheets ("результат").Cells (3,6) = "4-ый день"

Worksheets ("результат").Cells (3,7) = "5-ый день"

Worksheets ("результат").Cells (3,8) = "6-ой день"

Worksheets ("результат").Cells (3,11) = "общий расход"

Worksheets ("результат").Cells (20,5) = "траты"

Worksheets ("результат").Cells (34, 1) = "общие траты"

Worksheets ("результат").Cells (35, 1) = " общая стоимость"

Worksheets ("результат").Cells (36,2) = naz (k)

Worksheets ("результат").Cells (36, 1) = "самая ходовая ткань"

'В этом фрагменте происходит вывод на рабочий лист общего расхода

For i = 0 To 11

Worksheets ("результат").Cells (4 + i, 1) = naz (i)

Worksheets ("результат").Cells (4 + i,

2) = cena (i)

Next i

For i = 0 To 11

For j = 0 To 5

Worksheets ("результат").Cells (4 + i, 3 + j) = ras (i, j)

Worksheets ("результат").Cells (35,2) = o_stoim

Worksheets ("результат").Cells (34,2) = o_trati

Next j

Next i

For i = 0 To 11

For j = 0 To 5

Worksheets ("результат").Cells (22 + i, 2 + j) = trati (i, j)

Next j

Next i

End Sub

Private Sub CommandButton2_Click ()

Worksheets ("результат").Cells.Clear

End Sub

Таблица 1.

Название изделия Цена 1м. Расход
1-ый день 2-ой день 3-ий день 4-ый день 5-ый день 6-ой день
Хлопок 95 2 6 3 4 2 3
Шелк 110 4 7 4 5 6 3
Атлас 70 6 3 2 4 3 5
Кашемир 120 1 6 5 3 4 4
Лён 100 3 4 4 2 3 3
Вельвет 65 8 5 2 1 3 5
Драп 55 7 3 3 2 4 2
Шерсть 75 3 2 4 4 2 1
Лаке 90 6 5 3 5 3 2
Мохер 80 4 2 1 3 4 3
Органза 85 9 7 3 2 6 4
Деним 60 4 2 3 1 4 3
Решить
Очистить

Таблица 2.

Название изделия Цена 1м Расход
1-ый день 2-ой день 3-ий день 4-ый день 5-ый день 6-ой день общий расход
Хлопок 95 2 6 3 4 2 3 20
Шелк 110 4 7 4 5 6 3 29
Атлас 70 6 3 2 4 3 5 23
Кашемир 120 1 6 5 3 4 4 23
Лён 100 3 4 4 2 3 3 19
Вельвет 65 8 5 2 1 3 5 24
Драп 55 7 3 3 2 4 2 21
Шерсть 75 3 2 4 4 2 1 16
Лаке 90 6 5 3 5 3 2 24
Мохер 80 4 2 1 3 4 3 17
Органза 85 9 7 3 2 6 4 31
Деним 60 4 2 3 1 4 3 17

Таблица 3.

Цена 1м траты
1-ый день 2-ой день 3-ий день 4-ый день 5-ый день 6-ой день общий расход
Хлопок 190 570 285 380 190 285 475 2185
Шелк 440 770 440 550 660 330 440 3190
Атлас 420 210 140 280 210 350 140 1330
Кашемир 120 720 600 360 480 480 600 3240
Лён 300 400 400 200 300 300 300 1900
Вельвет 520 325 130 65 195 325 65 1105
Драп 385 165 165 110 220 110 220 990
Шерсть 225 150 300 300 150 75 150 1125
Лаке 540 450 270 450 270 180 270 1890
Мохер 320 160 80 240 320 240 80 1120
Органза 765 595 255 170 510 340 255 2125
Деним 240 120 180 60 240 180 120 900
общие траты 4465 4635 3245 3165 3745 3195 3115 21100
общая стоимость 28155 28155 28155 28155 28155 28155 28155 168930
самая ходовая ткань Органза

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

1. Иванов М. И, Суворов С.В. Информатика. Часть2. Программирование. - Москва 2004.

2. Конспект курса лекционных и практических занятий в МГИУ.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений08:21:15 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
09:00:42 29 ноября 2015

Работы, похожие на Реферат: Программирование на VBA в среде MS Excel

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

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



Результаты(151196)
Комментарии (1843)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru