Scrierea unui program în VBA

Figura 3. Flowchart (end)

Introduceți (zero) valorile inițiale pentru valorile calculate (numărul de flori vândute pentru anul, venituri de la an la an, iar din total, tipul de flori, care a adus cele mai mari venituri în 2 ani).

Deschiderea foii cu datele inițiale ( „Nach_d“) și primirea acestor date în variabilele de operare (matrice Sena (7) și Kölle (7, 5)).

Deschiderea foii cu rezultatele, formarea matricei de date de intrare. Organizat două bucle imbricate (fiecare buchet si an). În bucla interioară (de an, calculul 1 flori) este determinată de numărul de buchete de 3 ani. Rezultatul este de ieșire.

Calculul veniturilor sumelor de buchete pentru fiecare an de la încheierea rezultatelor. Organizat două bucle imbricate: aspectul buchetului, datele interne. Pentru a optimiza procesul de decontare combinată cu concluzia: bucla interioară se produce dohodod calcularea sumei florilor i-lea an-j th deoarece rezultatul este afișat în bucla exterioară (după primirea rezultatelor buclei interioare) - numărul de ieșire de buchete. Calcularea venitului pentru fiecare an este organizat în aceeași buclă interioară.

Determinarea tipului de flori a adus cele mai mari venituri în 2 ani.

Compara venit timp de 2 ani (anul 1 + 2 Anul II, anul 1 + 3-lea an, anul 2 + an 3-a) suma celor două cu cel mai mare indice este compus și afișat sub forma de flori.

„În primul rând declaram variabilele utilizate în program.

„Declarați variabilele utilizate în cadrul programului

Dim i Ca Integer, j Ca Integer, min Ca Integer, z Ca Integer „contoare de buclă

cena Dim (6, 3) Deoarece prețurile Integer „achiziție din fiecare specie

zar Dim (6, 3) ca venit Integer“pentru fiecare an

Dim koll_n (6) Ca număr Integer“de flori fiecărui tip de specii de peste 3 ani

den Dim ca venituri pe termen lung“al fermei colective timp de 3 ani

Dim zarpl (6) Deoarece venitul Integer“timp de 3 ani

Dim Kölle (6) Deoarece numărul de Integer“din fiecare tip de buchete

Dim koll_i Ca Integer „cantitatea totală de buchete de 3 ani

dim sum (6, 3) Ca Integer

„La începutul programului, toate variabilele sunt egale cu zero

„Citește datele inițiale

„Kölle fiecare celulă array (i) se înregistrează numărul fiecărui tip de buchete

„Pentru a face acest lucru, vom folosi ciclul

Kölle (i) = Celulele (3 + i, 2)

koll_n (i) = Kölle (i) * 3

koll_i = koll_i + koll_n (i)

„În fiecare cena matrice de celule (i, j) a înregistrat prețul de achiziție al fiecărui tip pentru anul

„Deoarece matricea bidimensională a buclei se extinde de-a lungul două contoare

cena (i, j) = Celulele (3 + i, 2 + j)

„Pe foaia«Rezultat»sunt celule cu anumite nume

Foi ( "rezultate"). Celulele (1, 1) = "prețurile de achiziție pentru un an"

Foi ( "Rezultate"). Celulele (2, 1) = "Denumire buchete"

Foi ( "Rezultate"). Celulele (2, 2) = "numărul de buchete"

Foi ( "Rezultate"). Celulele (2, 3) = "achiziționat"

Foi ( "rezultate"). Celulele (3, 3) = "Anul 1"

Foi ( "rezultate"). Celulele (3, 4) = "2 ani"

Foi ( "rezultate"). Celulele (3, 5) = "al treilea an"

Foi ( "Rezultate"). Celulele (3, 6) = "Total"

Foi ( "Rezultate"). Celulele (4, 1) = "Rose"

Foi ( "Rezultate"). Cells (5, 1) = "știfturi"

Foi ( "Rezultate"). Celulele (6, 1) = "crin"

Foi ( "Rezultate"). Celulele (7, 1) = "daisy"

Foi ( "Rezultate"). Celulele (8, 1) = "crizantema"

Foi ( "Rezultate"). Celulele (9, 1) = "lalea"

Foi ( "Rezultate"). Celulele (10, 1) = "Total"

Foi ( "Rezultate"). Celulele (10 6) = koll_i

„Numărul de buchete se înregistrează în celulele corespunzătoare

Foi ( "Rezultate"). Celulele (3 + i, 2) = Kölle (i)

Foi ( "Rezultate"). Celulele (3 + i, 6) = koll_n (i)

„În celulele corespunzătoare sunt înregistrate prețurile de achiziție pentru anul

Foi ( "Rezultate"). Celulele (3 + i, 2 + j) = cena (i, j)

„Calculat ca prețul de achiziție al fiecărui tip pentru anul

„Rezultatul este scris în celula corespunzătoare

„Pe foaia«Rezultat»sunt celule cu anumite nume

Foi ( "Rezultate"). Celulele (12, 1) = "rezultatele în termeni monetari"

Foi ( "Rezultate"). Celulele (13, 1) = "Denumire buchete"

Foi ( "Rezultate"). Celulele (13, 2) = "număr de flori în fiecare an."

Foi ( "Rezultate"). Celulele (13, 3) = "câștigat"

Foi ( "rezultate"). Celulele (14, 3) = "Anul 1"

Foi ( "rezultate"). Celulele (14, 4) = "2 ani"

Foi ( "rezultate"). Celulele (14, 5) = "al treilea an"

Foi ( "Rezultate"). Celulele (14 6) = "Total"

Foi ( "Rezultate"). Celulele (15, 1) = "trandafir"

Foi ( "Rezultate"). Cells (16, 1) = "știfturi"

Foi ( "Rezultate"). Celulele (17, 1) = "crin"

Foi ( "Rezultate"). Celulele (18, 1) = "daisy"

Foi ( "Rezultate"). Celulele (19, 1) = "crizantema"

Foi ( "Rezultate"). Celulele (20, 1) = "lalea"

Foi ( "Rezultate"). Celulele (21, 1) = "TOTAL"

Foi ( "rezultate"). Celulele (22, 1) = "culoare tip de venit adus max 2 ani"

„Produs care afișează numărul de flori în fiecare an

Foi ( "Rezultate"). Celulele (14 + i, 2) = Kölle (i)

„Calculul: flori vândute timp de 3 ani fiecare tip de culoare, venitul total de până la 3 ani;

„Concluzie: buchete vândute timp de 3 ani fiecare specie de flori

zar (i, j) = Kölle (i) * cena (i, j)

Foi ( "Rezultate"). Celulele (14 + i, 2 + j) = zar (i, j)

zarpl (i) = zarpl (i) + zar (i, j)

Foi ( "Rezultate"). Celulele (14 + i, 6) = zarpl (i)

den = den + zarpl (i)

„Retragerea veniturilor totale în 3 ani

Foi ( "Rezultate"). Celulele (21) 6 = den

„Calculul tipuri de culori pentru 2 ani max adus venituri

sum (i, 1) = zar (i, 1) + zar (i, 2)

sum (i, 2) = zar (i, 2) + zar (i, 3)

sum (i, 3) = zar (i, 1) + zar (i, 3)

Dacă suma (i, j)> min Apoi

Foi ( "Rezultate"). Celulele (22) 6 = Foi ( "Rezultate"). Celulele (14 + z, 1)

6. Descrierea datelor de intrare și de rezultatul de calcul

Verificarea programului pe toate unitățile:

Verificați toate zerouri:

Verificați datele arbitrare:

Date de referință pentru specificarea № prezentate în Ris.№1. decizie - în Figura 2 ..