Imports System

Module Progran
    Sub Main(args As String())

        Dim num1, num2, res As Integer
        Dim ch As Char
        Dim opr As String

        Console.WriteLine("Enter two nunbers :  ")
        num1 = Console.ReadLine()
        num2 = Console.ReadLine()
        Console.WriteLine(" Arithmetic operations Using Select Statement : ")
        Console.WriteLine(" + for Addition")
        Console.WriteLine(" - for Subtraction")
        Console.WriteLine(" * for Multiplication")
        Console.WriteLine(" / for Division")
        Console.WriteLine(" \ for Division")
        Console.WriteLine(" M for Modulo Division")
        Console.Write(" Please enter the Operation Symbol : ")
        ch = Console.ReadLine()
        Select Case ch
            Case "+"
                opr = "Addition"
                res = num2 + num1
            Case "-"
                opr = "Subtraction"
                res = num2 - num1
            Case "*"
                opr = "Multiplication"
                res = num2 * num1
            Case "/"
                opr = " Fractional Division"
                res = num2 / num1
            Case "\"
                opr = "Integer Division"
                res = num2 \ num1
            Case "M", "m"
                opr = "Modulo Division"
                res = num2 Mod num1
            Case Else
                Console.WriteLine(" Please enter only define operation With Capital letter")
        End Select
        Console.WriteLine(" {0} of two number is :{1}", opr, res)

    End Sub
End Module