Федеральне агентство з освіти
Державна освітня установа
Вищої професійної освіти
Московський державний індустріальний університет
(ГОУ МГИУ)
Кафедра інформаційних технологій і систем в економіці та управлінні
Реферат
за спеціальністю " Інформатика"
на тему " Програмування на VBA в середовищі MS Excel ""
Група 08Ф21
Студент Л.М. Ібатулліна
Керівник проекту,
доцент, к.е.н. С.В. Суворов
Москва - 2009
Зміст
Завдання на курсову роботу
Опис змінних
Опис алгоритму
Лістинг програми
Список літератури
Завдання на курсову роботу
На складі майстерні індивідуального пошиття є запаси 12-ти видів тканини. За кожен робочий день (6 днів) розходилося якесь у тканини кожного виду.
Написати програму на мові VBA, яка виводить вихідні дані, виконує розрахунки і виводить на екран:
В· Вихідні дані у вигляді таблиці, де перелічені назви тканини, ціна тканини, витрата кожного виду тканини щодня в метрах.
В· Витрата кожного виду тканини за тиждень. p> В· Вартість всієї витраченої тканини за день. p> В· Загальна вартість всієї витраченої тканини за тиждень. p> В· Найменування найбільш ходової тканини. h1> Опис змінних
Вихідні дані знаходяться на аркуші "ісх_д." і містять наступну інформацію:
Naz (12) - найменування тканини
Dim naz (12) As String
Cena (12) - вартість тканини за м.
Dim cena (12) As Double
Ras (12,6) - витрата кожного виду тканини кожен день в метрах
Dim ras (12,6) As Double
Traiti (12,8) - вартість кожного виду тканини за день
Dim trati (12,6) As Double
o_stoim - загальна вартість всієї витраченої тканини за тиждень
Dim o_stoim As Double
o_ras (12) - загальна витрата кожного виду тканини за тиждень в м.
Dim o_ras (12) As Double
o_trati (6) - Загальна вартість всієї витраченої тканини за день
Dim o_trati (6) As Double
I, j - допоміжні змінні лічильники циклу є цілими числами
Max, k - допоміжна змінна для знаходження самої "ходової" тканини
В
Блок - схема
В
немає
так
В
Опис алгоритму
Введення початкових (нульових) значень для розрахункових величин (вартість витраченої тканини за день, витрата за тиждень, загальна вартість всієї витраченої тканини за тиждень, ціна кожного виду тканини).
Читання з листа "Вихідні дані" значення в naz (12) і ras (12,6).
Розрахунок витрати кожного виду тканини за тиждень проводитися шляхом складання витрат тканини щодня. Організовується два вкладених циклу. У внутрішньому циклі підсумовується витрата тканини по кожному дню, після виходу з внутрішнього циклу виводитися результат по тканинах.
Визначення вартості всієї витраченої тканини за день проводитися шляхом множення ціни тканини на кількість витраченої тканини. Організовується два вкладених циклу. У внутрішньому перемножується вартість тканини і її кількість, після виходу з внутрішнього циклу виводиться результат по кожній тканини.
Розрахунок загальної вартості всієї витраченої тканини кожного виду за тиждень проводиться шляхом додавання вартості витраченої тканини по днях. Організовується два вкладених циклу. У внутрішньому циклі підсумовується вартість всієї витраченої тканини за день, після виходу з внутрішнього циклу виводиться результат по всіх тканинах.
Визначення самої "Ходовий тканини". Для цього використовується два масиви однакової розмірності: "ras (12)" - В якому лежать кількісні значення і "naz (12)" - В якому лежать назви тканин, а також дві змінних "max" - в якій лежить максимальне значення тканини і "K" - порядковий номер комірки з максимальним значенням витраченої тканини. На першому кроці ми припускаємо, що в першій клітинці масиву "o_ras (i) перебувати максимальне значення ложем його в змінну "Max" і записуємо номер комірки в "k". На другому кроці ми починаємо порівнювати значення, що міститься в "max" зі значеннями інших осередків, починаючи з першою. Якщо ми знайшли, що в якій - то клітинці значення більше, ніж "max", то тоді це значення ложем в змінну "max" і записуємо номер комірки в "k". Після того як ми пройшли весь масив "ras (12)" і знайшли максимальне значення, допомоги змінної "k" ми беремо з масиву naz (12) найменування самої витрачається тканини.
Лістинг програми
Private Sub CommandButton1_Click ()
'оголошенн...
