Банк рефератов содержит более 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
Раздел: Рефераты по информатике
Тип: курсовая работа Добавлен 19:09:54 29 ноября 2010 Похожие работы
Просмотров: 75 Комментариев: 12 Оценило: 2 человек Средний балл: 5 Оценка: неизвестно     Скачать

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

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

ИДО ГОУ МГИУ

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

По дисциплине «Информатика»

Задание:№ 93

Группа: № Жл09Ф22п

Студент: Соколова Виктория Игоревна

Руководитель: Ф.И.О. Левкова Анна Витальевна

Железнодорожный 2010

Содержание

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

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

3. Блок схема

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

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

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

7. Список использованной литературы

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

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

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

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

• общее количество букетов за 3 года;

• доход по всем цветам за каждый год;

• общий доход колхоза за 3 года;

• вид цветов, принесший максимальный доход за 2 года.

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

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

1) Наименование цветов.

2) Количество проданных букетов в год (количество не меняется).

3) Закупочные цены букетов каждого вида.

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


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

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

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

1) cena(6,3) — закупочные цены каждого вида цветов

Dim cena(6,3) As Integer

2) koll (6) — количество букетов каждого вида

Dim koll(6) As Integer

3) zar (6,3) — доход за каждый год (от 1 до 3)

Dim zar (6,3) As Integer

4) koll _ n (6) — количество букетов каждого вида за 3 года
представляет массив целых чисел

Dim kol_n(6) As Integer

5) den — доход колхоза за 3 года

Dim den As Long

6)Koll _ i - Итоговое количество букетов за 3 года

Dim Koll_i As Integer

7)zarpl (6) — доход за 3 года

Dim zarpl(6) As Integer

8) sum (6.3)- вид цветов принесший максимальный доход за 2 года.

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

Dim i As Integer, j As Integer

Переменные для расчета я взяла целые числа


3. Блок схема

J=j=

Рис3. Блок- схема

Рис.3. Блок-схема


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

Рис.3. Блок-схе


Рис.3. Блок-схема

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

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

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

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

Открытие листа с начальными данными («Нач_д») и получение этих данных в рабочие переменные (массивы сеnа(7) и kоll(7, 5)).

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

Расчет сумм дохода по букетам за каждый год вывод результатов. Организуется два вложенных цикла: внешний по букетам, внутренний по годам. Для оптимизации процесса расчетная часть совмещена с выводом: во внутреннем цикле происходит вычисление суммы доходод по i-му букету в j-й год с выводом результата, во внешнем цикле (после получения результатов внутреннего цикла) — вывод количество букетов. Расчет дохода за каждый год организован в этом же внутреннем цикле.

Определение вида цветов принесшего максимальный доход за 2 года.

Сравниваем доход за 2 года(1-й год+ 2-й год; 1-й год+ 3-й год; 2-й год+ 3-й год) сумма двух с наибольшим показателем складывается и выводится вид цветов.

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

Sub Function()

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

Sub Funct()

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

Dim i As Integer, j As Integer, min As Integer, z As Integer 'счетчики циклов

Dim cena(6, 3) As Integer ' закупочные цены каждого вида

Dim zar(6, 3) As Integer 'доход за каждый год

Dim koll_n(6) As Integer 'количество букетов каждого вида вида за 3 года

Dim den As Long 'доход колхоза за 3 года

Dim zarpl(6) As Integer 'доход за 3 года

Dim koll(6) As Integer 'количество букетов каждого вида

Dim koll_i As Integer 'итоговое количество букетов за 3 года

Dim sum(6, 3) As Integer

'в начале программы все переменные равны нулям

' создаем цикл ,

For i = 1 To 6

koll_n(i) = 0

Next

koll_i = 0

den = 0

'считываем начальные данные

Sheets("Нач_д").Select

'в каждую ячейку массива koll(i) записывается количество букетов каждого вида

'для этого используем цикл

For i = 1 To 6

Koll(i) = Cells(3 + i, 2)

koll_n(i) = koll(i) * 3

koll_i = koll_i + koll_n(i)

zarpl(i) = 0

Next i

'в каждую ячейку массива cena(i, j) записывается закупочные цены каждого вида за год

'так как массив двумерный цикл проходит по двум счетчикам

For i = 1 To 6

For j = 1 To 3

cena(i, j) = Cells(3 + i, 2 + j)

zar(i, j) = 0

Next j

Next i

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

Sheets("Результат").Cells(1, 1) = "Закупочные цены за год"

Sheets("Результат").Cells(2, 1) = "Наименование букетов"

Sheets("Результат").Cells(2, 2) = "Количество букетов"

Sheets("Результат").Cells(2, 3) = "Закуплено"

Sheets("Результат").Cells(3, 3) = "1-й год"

Sheets("Результат").Cells(3, 4) = "2-й год"

Sheets("Результат").Cells(3, 5) = "3-й год"

Sheets("Результат").Cells(3, 6) = "Всего"

Sheets("Результат").Cells(4, 1) = "розы"

Sheets("Результат").Cells(5, 1) = "гвоздики"

Sheets("Результат").Cells(6, 1) = "лилии"

Sheets("Результат").Cells(7, 1) = "ромашка"

Sheets("Результат").Cells(8, 1) = "хризантема"

Sheets("Результат").Cells(9, 1) = "тюльпан"

Sheets("Результат").Cells(10, 1) = "Итого"

Sheets("Результат").Cells(10, 6) = koll_i

'в соответствующие ячейки записываются количество букетов

For i = 1 To 6

Sheets ("Результат").Cells(3 + i, 2) = koll(i)

Sheets ("Результат").Cells(3 + i, 6) = koll_n(i)

For j = 1 To 3

'в соответствующие ячейки записываются закупочные цены за год

Sheets("Результат").Cells(3 + i, 2 + j) = cena(i, j)

'рассчитывается закупочные цены каждого вида за год

Next j

'результат записывается в соответствующие ячейки

Next i

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

Sheets("Результат").Select

Sheets("Результат").Cells(12, 1) = "Результат в денежном эквиваленте"

Sheets("Результат").Cells(13, 1) = "Наименование букетов"

Sheets("Результат").Cells(13, 2) = "количество букетов в каждом году."

Sheets("Результат").Cells(13, 3) = "Заработано"

Sheets("Результат").Cells(14, 3) = "1-й год"

Sheets("Результат").Cells(14, 4) = "2-й год"

Sheets("Результат").Cells(14, 5) = "3-й год"

Sheets("Результат").Cells(14, 6) = "Всего"

Sheets("Результат").Cells(15, 1) = "роза"

Sheets("Результат").Cells(16, 1) = "гвоздики"

Sheets("Результат").Cells(17, 1) = "лилии"

Sheets("Результат").Cells(18, 1) = "ромашка"

Sheets("Результат").Cells(19, 1) = "хризантема"

Sheets("Результат").Cells(20, 1) = "тюльпан"

Sheets("Результат").Cells(21, 1) = "ИТОГО"

Sheets("Результат").Cells(22, 1) = "Вид цветов принесший макс доход за 2 года"

'производится вывод количества букетов в каждом году

For i = 1 To 6

Sheets ("Результат").Cells (14 + i, 2) = koll (i)

Next i

'расчет сумм: проданных букетов, за 3 года каждого вида цветов, общего дохода за 3 года;

'вывод: проданных букетов, за 3 года каждого вида цветов

For i = 1 To 6

For j = 1 To 3

zar (i, j) = koll(i) * cena(i, j)

Sheets ("Результат").Cells (14 + i, 2 + j) = zar(i, j)

zarpl (i) = zarpl(i) + zar(i, j)

Next j

Sheets ("Результат").Cells (14 + i, 6) = zarpl (i)

den = den + zarpl (i)

Next i

'вывод общего дохода за 3 года

Sheets("Результат").Cells(21, 6) = den

'расчет вида цветов за 2 года принесших максим доход

min = 0

For i = 1 To 6

sum (i, 1) = zar (i, 1) + zar (i, 2)

sum (i, 2) = zar (i, 2) + zar (i, 3)

sum (i, 3) = zar (i, 1) + zar (i, 3)

For j = 1 To 3

If sum (i, j) > min Then

z = i

min = sum(i, j)

End If

Next j

Next i

Sheets ("Результат").Cells (22, 6) = Sheets ("Результат").Cells (14 + z, 1)

End Sub


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

Проверка программы на всех единицах:


Проверка на всех нулях:

Проверка на произвольных данных:


Исходные данные для задания № представлены на Рис.№1., решение – на Рис.2..

7. Список использованной литературы

1. Информатика. Методическое пособие по выполнению практических работ в компьютерном классе (Word, Excel) / Гришин М.П. М.: МГИУ, 2005.

2. Информатика. Часть 1. Введение в информатику: учебное пособие / Гришин М.П., Иванов М.Н., Носова Т.К., Суворов С.В. М.: МГИУ, 2008.

3. Информатика. Часть 2. Программирование: Учебно-методическое пособие / Иванов М.Н., Суворов С.В. М.: МГИУ. 2006.

4. Моделирование с помощью Microsoft Excel и VBA. Разработка систем поддержки принятия решений/ Кристиан Олбрайт: Вильямс, 2005

5. Профессиональная разработка приложений Excel/ Стивен Буллен, Роб Боуви, Джон Грин: Вильямс, 2005

6. Самоучитель VBA/ Андрей Гарнаев: БХВ-Петербург,2004

7. Самоучитель программирования на VBA в Microsoft Office/В. Д. Хореев: Юниор, 2001

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Olya02:29:48 27 августа 2019
.
.02:29:48 27 августа 2019
.
.02:29:47 27 августа 2019
.
.02:29:46 27 августа 2019
.
.02:29:46 27 августа 2019

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

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

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



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

Рейтинг@Mail.ru