Maximum keresés

Feladat: egy sorozat maximumát keressük valamilyen szempontnak megfelelően
Változók:

• bemenő sorozat,

• index/ciklusszámláló,

• kimenőindex

Teendők: elmentjük a kimenőértékbe az első elem indexét, sorba megnézzük, melyik nagyobb nála, ekkor átírjuk a kimenőindexet

Dim Tömb() As Integer = {1, 4, 3, 5, 11, 2, 10}'Tömb értékadással 
    Private Sub MAxKeres()
        Dim I, Max, Helye_a_Tömbben As Integer 'Változók
        Max = Tömb(0)
        Helye_a_Tömbben = 0
        For I = 0 To UBound(Tömb) 'Lekérdezi a tömb elemszámát
            If Tömb(I) > Max Then 'Cserél, ha nagyobb elemet talál
                Max = Tömb(I) 'Max-ban tároljuk a legnagyobb értéket
                Helye_a_Tömbben = I 'Az I. helyen találtunk rá
            End If
        Next
        MsgBox("A maximum értéke:" & CStr(Max) & " Helye a tömbben:" & CStr(Helye_a_Tömbben))
    End Sub

A futtatás eredménye:

Feladat: Válaszd ki a leghosszabb nevű tanulót az alábbi tömbből!

Dim Nevek() As String = {"Altziebler Dániel", "Bori Réka", "Petrás Adél Hajnal", "Fehér Luca", "Csikós Tamás", "Dürvanger Zsolt", "Érsek Péter"}