Размещено на http://www.allbest.ru/

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ

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

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

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

(ГОУ МГИУ)

Кафедра бухгалтерского учета, анализа и аудита

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

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

на тему «ПРОГРАММИРОВАНИЕ НА VBA В СРЕДЕ MS EXCEL»

вариант № 7

Группа 10Б21

Студент

И.В. Баженова

Руководитель проекта, доцент, к.э.н.

С.В. Суворов

ДОПУСКАЕТСЯ К ЗАЩИТЕ

Заведующий кафедрой

С.В. Суворов

доцент, к.э.н.

Оценка

Москва 2011

Оглавление

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

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

Блок-схема

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

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

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

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

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

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

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

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

• Общий урожай каждой культуры за 5 лет;

• Доход по всем культурам за каждый год;

• Общий доход колхоза за 5 лет;

• Наименование культуры, принесшей максимальный доход за 5 лет.

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

В программе переменные описаны следующим образом Dim urozhay(6, 5) As Integer

- урожай в центнерах за каждый год по всем 6 фруктово-ягодным культурам

Dim cena(6, 5) As Single

- закупочные цены каждой культура по всем 5 годам

Dim urozhay_ob(6) As Integer

- общий урожай по каждой культуре за 5 лет

Dim dohod_kultura(6) As Single

- доход за все 5 лет по каждой культуре

Dim dohod_god(5) As Single

- доход по всем культурам за каждый год

Dim dohod_obschiy As Single

- общий доход колхоза за 5 лет

Dim Max As Single

- максимум среди дохода за все 5 лет по каждой культуре в дальнейшем понадобится для нахождения наименование культуры принесшей максимальный доход за 5 лет

Dim index1 As Integer

- переменная необходима для вывода на экран названия культуры принесшей максимальный доход за 5 лет

Dim Naimenovanie(6) As String

- наименование культур для сортировки

Dim naim As String

- переменная для упорядочивания наименования

Dim ur As Integer

- переменная для упорядочивания общего урожая

Dim i, j As Integer

- переменные счетчиков цикла

Блок-схема

Cells(i+3,12)=urozhay_ob(i)

Dohod_god(j)=dohod_god(j)+urozhay(i,j)*cena(I,j)

Cells(10,j+6)=dohod(j)

Dohod_obschiy=dohod_obschiy+dohod_god(j)

Cells(11,12)=dohod_obschiy

Max=dohod_kultura(1)

Max=dohod_kultura(i)

Index1=i

Cells(12,12)=cells(index1+3,1)

Range(“G10:K10”).Value=” ”

Range(“L4:L9”).Value=” ”

Range(“L11:L12”).Value=” ”

Range("B4:K9").Value = "0"

Range("B4:K9").Value = "1"

Naimenovakie(i)=cells(i+3,1)

Urozhay_ob(i)=cells(i+3,12)

ur = urozhay_ob(i)

naim = Naimenovanie(i)

urozhay_ob(i) = urozhay_ob(j)

Naimenovanie(i) = Naimenovanie(j)

urozhay_ob(j) = ur

Naimenovanie(j) = naim

Cells(i + 15, 1) = Naimenovanie(i)

Cells(i + 15, 2) = urozhay_ob(i)

Cells(i+3,j+1)=200

Cells(i + 3, j + 6) = 20