Imports System

Public Module Module1

    Public Sub Main()

        dim num1 as integer 

​

dim num2 as integer 

​

console.writeline(" please enter a number")

​

num1 = console.readline()

​

console.writeline(" please enter a second number ")

​

num2 = console.readline()

​

dim c="y"

​

dim opt as string 

​

while c="y" or c="Y"

​

console.writeline(" please choose of these operations +,-,*or/")

​

opt=console.readline()

​

if opt="+"

​

console.writeline("your result is "&  num1 + num2) 

​

else if opt = "-"

​

console.writeline(" your result is" & num1 - num2 )

​

else if opt="*"

​

console.writeline(" your result is "& num1 * num2 )

​

else if opt = "/"

​

console.writeline(" your result is " & num1 / num2 )

​

end if 

​

console.writeline("do you wish to choose another operation? press y if yes or any other key if no ")

​

c= console.readline()

​

end while 

    End Sub

End Module