Imports System

Public Module Module1

    Public Sub Main()

        Dim Number AS Integer

        Dim Op AS Char

        Do

          Console.WriteLine("Enter Number (3 - 7)")

          number = Console.ReadLine()

        Loop Until Number >= 3 AND Number <= 7

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

        Do

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

                Op = Console.ReadLine()

            Loop Until Op = "A" OR Op = "S" OR Op = "N" Or Op = "D"

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

        End Sub

End Module

​

​

'Pseudocode

'

'INTEGER: Number

'

'REPEAT

'

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

'

'UNTIL Number >= 3 AND Number <= 7