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

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ РОССИЙСКОЙ ФЕДЕРАЦИИ ИДО ГОУ МГИУ Курсовая работа По дисциплине «Информатика» Задание:№ 93 Группа: № Жл09Ф22п Студент: Соколова Виктория Игоревна Руководитель: Ф.И.О. Левкова Анна Витальевна Железнодорожный 2010 Содержание 1. Каждый год в течение 3 лет колхоз собирал букеты с каждой оранжереи и продавал их по закупочным ценам, которые были различны в разные годы. Результаты работы программы оформляются на листе «Результат» (рис. Sub Funct() объявляем переменные используемые в программе Dim i As Integer, j As Integer, min As Integer, z As Integer счетчики циклов Dim cena(6, 3) As Integer закупочные цены каждого вида Dim zar(6, 3) As Integer доход за каждый год Dim koll_n(6) As Integer количество букетов каждого вида вида за 3 года Dim den As Long доход колхоза за 3 года Dim zarpl(6) As Integer доход за 3 года Dim koll(6) As Integer количество букетов каждого вида Dim koll_i As Integer итоговое количество букетов за 3 года Dim sum(6, 3) As Integer в начале программы все переменные равны нулям создаем цикл, For i = 1 To 6 koll_n(i) = 0 Next koll_i = 0 den = 0 считываем начальные данные Sheets(Нач_д).Select в каждую ячейку массива koll(i) записывается количество букетов каждого вида для этого используем цикл For i = 1 To 6 Koll(i) = Cells(3 i, 2) koll_n(i) = koll(i) * 3 koll_i = koll_i koll_n(i) zarpl(i) = 0 Next i в каждую ячейку массива cena(i, j) записывается закупочные цены каждого вида за год так как массив двумерный цикл проходит по двум счетчикам For i = 1 To 6 For j = 1 To 3 cena(i, j) = Cells(3 i, 2 j) zar(i, j) = 0 Next j Next i на листе Результат создаются ячейки с определенными названиями Sheets(Результат).Cells(1, 1) = Закупочные цены за год Sheets(Результат).Cells(2, 1) = Наименование букетов Sheets(Результат).Cells(2, 2) = Количество букетов Sheets(Результат).Cells(2, 3) = Закуплено Sheets(Результат).Cells(3, 3) = 1-й год Sheets(Результат).Cells(3, 4) = 2-й год Sheets(Результат).Cells(3, 5) = 3-й год Sheets(Результат).Cells(3, 6) = Всего Sheets(Результат).Cells(4, 1) = розы Sheets(Результат).Cells(5, 1) = гвоздики Sheets(Результат).Cells(6, 1) = лилии Sheets(Результат).Cells(7, 1) = ромашка Sheets(Результат).Cells(8, 1) = хризантема Sheets(Результат).Cells(9, 1) = тюльпан Sheets(Результат).Cells(10, 1) = Итого Sheets(Результат).Cells(10, 6) = koll_i в соответствующие ячейки записываются количество букетов For i = 1 To 6 Sheets (Результат).Cells(3 i, 2) = koll(i) Sheets (Результат).Cells(3 i, 6) = koll_n(i) For j = 1 To 3 в соответствующие ячейки записываются закупочные цены за год Sheets(Результат).Cells(3 i, 2 j) = cena(i, j) рассчитывается закупочные цены каждого вида за год Next j результат записывается в соответствующие ячейки Next i на листе Результат создаются ячейки с определенными названиями Sheets(Результат).Select Sheets(Результат).Cells(12, 1) = Результат в денежном эквиваленте Sheets(Результат).Cells(13, 1) = Наименование букетов Sheets(Результат).Cells(13, 2) = количество букетов в каждом году.