Module Module1

    Sub Main()
        Dim var1, var2, var3 As Decimal
        Console.Write("Please Type the first Variable Value:")
        var1 = Console.ReadLine()
        Console.Write("Please Type the 2nd Variable Value:")
        var2 = Console.ReadLine()

        var3 = var1 * var2
        Console.WriteLine("{0} x {1} = {2}", var1, var2, var3)
        var3 = var1 / var2
        Console.WriteLine("{0} / {1} = {2} (Float Point Division)", var1, var2, var3)
        var3 = var1 \ var2
        Console.WriteLine("{0} \ {1} = {2} (Integer Division)", var1, var2, var3)
        var3 = var1 ^ var2
        Console.WriteLine("{0} ^ {1} = {2} ", var1, var2, var3)
    End Sub

End Module