Írás egy programot a VBA-ban

3. ábra. Folyamatábra (vége)

Írja be a kezdeti (nulla) értéket számított értékek (az eladott virágok, az év jövedelem évről évre, és a teljes, írja a virágok, amely hozta a legnagyobb bevételt a 2 év).

Megnyitása a lap a kezdeti adatok ( „Nach_d”) és vétel ezen adatok a működési változók (Sena tömbök (7) és a koll (7, 5)).

Megnyitása a lap az eredménnyel, a formáció a mátrix bemeneti adatok. Szervezett két egymásba ágyazott hurkok (minden csokor, év). A belső hurok (év, a számítást a 1 virágok) határozza meg a számát csokrok 3 évig. Az eredmény kimenet.

A számítás a jövedelem összegét csokrok minden évben az a következtetés az eredményeket. Szervezett két beágyazott hurok: a megjelenése az illata, a belső adatokat. Ahhoz, hogy a folyamat optimalizálása a település együtt a következtetést: a belső hurok bekövetkezik dohodod kiszámítása az összege az i-edik virágok a j-edik évben, mivel az eredmény jelenik meg a külső hurok (miután megkapta az eredmények a belső hurok) - kimeneti száma csokrok. Kiszámítása jövedelem évente kerül megrendezésre az azonos belső hurok.

Típusának meghatározására virágok hozta a legtöbb bevételt a 2 év.

Összehasonlítás jövedelem 2 év (1 év + 2. év, 1. év + 3. év 2. év + 3. év) a kettő összege a legmagasabb index olyan, és megjelenik a formájában a virágok.

„Először állapítsa meg a használt változókat a program.

„Állapítsa használt változókat a program

Dim i As Integer, J As Integer, min As Integer, z As Integer „hurok számlálók

Dim cena (6, 3) As Integer „beszerzési árak az egyes fajok

Dim zar (6, 3) As Integer „jövedelem minden évben

Dim koll_n (6) As Integer „virágok száma minden egyes típusú fajok 3 év alatt

Dim den As Long „jövedelme a kollektív gazdaság 3 évig

Dim zarpl (6) As Integer „bevétel 3 éve

Dim Koll (6) As Integer „száma minden egyes típusú csokrok

Dim koll_i As Integer „teljes mennyiségét csokrok 3 évig

Dim összeg (6, 3) As Integer

„Kezdetben a program valamennyi változó egyenlő nullával

„Olvasás az eredeti adatokat

„Koll minden tömb cella (i) van rögzítve a számát az egyes típusú csokrok

„Ahhoz, hogy ezt elérjük, a kerékpárúton

Koll (i) = a sejteket (3 + i, 2)

koll_n (i) = koll (i) * 3

koll_i = koll_i + koll_n (i)

„Minden cella tömb cena (i, j) rögzített vételár az egyes típusok az év

„Mivel a két dimenziós tömb hurok mentén húzódik a két számláló

cena (i, j) = A sejteket (3 + i, 2 + j)

„A lap»Eredmény«a sejtek bizonyos nevek

Sheets ( "eredmény"). Cells (1, 1) = "A beszerzési árak egy év"

Sheets ( "Eredmények"). A sejteket (2, 1) = "neve csokrok"

Sheets ( "Eredmények"). A sejteket (2, 2) = "száma csokrok"

Sheets ( "Eredmények"). A sejteket (2, 3) = "vásárolt"

Sheets ( "eredmény"). A sejteket (3, 3) = "év 1"

Sheets ( "eredmény"). A sejteket (3, 4) = "2 év"

Sheets ( "eredmény"). A sejteket (3, 5) = "harmadik évben"

Sheets ( "Eredmények"). A sejteket (3, 6) = "Total"

Sheets ( "Eredmények"). A sejteket (4, 1) = "Rose"

Sheets ( "Eredmények"). A sejteket (5, 1) = "patent"

Sheets ( "Eredmények"). A sejteket (6, 1) = "Lily"

Sheets ( "Eredmények"). A sejteket (7, 1) = "százszorszép"

Sheets ( "Eredmények"). A sejteket (8, 1) = "krizantém"

Sheets ( "Eredmények"). A sejteket (9, 1) = "tulipán"

Sheets ( "Eredmények"). A sejteket (10, 1) = "Total"

Sheets ( "Eredmények"). A sejteket (10 6) = koll_i

„Száma csokrok rögzítik a megfelelő sejteket

Sheets ( "Eredmények"). A sejteket (3 + i, 2) = koll (i)

Sheets ( "Eredmények"). A sejteket (3 + i, 6) = koll_n (i)

„A megfelelő sejteket rögzített beszerzési árak az év

Sheets ( "Eredmények"). A sejteket (3 + i, 2 + j) = cena (i, j)

„Számított a vételár egyes évre

„Eredmény van írva a megfelelő cellába

„A lap»Eredmény«a sejtek bizonyos nevek

Sheets ( "Eredmények"). A sejteket (12, 1) = "eredményeket pénzben"

Sheets ( "Eredmények"). A sejteket (13, 1) = "neve csokrok"

Sheets ( "Eredmények"). A sejteket (13, 2) = "virágok száma minden évben."

Sheets ( "Eredmények"). A sejteket (13, 3) = "szerzett"

Sheets ( "eredmény"). A sejteket (14, 3) = "év 1"

Sheets ( "eredmény"). A sejteket (14, 4) = "2 év"

Sheets ( "eredmény"). A sejteket (14, 5) = "harmadik évben"

Sheets ( "Eredmények"). A sejteket (14 6) = "Total"

Sheets ( "Eredmények"). A sejteket (15, 1) = "rose"

Sheets ( "Eredmények"). A sejteket (16, 1) = "patent"

Sheets ( "Eredmények"). A sejteket (17, 1) = "Lily"

Sheets ( "Eredmények"). A sejteket (18, 1) = "százszorszép"

Sheets ( "Eredmények"). A sejteket (19, 1) = "krizantém"

Sheets ( "Eredmények"). A sejteket (20, 1) = "tulipán"

Sheets ( "Eredmények"). A sejteket (21, 1) = "összes"

Sheets ( "eredmény"). Cells (22, 1) = "color típusú jövedelem hozta max 2 év"

„Előállított megjelenítését a virágok száma minden évben

Sheets ( "Eredmények"). A sejteket (14 + i, 2) = koll (i)

„Kiszámítása: virágok értékesített 3 év minden fajta szín, a teljes bevétel legfeljebb 3 év;

„Következtetés: csokrok értékesített 3 éve minden faj a virágok

zar (i, j) = koll (i) * cena (i, j)

Sheets ( "Eredmények"). A sejteket (14 + i, 2 + j) = zar (i, j)

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

Sheets ( "Eredmények"). A sejteket (14 + i, 6) = zarpl (i)

den = den + zarpl (i)

„Visszavonása teljes bevétel 3 év alatt

Sheets ( "Eredmények"). A sejteket (21 6) = den

Számítási féle színben 2 év max hozott bevétel

összege (i, 1) = zar (i, 1) + zar (i, 2)

összege (i, 2) = zar (i, 2) + zar (i, 3)

összege (i, 3) = zar (i, 1) + zar (i, 3)

Ha összege (i, j)> percig, majd

Sheets ( "Eredmények"). A sejteket (22 6) = Sheets ( "Eredmények"). A sejteket (14 + z, 1)

6. leírása bemenő adatok és számítási eredmények

Ellenőrzése a program minden egységen:

Ellenőrizze az összes nullák:

Ellenőrizzük tetszőleges adat:

A kiindulási adatok megadására № bemutatott Ris.№1. határozat - a 2. ábrán ..

---