Contact: aviboots(AT)netvision.net.il
40,793 questions
53,190 answers
573 users
Imports System Module Module1 Sub Main() Dim a As Integer = 18 Dim b As Integer = 5 Dim r As Integer = a Mod b ' r = 2 Console.WriteLine("Remainder = " & r) End Sub End Module ' run: ' ' Remainder = 3 '