'Razgranata struktura: Select Case naredba
Sub operacijeCeli()
  Dim x As Integer, y As Integer 'ulaz 1 i ulaz 2
  Dim op As String  'ulaz 3: celobrojna operacija
  Dim z As Integer 'rezultat

  x = InputBox("Unesite prvi ceo broj")
  y = InputBox("Unesite drugi ceo broj")
  op = InputBox("Unesite znak celobrojne operacije (+,-,*,\) ili Mod")
  op = LCase(op)
  'op = LCase(InputBox("Unesite znak celobrojne operacije (+,-,*,\) ili Mod"))
 'Jedno resxenje koristi If naredbu
'  If op = "+" Then
'    z = x + y
'  ElseIf op = "-" Then
'        z = x - y
'  ElseIf op = "*" Then
'        z = x * y
'  ElseIf op = "\" Then
'        z = x \ y 'celobrojno deljenje: kolicnik
'  ElseIf op = "mod" Then
'        z = x Mod y 'celobrojno deljenje: ostatak
'  Else
'       MsgBox "Nedozvoljena operacija, odoh ja"
'       Exit Sub
'  End If
  'Drugo resxenje koristi Select Case naredbu
  Select Case op
    Case "+"
        z = x + y
    Case "-"
        z = x - y
    Case "*"
        z = x * y
    Case "\"
        z = x \ y 'celobrojno deljenje: kolicnik
    Case "mod"
        z = x Mod y 'celobrojno deljenje: ostatak
    Case Else
       MsgBox "Nedozvoljena operacija, odoh ja"
       Exit Sub
  End Select
  MsgBox "Rezultat operacije " & x & " " & op & " " & y & " = " & z
End Sub

'Celobrojno i realno deljenje 
Sub deljenje()
  Dim ceo As Integer
  Dim rea As Double
  
  ceo = 15 \ 4 'celobrojno deljenje i celobrojni rezultat
  MsgBox "(ceo = 15 \ 4): " & ceo
  rea = 15 \ 4 'celobrojno deljenje i realni rezultat
  MsgBox "(rea = 15 \ 4): " & rea
  ceo = 15 / 4 'realno deljenje i celobrojni rezultat
  MsgBox "(ceo = 15 / 4): " & ceo
  rea = 15 / 4 'realno deljenje i realni rezultat
  MsgBox "(rea = 15 / 4): " & rea
End Sub