Imports System

Public Module Module1

    Public Sub Main()

        Dim Number1, Number2 As Integer 

        Dim Op As Char

        Dim Result As Decimal

        Do

            Console.WriteLine("Enter Number1 (10-99)")

            Number1 = Console.ReadLine()

        Loop until Number1 >= 10 AND Number1 <= 99

        Console.WriteLine("The Number1 is " & Number1)

        Do

            Console.WriteLine("Enter Number2 (10-99)")

            Number2 = Console.ReadLine()

        Loop until Number2 >= 10 AND Number2 <= 99

        Console.WriteLine("The Number2 is " & Number2)

        Do

            Console.WriteLine("Enter (A)dd, (S)ubtract, (M)ultiple, (D)ivide")

            Op = Console.ReadLine()

        Loop until Op = "A" OR Op = "S" 

        Console.WriteLine("You've chosen " & Op)

        If Op = "A" Then

            Result = Number1 + Number2

        Else Op = "S"

            Result = Number1 - Number2

        End If

        Console.WriteLine("Result is " & Result)

    End Sub

End Module

​

'Pseudocode

'======

'

'INTEGER: NUMBER

'

'REPEAT

'

'    INPUT "Enter number between 3 and 7", Number

'

'UNTIL Number >= 3 AND Number <= 7 ?

​