'Primer 10: prosek unetih brojeva sa tastature (Do...Loop While i Do...Loop Until)
Sub testProsek2()
    Dim x As Integer 'tekuci broj koji unosimo sa tastature
    Dim n As Integer 'ukupan broj do sada unetih brojeva
    Dim zbir As Integer 'zbir do sada unetih brojeva
    Dim prosek As Double
    'Inicijalizacija
    zbir = 0
    n = 0
    
    'Petlja
    Do
        'unos sledeceg broja
        x = InputBox("Unesite ceo broj razlicit od nule ili nulu za kraj")
        zbir = zbir + x 'racunamo zbir do sada unetih brojeva
        n = n + 1       'brojimo koliko smo brojeva do sada uneli
    Loop While x <> 0 'petlja se ponavlja dok je uneti broj razlicit od nule
    'Loop Until x = 0 'petlja se ponavlja dok uneti broj ne postane nula
    
    'nula ne utice na zbir, ali utice na ukupan broj unetih brojeva
    n = n - 1 'nula ne ulazi u prosek
    
    'Obrada i izlaz
    If n > 0 Then 'ne smemo da delimo nulom
        prosek = zbir / n
        MsgBox "Prosek unetih vrednosti je " & prosek
    Else
        MsgBox "Niste uneli nijedan broj razlicit od nule"
    End If
End Sub