'Primer 6: For...Next petlja
'testiranje funkcije za racunanje stepena zadate osnove i izlozioca
Function stepen(x As Integer, n As Integer) As Integer
    Dim i As Integer ' brojac u petlji
    
    stepen = 1
    For i = 1 To n
        stepen = stepen * x
    Next
End Function

Sub testStepen()
 Dim osnova As Integer 'osnova stepena
 Dim eksponent As Integer 'izlozilac (eksponent) stepena
 
 osnova = InputBox("Unesite osnovu (ceo broj)")
 eksponent = InputBox("Unesite izlozilac (ceo broj)")
 MsgBox osnova & " na " & eksponent & " = " & stepen(osnova, eksponent)
 
 'U prethodnoj naredbi smo spojili korak obrade i izlaza i izbegli upotrebu jos jedne promenljive.
 'Ne bi bilo pogresno ni da smo deklarisali jos jednu promenljivu, npr
 'Dim rezultat as Integer
 'i razdvojili korak obrade
 'rezultat = stepen(osnova, eksponent)
 'od koraka izlaza
 ' MsgBox osnova & " na " & eksponent & " = " & rezultat
End Sub