Программирование на языке VBA

МИНИСТЕРСТВО  ОБЩЕГО И ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

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

МОСКОВСКИЙ  ГОСУДАРСТВЕННЫЙ ИНДУСТРИАЛЬНЫЙ

УНИВЕРСИТЕТ

ИНСТИТУТ  ДИСТАНЦИОННОГО ОБРАЗОВАНИЯ 
 
 
 
 
 
 
 

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

по дисциплине “Информатика” 
 
 
 
 
 
 
 
 
 
 
 

Задание: 3.3

Группа: 01Э31п

Студент: Петров Сергей Викторович 
 
 
 
 

Москва 2004

СОДЕРЖАНИЕ 

1.Задание………………………………………………………….……………………..  3

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

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

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

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

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

6.1Проверка  программы на произвольных данных……………………………...….. 12

6.2Проверка  программы на всех НУЛЯХ……………………………………………. 13

6.3Проверка  программы на всех ЕДИНИЦАХ………………………………………. 13

7.Список  литературы…………………………………………………………………... 14 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

1.Задание 

      Книжный магазин продал за 3 месяца различное  количество книг 12 наименований по цене, устанавливаемым в начале каждого  месяца (т.е. каждый месяц цены на книги менялись).

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

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

      - доход по каждой книге за 3 месяца

      - доход за каждый месяц по  всем книгам;

      - общий доход по всем книгам  за 3 месяца;

      - наименование книги, принёсший  наибольший доход 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

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

1) cena(12,3) – стоимость одной книги каждого наименования в каждом месяце, представляет двумерный массив целых чисел

Dim cena(12,3) As Double 

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

Dim koll(12,3) As Integer 

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

Dim doh (4) As Double 

4) koll_n(12) – количество проданных книг каждого наименования за истёкший период, представляет массив целых чисел

Dim kol_n(12) As Integer 

5) nam – порядковый номер наименования книги , принёсший наибольший доход, представляет массив дробных чисел

Dim name As Integer 

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

Dim i As Integer, j As Integer, p As Integer 

      Переменные  cena(12,3), doh(4), dohod могут быть и не целыми числами, поэтому они объявлены как действительные. Переменные koll(12,3), koll_n(12), nam – целые числа, так как в книжном магазине продаются только целые книги, а не как половинки. 
 
 
 
 
 

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

      В данной работе использованы следующие  виды блоков: 

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

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

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

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

 

 

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

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

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

      Открытие  листа с начальными данными («Нач_д») и получение этих данных в рабочие  переменные (двумерные массивы cena (12,3) и koll (12,3)). 

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

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

      Конец программы. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

Sub Funct()

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

Dim cena(12, 3) As Double    'Стоимость книги

Dim koll(12, 3) As Integer   'Количество (по месяцам)

Dim kol_n(12) As Integer     'Количество книг в месяц

Dim doh(4) As Double     'Доход в месяц

Dim nam As Integer    'Книга с наибольшим доходом

Dim i As Byte, j As Integer, p As Integer   'Счётчики циклов 
 

For i = 1 To 12

    kol_n(i) = 0

Next 

For j = 1 To 3

    doh(j) = 0

Next 

For p = 1 To 3

Next 

doh = 0

nam = 0 
 

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

For i = 1 To 12

    For p = 1 To 3

    cena(i, p) = Cells(3 + i, 1 + p)

    Next p

Next i 

For i = 1 To 12

    For j = 1 To 3

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

    Next j

Next i 

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

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

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

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

Cells(2, 5) = "Количество"

Cells(3, 2) = "1 мес"

Cells(3, 3) = "2 мес"

Cells(3, 4) = "3 мес"

Cells(3, 5) = "1 мес  "

Cells(3, 6) = "2 мес"

Cells(3, 7) = "3мес"

Cells(4, 1) = "Биология (пособие)"

Cells(5, 1) = "Вилла Белый конь"

Cells(6, 1) = "Властелин колец ч.1"

Cells(7, 1) = "Властелин колец ч.2"

Cells(8, 1) = "Властелин колец ч.3"

Cells(9, 1) = "Гаргантюа и Пантагрюэль"

Cells(10, 1) = "Деловые люди (сборник)"

Cells(11, 1) = "Основы политологии и социологии"

Cells(12, 1) = "Программирование на языке VBA"

Cells(13, 1) = "Угрюм-река"

Cells(14, 1) = "Учебник английского языка ч.1,2"

Cells(15, 1) = "Хоббит или туда и обратно" 

For i = 1 To 12

    For p = 1 To 3

    Cells(3 + i, 1 + p) = cena(i, p)

    Next p

    For j = 1 To 3

    Cells(3 + i, 4 + j) = kol_n(i)

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

    Next j

Next i 

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

'столбцов и  строк 

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

Cells(18, 1) = "Наименование"

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

Cells(18, 5) = "Доход"

Cells(18, 8) = "Всего"  'Общий доход за 3 месяца

Cells(18, 9) = "Книга"

Cells(19, 2) = "1 мес"

Cells(19, 3) = "2 мес"

Cells(19, 4) = "3 мес"

Cells(19, 5) = "1 мес"

Cells(19, 6) = "2 мес"

Cells(19, 7) = "3 мес"

Cells(20, 1) = "Биология (сборник)"

Cells(21, 1) = "Вилла Белый конь"

Cells(22, 1) = "Властелин колец ч.1"

Cells(23, 1) = "Властелин колец ч.2"

Cells(24, 1) = "Властелин колец ч.3"

Cells(25, 1) = "Гаргантюа и Пантагрюэль"

Cells(26, 1) = "Деловые люди (сборник)"

Cells(27, 1) = "Основы политологии и социологии"

Cells(28, 1) = "Программирование на языке VBA"

Cells(29, 1) = "Угрюм-река"

Cells(30, 1) = "Учебник английского языка ч.1,2"

Cells(31, 1) = "Хоббит или туда и обратно"

Cells(32, 1) = "Итого" 
 

For i = 1 To 12

    For p = 1 To 3

    Cells(19 + i, 1 + p) = cena(i, p)

    Next p

     

For j = 1 To 3

    Cells(19 + i, 4 + j) = koll(i, j) * cena(i, p)

    doh(j) = doh(j) + koll(i, j) * cena(i, p)

    doh(4) = doh(4) + koll(i, j) * cena(i, p)

    Next j

    Cells(19 + i, 8) = cena(i, p) * kol_n(i)

Next i 

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

Cells(18, 9) = "Книга"

Cells(32,8)=doh(4)

Cells(33,1)=”Общий доход”

Cells(33,5)=doh(4)

Cells(22,9)=nam

End Sub 
 

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

      Для начала создаём документ Microsoft Excel и записываем на рабочий лист начальные данные. Затем запускаем редактор Visual Basic, чтобы в нём написать код программы. Далее сохраняем изменения в созданном модуле и запускаем программу. Исправляем допущенные ошибки. После чего результат работы программы будет помещён на лист «Результат». 

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

 
 
 
 
 
 
 

6.2Проверка программы на всех НУЛЯХ 

6.3Проверка  программы на всех ЕДИНИЦАХ 
 

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

1. Иванов  М.Н., Суворов С.В. Информатика Часть 2. Программирование. Учебно-методическое пособие – М.; МГИУ, 2004
2. Слепцова Л.Д. Программирование на языке VBA. Самоучитель,: -М.: Издательский дом «Вильямс», 2004
3. Браун С. Visual Basic 5 c самого начала – СПб : Питер, 1998