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

ЛИЧНЫЙ КАБИНЕТ 

 

Здравствуйте гость!

 

Логин:

Пароль:

 

Запомнить

 

 

Забыли пароль? Регистрация

Повышение уникальности

Предлагаем нашим посетителям воспользоваться бесплатным программным обеспечением «StudentHelp», которое позволит вам всего за несколько минут, выполнить повышение уникальности любого файла в формате MS Word. После такого повышения уникальности, ваша работа легко пройдете проверку в системах антиплагиат вуз, antiplagiat.ru, etxt.ru или advego.ru. Программа «StudentHelp» работает по уникальной технологии и при повышении уникальности не вставляет в текст скрытых символов, и даже если препод скопирует текст в блокнот – не увидит ни каких отличий от текста в Word файле.

Результат поиска


Наименование:


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

Информация:

Тип работы: Курсовик. Предмет: Программирование. Добавлен: 24.10.2011. Сдан: 2011. Страниц: 14. Уникальность по antiplagiat.ru: < 30%

Описание (план):



Содержание

1. Задание на курсовую работу 3
2. Описание переменных 4
3. Блок схема 6
4. Описание алгоритма 8
5. Листинг программы 9
6. Описание входных данных и результат вычислений 11
7. Список использованной литературы 14



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

Пригородный автобус в течение рабочей смены делает 5 рейсов. У кондуктора имеются билеты номиналом 20, 25, 30, 35, 40 рублей. Количество проданных билетов подсчитывается после окончания каждого рейса.
Написать программу на языке VBA, которая вводит исходные данные, выполняет расчеты и выводит на экран:
• исходные данные в виде таблицы, где указаны рейсы, номинал билетов, количество билетов каждого номинала, проданных за рейс;
• среднюю выручку за рейс;
• общую выручку за рабочую смену;
• номер рейса, в котором было продано наибольшее количество билетов номиналом 25 рублей;
• количество билетов, проданных за 4 рейс.

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

Исходные данные находятся на листе «Нач_данные» (рис. 1) и содержат количество проданных билетов номиналом 20, 25, 30, 35, 40 рублей на каждом из пяти рейсов пригородного автобуса.
Результаты работы программы оформляются на листе «Результат» (рис. 2).

Рис. 1. Лист с исходными данными


Рис. 2. Лист с результатами

В программе переменные описаны следующим образом:
1) cena(5) – номинал билетов представляет массив целых чисел
Dim cena(5) As Integer
2) kol(5,5) – количество билетов каждого номинала, проданных в каждом рейсе, представляет двумерный массив целых чисел
Dim kol(5,5) As Integer
3) vyr(5) – выручка за каждый рейс представляет массив целых чисел
Dim vyr(5) As Integer
4) sr_vyr – средняя выручка за рейс представляет целое число
Dim sr_vyr As Integer
5) ob_vyr – общая выручка за рабочую смену представляет целое число
Dim ob_vyr As Integer
6) nom – номер рейса, в котором было продано наибольшее количество билетов номиналом 25 рублей, представляет целое число
Dim nom As Integer
7) kol1 – наибольшее количество билетов номиналом 25 рублей, проданных за рейс, представляет целое число
Dim kol1 As Integer
8) kol2 – количество билетов, проданных за 4 рейс, представляет целое число
Dim kol2 As Integer
В программе также использованы вспомогательные переменные, счетчики циклов i и t, являющиеся целыми числами
Dim i As Integer, t As Integer


3. Блок схема


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


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


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

Начало программы.
Ввод начальных значений для расчетных величин – количество проданных билетов номиналом 20, 25, 30, 35, 40 рублей по пяти рейсам пригородного автобуса.
Открытие листа «Нач_данные» и занесение исходных данных в массивы сеnа(5) и kоl(5, 5).
Расчет выручки по каждому рейсу и общей выручки за рабочую смену. Организуется два вложенных цикла – по каждому рейсу и каждому номиналу билета. Выручка рассчитывается умножением каждого номинала билета на количество проданных билетов этого номинала. Полученные значения по всем номиналам складываются.
Расчет средней выручки за рейс. Сумма общей выручки за рабочую смену делится на количество рейсов в течение смены.
Определение номера рейса, в котором было продано наибольшее количество билетов номиналом 25 рублей. Организуется цикл по всем рейсам. В переменной kol1 хранится наибольшее количество билетов на текущий момент. Если для очередного рейса это значение оказывается больше, то оно помещается в kol1 и запоминается номер рейса.
Подсчет количества билетов, проданных за 4 рейс. Организуется цикл по всем номиналам билетов для этого рейса и суммируется количество проданных билетов.
Открытие листа «Результат», вывод начальных значений и результатов проведенных расчетов.

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

*********************************************

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





Перейти к полному тексту работы


Скачать работу с онлайн повышением уникальности до 90% по antiplagiat.ru, etxt.ru или advego.ru


Смотреть похожие работы


* Примечание. Уникальность работы указана на дату публикации, текущее значение может отличаться от указанного.