Számlálás

Feladat: adott egy sorozat, kíváncsiak vagyunk, hány elemére teljesül egy adott tulajdonság, tehát megszámoljuk azok számát, amelyekre teljesül

Változók:

• bemenő sorozat,
• logikai értékű tulajdonság,
• index/ciklusszámláló,
• kimenőszám

Pl.: nézzük meg egy egészeket tartalmazó sorozatban mennyi pozitív szám van a logikai érték minden lépésben változni fog, ezért azt mindig ki kell értékelni
 

Dim Tömb() As Integer = {1, -4, 3, -5, 11, 2, -10}
 

    Private Sub Számláló()
        Dim I, Számláló As Integer
        Számláló = 0
        For I = 0 To UBound(Tömb) 'Lekérdezi a tömb elemszámát
            If Tömb(I) >= 0 Then 'Megnézi, hogy az adott elem pozitív e
                Számláló = Számláló + 1 'Ha igen növeli a számláló, értékét
            End If
        Next
        MsgBox("A tömbben:" & CStr(Számláló) & " pozitív szám található.", , "számláló")
    End Sub

Feladat: Számold meg hány olyan gyerek van a tömbben, akinek a neve 12 betűnél hosszabb!

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"}