Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
inicializovať premenné potrebné . K dispozícii sú tri premenné potrebné pre slučke cez pole nájsť najvyššiu hodnotu : pole , ktoré obsahuje hodnoty , dočasné premenné sa prechádzať jednotlivé hodnoty poľa a variabilný držať najvyššiu hodnotu . Tieto premenné sú inicializované pomocou nasledujúci kód :
Dim MyArray ( 2 ) , IntegerDim aj ako IntegerDim maxvalue ako IntegermyArray ( 0 ) = 1myArray ( 1 ) = 2myArray ( 2 ) = 3
oznámenia pole je inicializovaný s číslami , 1 , 2 a 3. Po kód je po spustení , maximálna zobrazená hodnota je 3.
2
získať prvú hodnotu v poli a nastavte ho do premennej maxvalue . Táto premenná sa používa na porovnanie každú hodnotu poľa . Ak je ďalší hodnota v zozname poľa je vyššia , než je aktuálna hodnota , potom maxvalue má maximálny počet . Kód je nasledujúci :
maxvalue = myArray ( 0 )
3
Loop through každú hodnotu v poli nájsť maximálnu hodnotu . Kód je nasledujúci :
i = 0 myArray.GetUpperBound ( ) - 1Pokud maxvalue < myArray ( i ) ThenmaxValue = myArray ( i ) End IfNext
4
Vytlačiť vedie k oknu debugger . To sa používa na testovanie vášho kódu syntax a logiku za prípadné chyby . Nasledujúci tlačí kód " 3 " po slučke je dokončený :
Vytlačiť maxvalue