'Listing 20.6 -- 20LIST06.TXT -- Uycie operatora Mod

Private Sub Command1_Click()
  Iloraz = 17 \ 3
  Reszta = 17 Mod 3
  Form1.Print "Iloraz = " & Iloraz
  Form1.Print "Reszta = " & Reszta
End Sub
