Банк рефератов содержит более 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, которая вводит исходные данные, выполняет расчеты и вывод
Раздел: Рефераты по информатике
Тип: курсовая работа Добавлен 15:22:06 06 июня 2011 Похожие работы
Просмотров: 178 Комментариев: 12 Оценило: 2 человек Средний балл: 5 Оценка: неизвестно     Скачать

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

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

ИДО ГОУ МГИУ

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

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

Задание:№ 38

Группа: № П09Б22п

Студент: Булдыгина Н.В.

Руководитель: Иванов М.Н.

Москва 2010


Содержание

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

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

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

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

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

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

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

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

Магазин велосипедов продал за год разное количество велосипедов (10 наименований) по цене, устанавливаемой в начале каждого месяца.

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

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

· доход от каждого вида велосипеда за год;

· доход от всех велосипедов за каждый месяц;

· общий доход от всех велосипедов за год;

· наименование велосипеда, принесшего наибольший доход за год.

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

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

1) Количество велосипедов каждого из 10 типов, изготовленных за год (12 месяцев).

2) Стоимость одного велосипеда каждого типа.

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

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

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

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

1) cena(10) — деньги, вырученные от продажи одного велосипеда,
представляет массив дробных чисел

Dim cena ( 10 ) As Double

2) koll (10,12) — количество велосипедов каждого вида, проданных за каждый месяц, представляет двумерный массив целых чисел

Dim koll (10,12) As Integer

3) zar (13) — заработок за каждый месяц (от января до декабря) и общий заработок за год представляет массив дробных чисел

Dim zar (13) As Double

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

Dim kol _ n (12) As Integer

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

Dim den As Integer

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

Dim i As Integer, j As Integer

Переменные cena(10), zar (13), могут быть и не целыми числами, поэто­му они объявлены как действительные. Переменные koll (10,12) koll _ n (12), den целые числа, так как мы считаем, что расчетный период составляет полный месяц, и производители могут продать только полностью собранный велосипед.


3. Блок схема

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


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

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

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

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

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

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

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

Открытие листа с начальными данными («Лист1») и получение этих данных в рабочие переменные (массивы сеnа(10) и kоll(12, 10)).

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

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

Определение наименования велосипеда, принесшего наибольший доход за год. Используется алго­ритм сравнения, при равенстве двух и более годовых доходов результативным считается последний доход.

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

Private Sub CommandButton1_Click()

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

'счетчики циклов

Dim i, j As Integer

'количество проданных велосипедов (по месяцам)

Dim koll(10, 12) As Integer

'выручка за месяц

Dim zar(13) As Double

'количество проданных велосипедов (за год)

Dim koll_n(12) As Integer

'велосипед, принесший наибольший доход за год

Dim num As Integer

'стоимость велосипеда

Dim cena(10) As Double

'переменные, нужные для предварительных расчетов

Dim zarpl As Double

Dim pic As Double

Dim comb(10) As Double

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

For i = 1 To 10

koll_n(i) = 0

comb(i) = 0

Next

For j = 1 To 13

zar(j) = 0

Next

pic = 0

zarpl = 0

num = 0

'В этом фрагменте кода происходит считывание начальных данных с листа «Лист1», и в каждую ячейку массива cena(10) записывается стоимость каждой марки велосипеда, а в ячейках двумерного массива koll(10,12) теперь находится количество велосипедов каждого вида, проданных в каждый месяц.

Sheets("Лист1").Select

For i = 1 To 10

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

Next

For i = 1 To 10

For j = 1 To 12

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

Next j

Next i

'Далее на листе «Лист2» в ячейку с определенным номером вводится ее название.

Sheets("Лист2").Cells(2, 1) = "Модель"

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

Sheets("Лист2").Cells(2, 3) = "Продано"

Sheets("Лист2").Cells(3, 3) = "Январь"

Sheets("Лист2").Cells(3, 4) = "Февраль"

Sheets("Лист2").Cells(3, 5) = "Март"

Sheets("Лист2").Cells(3, 6) = "Апрель"

Sheets("Лист2").Cells(3, 7) = "Май"

Sheets("Лист2").Cells(3, 8) = "Июнь"

Sheets("Лист2").Cells(3, 9) = "Июль"

Sheets("Лист2").Cells(3, 10) = "Август"

Sheets("Лист2").Cells(3, 11) = "Сентябрь"

Sheets("Лист2").Cells(3, 12) = "Октябрь"

Sheets("Лист2").Cells(3, 13) = "Ноябрь"

Sheets("Лист2").Cells(3, 14) = "Декабрь"

Sheets("Лист2").Cells(3, 15) = "Всего"

Sheets("Лист2").Cells(4, 1) = "Школьник"

Sheets("Лист2").Cells(5, 1) = "Дружба"

Sheets("Лист2").Cells(6, 1) = "Аист"

Sheets("Лист2").Cells(7, 1) = "Самара"

Sheets("Лист2").Cells(8, 1) = "Next"

Sheets("Лист2").Cells(9, 1) = "Honda"

Sheets("Лист2").Cells(10, 1) = "Урал"

Sheets("Лист2").Cells(11, 1) = "Салют"

Sheets("Лист2").Cells(12, 1) = "Орленок"

Sheets("Лист2").Cells(13, 1) = "Forward"

'В этом фрагменте происходит вывод на рабочий лист выручку по моделям за месяц и количество проданных велосипедов за год.

For i = 1 To 10

Sheets("Лист2").Cells(3 + i, 2) = cena(i)

For j = 1 To 12

Sheets("Лист2").Cells(3 + i, 2 + j) = koll(i, j)

koll_n(i) = koll_n(i) + koll(i, j)

Next j

Sheets("Лист2").Cells(3 + i, 15) = koll_n(i)

Next i

'Ниже происходит ввод названий соответствующих столбцов и строк.

Sheets("Лист2").Select

Sheets("Лист2").Cells(17, 1) = "Модель"

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

Sheets("Лист2").Cells(17, 3) = "Заработано"

Sheets("Лист2").Cells(18, 3) = "Январь"

Sheets("Лист2").Cells(18, 4) = "Февраль"

Sheets("Лист2").Cells(18, 5) = "Март"

Sheets("Лист2").Cells(18, 6) = "Апрель"

Sheets("Лист2").Cells(18, 7) = "Май"

Sheets("Лист2").Cells(18, 8) = "Июнь"

Sheets("Лист2").Cells(18, 9) = "Июль"

Sheets("Лист2").Cells(18, 10) = "Август"

Sheets("Лист2").Cells(18, 11) = "Сентябрь"

Sheets("Лист2").Cells(18, 12) = "Октябрь"

Sheets("Лист2").Cells(18, 13) = "Ноябрь"

Sheets("Лист2").Cells(18, 14) = "Декабрь"

Sheets("Лист2").Cells(18, 15) = "Всего"

Sheets("Лист2").Cells(19, 1) = "Школьник"

Sheets("Лист2").Cells(20, 1) = "Дружба"

Sheets("Лист2").Cells(21, 1) = "Аист"

Sheets("Лист2").Cells(22, 1) = "Самара"

Sheets("Лист2").Cells(23, 1) = "Next"

Sheets("Лист2").Cells(24, 1) = "Honda"

Sheets("Лист2").Cells(25, 1) = "Урал"

Sheets("Лист2").Cells(26, 1) = "Салют"

Sheets("Лист2").Cells(27, 1) = "Орленок"

Sheets("Лист2").Cells(28, 1) = "Forward"

Sheets("Лист2").Cells(29, 1) = "ИТОГО"

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

For i = 1 To 10

For j = 1 To 12

Sheets("Лист2").Cells(18 + i, 2 + j) = koll(i, j) * cena(i)

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

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

Next j

Sheets("Лист2").Cells(18 + i, 2) = cena(i)

Sheets("Лист2").Cells(18 + i, 15) = cena(i) * koll_n(i)

Next i

'Здесь описан алгоритм сравнения выручки и выявления наиболее выгодной для продажи модели.

For j = 1 To 12

Sheets("Лист2").Cells(29, 2 + j) = zar(j)

If zar(j) > zarpl Then zarpl = zar(j)

Next

‘ выявление максимальной выручки за год одной мдели

For i = 1 To 10

comb(i) = Sheets("Лист2").Cells(18 + i, 15)

If pic < comb(i) Then pic = comb(i) Else pic = pic

Next

‘выявление этой модели

For i = 1 To 10

If Sheets("Лист2").Cells(18 + i, 15) = pic Then num = i

Next

'Ниже выводится на лист с результатом работы программы наименование наиболее выгодной модели велосипеда и годовой доход.

Sheets("Лист2").Select

Sheets("Лист2").Cells(29, 15) = zar(13)

Sheets("Лист2").Cells(31, 1) = "Годовой доход:"

Sheets("Лист2").Cells(31, 2) = zar(13)

Sheets("Лист2").Cells(32, 1) = "Прибыльная модель:"

Sheets("Лист2").Cells(32, 2) = Sheets("Лист2").Cells(18 + num, 1)

End Sub

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

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

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

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

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

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

1. MS Office XP, 2003 Word, Excel, Access, Outlook, PowerPoint, FrontPage, MS Project/ А. К. Гультяев: Корона-Век, 2006

2. VBA. Практическое программирование/ Туркин Олег: Солон-пресс,2007

3. VBA/ Кузьменко В.Г.: Бином,2008.

4. Измерение, управление и регулирование с помощью макросов VBA в Word и Excel/ Берндт Г.-Й.: КОРОНА-Век, 2008

5. Информатика. Методические указания по выполнению практических работ в компьютерном классе (Access, Internet) / Гришин М.П., Юрасов А.Б. М.: МГИУ, 2003.

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

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

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

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

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

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

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

13. Электронные таблицы Microsoft Excel. Проблемы и решения/ Лори Анн Ульрих: Эком, 2002

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

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

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

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



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

Рейтинг@Mail.ru