Писане на програма в VBA
Фигура 3. Схема (край)
Въведете началните (нула) стойности за изчислените стойности (броят на продадените цветя за годината, приходите от година на година, а общият вид, цветя, които донесоха най-много приходи в 2 години).
Откриване на листа с първоначалните данни ( "Nach_d"), както и приемане на тези данни в оперативните променливи (Sena масиви (7) и Кол (7, 5)).
Откриване на листа с резултатите, образуването на матрицата на входни данни. Организираните два вложени цикъла (всеки букет и годишно). Във вътрешния контур (по години, изчисляването на 1 цветя), се определя от броя на букети в продължение на 3 години. Резултатът е изход.
Изчисляването на приходите сумите на букети за всяка година от сключването на резултатите. Организиран два вложени цикъла: появата на букета, вътрешни данни. За да се оптимизира процеса на населеното място в съчетание с извода: вътрешният цикъл настъпва dohodod изчисляване на сумата от I-ия цветята в к-та година, тъй като в резултат се появява във външния контур (след получаване на резултатите от вътрешния цикъл) - изход брой на букети. Изчисляване на доход за всяка година се организира в една и съща вътрешния цикъл.
Определяне на вида на цветя донесе най-много приходи в 2 години.
Сравнете доходите за 2 години (година 1 + 2-ра година, 1-ва година + 3-та година, втора година + трета година) сборът от двете с най-висок индекс е съставен и се показва под формата на цветя.
"На първо място ние заявяваме, променливите, използвани в програмата.
"Декларирам променливите, използвани в програмата
Дим аз Като цяло число, J Като цяло число, мин Като цяло число, Z Както бримкови броячи Integer "
Дим диапазон (6, 3) в цели "изкупните цени на всеки вид
Дим ZAR (6, 3) като приход Цяло число "за всяка година
Дим koll_n (6) Като цяло число "на цветя от всеки вид видове в продължение на 3 години
Дим ден като приход Long "на ТКЗС в продължение на 3 години
Дим zarpl (6) Тъй като доходите Цяло число "за 3 години
Дим Кол (6) номер на всеки тип букети цяло число "
Дим koll_i Като цяло число "общото количество на букети за 3 години
Дим сума (6, 3) Като цяло число
"В началото на програмата, всички променливи са равни на нула
"Чете първоначалните данни
"Кол всеки масив клетка (и) се записва броят на всеки тип букети
"За да направите това, ние използваме цикъл
Кол (l) = Клетките (3 + I, 2)
koll_n (I) = Кол (I) * 3
koll_i = koll_i + koll_n (I)
"Във всеки диапазон множество клетки (I, J), отчетени от покупната цена на всеки вид за годината
"Както двумерен масив от линия се простира по два брояча
Cena (I, J) = Клетките (3 + I, 2 + J)
"On" Резултат "на листа са клетки с определени имена
Листове ( "Резултати"). Cells (1, 1) = "изкупни цени за една година"
Листове ( "Резултати"). Клетките (2, 1) = "Име на букети"
Листове ( "Резултати"). Клетките (2, 2) = "номер на букети"
Листове ( "Резултати"). Клетките (2, 3) = "закупени"
Листове ( "Резултати"). Клетките (3, 3) = "Година 1"
Листове ( "Резултати"). Клетките (3, 4) = "2 Година"
Листове ( "Резултати"). Cells (3, 5) = "трета година"
Листове ( "Резултати"). Клетките (3, 6) = "Общо"
Листове ( "Резултати"). Клетките (4, 1) = "роза"
Листове ( "Резултати"). Клетки (5, 1) = "шипове"
Листове ( "Резултати"). Клетките (6, 1) = "крем"
Листове ( "Резултати"). Клетките (7, 1) = "маргаритка"
Листове ( "Резултати"). Клетките (8, 1) = "хризантема"
Листове ( "Резултати"). Клетките (9, 1) = "лале"
Листове ( "Резултати"). Клетките (10, 1) = "Общо"
Листове ( "Резултати"). Клетките (10 6) = koll_i
"Брой на букети се записва в съответните клетки
Листове ( "Резултати"). Клетките (3 + I, 2) = Кол (I)
Листове ( "Резултати"). Клетките (3 + I, 6) = koll_n (I)
"В съответните клетки се записват изкупните цени за годината
Листове ( "Резултати"). Клетките (3 + I, 2 + J) = Cena (I, J)
"Изчислено като продажната цена на всеки вид за годината
"Резултатът е написано в съответната клетка
"On" Резултат "на листа са клетки с определени имена
Листове ( "Резултати"). Клетките (12, 1) = "резултати в парично изражение"
Листове ( "Резултати"). Клетките (13, 1) = "Име на букети"
Sheets ( "резултати"). Cells (13, 2) = "брой на цветя в всяка година."
Листове ( "Резултати"). Клетките (13, 3) = "получени"
Листове ( "Резултати"). Клетките (14, 3) = "Година 1"
Листове ( "Резултати"). Клетките (14, 4) = "2 Година"
Листове ( "Резултати"). Cells (14, 5) = "трета година"
Листове ( "Резултати"). Клетките (14 6) = "Общо"
Листове ( "Резултати"). Клетките (15, 1) = "роза"
Листове ( "Резултати"). Клетки (16, 1) = "шипове"
Листове ( "Резултати"). Клетките (17, 1) = "крем"
Листове ( "Резултати"). Клетките (18, 1) = "маргаритка"
Листове ( "Резултати"). Клетките (19, 1) = "хризантема"
Листове ( "Резултати"). Клетките (20, 1) = "лале"
Листове ( "Резултати"). Клетките (21, 1) = "обща"
Листове ( "Резултати"). Клетките (22, 1) = "цвят вид доход доведени до 2 години"
"Произведен показване на броя на цветя през всяка година
Листове ( "Резултати"). Клетките (14 + I, 2) = Кол (I)
"Изчисляване на: цветя, продавани в продължение на 3 години всеки вид цвят, общият доход на до 3 години;
"Заключение: букети, продавани в продължение на 3 години всеки вид цветя
ZAR (I, J) = Кол (I) * диапазон (I, J)
Листове ( "Резултати"). Клетките (14 + I, 2 + J) = ZAR (I, J)
zarpl (I) = zarpl (I) + ZAR (I, J)
Листове ( "Резултати"). Клетките (14 + I, 6) = zarpl (I)
ден = ден + zarpl (I)
"Оттегляне от общите приходи за 3 години
Листове ( "Резултати"). Клетките (21) 6 = Den
"Изчислителни видове цветове за 2 години макс донесли приходи
сума (I, 1) = ZAR (I, 1) + ZAR (I, 2)
сума (I, 2) = ZAR (I, 2) + ZAR (I, 3)
сума (I, 3) = ZAR (I, 1) + ZAR (I, 3)
Ако сума (I, J)> мин След
Листове ( "Резултати"). Клетките (22) 6 = листове ( "Резултати"). Клетките (14 + Z, 1)
6. Описание на входните данни и резултат изчисление
Проверка на програмата на всички звена:
Проверете за всички нули:
Проверка за произволна информация:
Базови данни за уточняване № представена в Ris.№1. решение - на фигура 2 ..