Összegzés

Feladat: adott egy számsorozat, adjuk össze az elemeit
 

Változók:

• bemenő számsorozat,
• index/ciklusszámláló,
• kimenőszám

Pl.: vegyünk egy valósakat tartalmazó, 7 hosszú tömböt

Dim Tömb() As Single = {1.2, 4.3, 3.14, -5.67, 11, 2.2, 10.6}
    

    Private Sub Összegzés()
        Dim I As Integer
        Dim Szumma As Single
        Szumma = 0

        For I = 0 To UBound(Tömb) 'Lekérdezi a tömb elemszámát
            Szumma = Szumma + Tömb(I) 'A Szumma változó korábbi értékéhez hozzáadja a tömb I. elemének értékét
        Next

        MsgBox("A tömbben tárolt számok összege:" & Format(Szumma, "0.00"), , "Összegzés")
    End Sub

Feladat: Számítsd ki az első n pozitív egész szám összegét! (n=9)

Feladat: Számítsd ki az első n pártalan szám összegét! (n=12)