'Primer 9: prosek unetih brojeva sa tastature (While...Wend)
Sub testProsek()
    Dim x As Integer 'tekuci broj koji unosimo sa tastature
    Dim n As Integer 'ukupan broj do sada unetih brojeva razlicitih od nule
    Dim zbir As Integer 'zbir do sada unetih brojeva
    Dim prosek As Double
    
    'Inicijalizacija
    zbir = 0
    n = 0
    
    'Petlja
    x = InputBox("Unesite ceo broj razlicit od nule ili nulu za kraj")
    While x <> 0 'petlja se ponavlja dok je broj razlicit od nule
        zbir = zbir + x 'racunamo zbir do sada unetih brojeva
        n = n + 1       'brojimo koliko smo brojeva do sada uneli
        x = InputBox("Unesite ceo broj razlicit od nule ili nulu za kraj") 'unos sledeceg broja
    Wend
    
    '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