'Razgranata struktura. If naredba

'odredxuje vecxi broj od dva zadata cela broja
Public Function maksimum(m As Integer, n As Integer) As Integer
    If m >= n Then
        maksimum = m
    Else
        maksimum = n
    End If
End Function

'odredxuje najvecxi broj od tri zadata cela broja
Public Function maksimum3(m As Integer, n As Integer, p As Integer) As Integer
    If m >= n Then
        If m >= p Then
            maksimum3 = m
        Else
            maksimum3 = p
        End If
    Else
        If n >= p Then
            maksimum3 = n
        Else
            maksimum3 = p
        End If
    End If
End Function

'drugo resxenje za najvecxi od tri data broja
Public Function maks3(m As Integer, n As Integer, p As Integer) As Integer
    maks3 = m   'pretpostavimo da je prvi najvecxi
    'ako je prvi manji od drugog, onda je drugi najvecxi, u protivnom prvi ostaje najvecxi (za sada)
    If maks3 <= n Then maks3 = n
    'sada je maks3 jednak vecxem od prva dva broja, tj. maksimumu prva dva broja
    'ako je maksimum prva dva broja manji od trecxeg, onda je trecxi najvecxi, u protivnom maksimum prva dva broja ostaje najvecxi
    If maks3 <= p Then maks3 = p
   'maks3 sadrzxi rezultat, najvecxi od sva tri broja
End Function

Sub testMaksimum()
    'Test funkcije maksimum
    MsgBox "Veci od (15,20) je " & maksimum(15, 20)
    
    'Test funkcije maksimum3
    MsgBox "(maksimum3) Veci od (15,20,25) je " & maksimum3(15, 20, 25)
    MsgBox "(maksimum3) Veci od (25,20,15) je " & maksimum3(25, 20, 15)
    MsgBox "(maksimum3) Veci od (20,15,25) je " & maksimum3(20, 15, 25)
    MsgBox "(maksimum3) Veci od (20,25,15) je " & maksimum3(20, 25, 15)
    MsgBox "(maksimum3) Veci od (15,25,20) je " & maksimum3(15, 25, 20)
    MsgBox "(maksimum3) Veci od (25,15,20) je " & maksimum3(25, 15, 20)

    'Test funkcije maks3
    MsgBox "(maks3) Veci od (15,20,25) je " & maks3(15, 20, 25)
    MsgBox "(maks3) Veci od (25,20,15) je " & maks3(25, 20, 15)
    MsgBox "(maks3) Veci od (20,15,25) je " & maks3(20, 15, 25)
    MsgBox "(maks3) Veci od (20,25,15) je " & maks3(20, 25, 15)
    MsgBox "(maks3) Veci od (15,25,20) je " & maks3(15, 25, 20)
    MsgBox "(maks3) Veci od (25,15,20) je " & maks3(25, 15, 20)
End Sub