Федеральне агентство з освіти
Державна освітня установа
Вищої професійної освіти
Московський державний індустріальний університет
(ГОУ МГИУ)
Кафедра інформаційних технологій та систем в економіці та управлінні
Реферат
за спеціальністю "Інформатика"
на тему "Програмування на VBA в середовищі MS Excel" "
Група 08Ф21
Студент Л.М. Ібатулліна
Керівник проекту,
доцент, к.е.н. С.В. Суворов
Москва - 2009
Зміст
Завдання на курсову роботу
Опис змінних
Опис алгоритму
Лістинг програми
Список літератури
Завдання на курсову роботу
На складі майстерні індивідуального пошиття є запаси 12-ти видів тканини. За кожен робочий день (6 днів) розходилося якесь у тканини кожного виду.
Написати програму на мові VBA, яка виводить вихідні дані, виконує розрахунки і виводить на екран:
Вихідні дані у вигляді таблиці, де перелічені назви тканини, ціна тканини, витрата кожного виду тканини кожен день в метрах.
Витрата кожного виду тканини за тиждень.
Вартість всієї витраченої тканини за день.
Загальна вартість всієї витраченої тканини за тиждень.
Найменування найбільш ходової тканини.
Опис змінних
Вихідні дані знаходяться на аркуші "ісх_д." і містять наступну інформацію:
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 ()
'Оголошення і обнулення
'Спочатку оголошуємо змінні, що використовуються в програмі.
Dim naz (12) As String
Dim cena (12) As Double
Dim ras (12,6) As Double
Dim o_ras (12) As Double
Dim o_trati (6) As Double
Dim trati (12,6) As Double
Dim o_stoim As Double
Dim k As Integer
Dim max As Double
'Далі всім змінним присвоюється нульове значення.
For i = 0 To 11
o_ras (i) = 0
Next i
For j = 0 To 5
o_trati (j) = 0
Next j
o_stoim = 0
'Введення даних
For i = 0 To 11
naz (i) = Worksheets ("вихідні дані "). Cells (4 + i, 1)
cena (i) = Worksheets ("вихідні дані "). Cells (4 + i,
2)
Next i
For i = 0 To 11
For j = 0 To 5
ras (i, j) = Worksheets ("вихідні дані "). Cells (4 + i, 3 + j)
Next j
Next i
'Рішення
'Знаходимо "загальний витрата" кожного виду тканини за тиждень
For i = 0 To 11
For j = 0 To 5
o_ras (i) = o_ras (i) + ras (i, j)
Next j
Next i
'Знаходимо вартість кожного виду тканини за день
For i = 0 To 11
For j = 0 To 5
trati (i, j) = cena (i) * ras (i, j)
Next j
Next i
'Знаходимо загальну вартість всієї витраченої тканини за день
For j = 0 To 5
For i = 0 To 11
o_trati (j) = o_trati (j) + trati (i, j)
Next i
Next j
'Знаходимо загальну вартість всієї витраченої тканини за тиждень
For j = 0 To 5
o_stoim = o_stoim + o_trati (j)
Next j
k = 0
'Максимуму присвоюємо o_ras (k)
max = o_ras (k)
For i = 1 To 11
If o_ras (i)> max Then
max = o_ras (i)
k = i
End If
Next i
'Висновок
'На аркуші "результат" у клітинку з певним номером вводиться її назву
Worksheets ("результат"). Cells (2, 1) = "Назва вироби"
Worksheets ("результат"). Cells (2,2) = "Ціна 1м."
Worksheets ("результат"). Cells (2,6) = "Витрата"
Worksheets ("результат"). Cells (3,3) = "1-ий день"
Worksheets ("результат"). Cells (3,4) = "2-ий день"
Worksheets ("результат"). Cells (3,5) = "3-ій день"
Worksheets ("результат"). Cells (3,6) = "4-й день"
Worksheets ("результат"). Cells (3,7) = "5-ий день"
Worksheets ("результат"). Cells (3,8) = "6-ий день"
Worksheets ("результат"). Cells (3,11) = "загальний витрата"
Worksheets ("результат"). Cells (20,5) = "витрати"
Worksheets ("результат"). Cells (34, 1) = "загальні витрати"
Worksheets ("результат"). Cells (35, 1) = "загальна вартість"
Worksheets ("результат"). Cells (36,2) = naz (k)
Worksheets ("результат"). Cells (36, 1) = "сама ходова тканина"
'У цьому фрагменті відбувається виведення на робочий лист загальної витрати
For i = 0 To 11
Worksheets ("результат"). Cells (4 + i, 1) = naz (i)
Worksheets ("результат"). Cells (4 + i,
2) = cena (i)
Next i
For i = 0 To 11
For j = 0 To 5
Worksheets ("результат"). Cells (4 + i, 3 + j) = ras (i, j)
Worksheets ("результат"). Cells (35,2) = o_stoim
Worksheets ("результат"). Cells (34,2) = o_trati
Next j
Next i
For i = 0 To 11
For j = 0 To 5
Worksheets ("результат"). Cells (22 + i, 2 + j) = trati (i, j)
Next j
Next i
End Sub
Private Sub CommandButton2_Click ()
Worksheets ("результат"). Cells.Clear
End Sub
Таблиця 1.
Назва виробу |