Jak najít maximální hodnotu v sérii v jazyce Visual Basic

Krok 1

Spusťte potřebné proměnné. Existují tři proměnné nezbytné pro sledování série a nalezení nejvyšší hodnoty: řada obsahuje hodnoty, dočasnou proměnnou pro prohledávání každé hodnoty série a proměnnou pro udržení vyšší hodnoty. Tyto proměnné začínají následujícím kódem:

Dim myArray (2) jako celé číslo Dim i jako celé číslo Dim maxValue jako celé číslo myArray (0) = 1 myArray (1) = 2 myArray (2) = 3

Všimněte si, že série začína čísly 1, 2 a 3. Poté je kód dokončen a maximální zobrazená hodnota je 3.

Krok 2

Získejte první hodnotu v sérii a nakonfigurujte ji v proměnné maxValue. Tato proměnná se používá k nákupu každé hodnoty série. Je-li další hodnota v seznamu řady vyšší než aktuální, pak maxValue udržuje největší číslo. Kód je následující:

maxValue = myArray (0)

Krok 3

Podívejte se na každou hodnotu v sérii, abyste zjistili maximální hodnotu. Kód je následující:

Pro i = 0 Na myArray.GetUpperBound () - 1 Pokud maxValue <myArray (i) Pak maxValue = myArray (i) End If Next

Krok 4

Vytiskněte výsledky v okně "debugger". To slouží k otestování logiky a syntaxe kódu, abyste zjistili, zda jsou chyby. Následující kód vytiskne na konci analýzy "3":

Tisk maxValue