Arithmetic Operators [ADD SUB MUL DIV]

Module arithmatic_op
    Sub main()
        Dim i, j, sum, subt, mul, div, mod1 As Integer
        Console.Write("Enter the values of i and j :")
        i = CInt(Console.ReadLine())
        j = CInt(Console.ReadLine())
        sum = i + j
        subt = i - j
        mul = i * j
        div = i \ j
        mod1 = i Mod j
        Console.WriteLine("sum=" + sum.ToString() + " subt=" + subt.ToString())
        Console.WriteLine("mul=" + mul.ToString() + " div=" + div.ToString())
        Console.WriteLine("mod1=" + mod1.ToString())
        Console.ReadLine()
    End Sub
End Module