Imports System

Public Module Module1

    Public Sub Main()

            dim answer as string ="yes"

        while answer="yes"

            console.WriteLine("please eneter your first number ")

            dim num1 as integer

            num1=console.ReadLine()

            console.WriteLine("please enter your secound number ")

            dim num2 as integer

            num2=console.ReadLine()

            console .WriteLine("please choose one follwing math operations : M\A\S\D")

            dim operation as string 

            operation = console.ReadLine()

            select case operation 

            case "M"

                Dim m as integer

                M= num1*num2

                console.WriteLine("the answere for the multiplication is {0}" ,M)

            case"A"

                dim a as integer

                A=num1+num2

                console.WriteLine("the answere for the addition is {0}",A)

            case "S"

                dim s as integer 

                s=num1-num2

                console.WriteLine("the answere for the subtraction is : {0}",S)

            case"D"

                dim d as integer 

                D=num1/num2

                console.WriteLine("the answere for the division  is : {0}",D)

            End select 

            console.WriteLine("do you want to choose another operation ? yes \ no ")

            Answer=console.ReadLine()

        End while 

    End Sub

End Module