skeletoncodeformenu

Module Program
    Sub Main()
        Dim menuExit As Boolean = False
        Dim menuChoice As Integer
        Do
            Console.WriteLine()
            Console.WriteLine("WILDLIFE PARK BOOKING MENU")
            Console.WriteLine(vbTab & "1 - Display prices for one-day tickets")
            Console.WriteLine(vbTab & "2 - Display prices for two-day tickets")
            Console.WriteLine(vbTab & "3 - Show available days for booking")
            Console.WriteLine(vbTab & "4 - Make a booking")
            Console.WriteLine(vbTab & "5 - Exit Menu")
            Console.WriteLine()

            Console.Write("Select an option: ")
            menuChoice = Console.ReadLine()
            Select Case menuChoice
                Case 1, 2
                    'Display extra attractions
                    If menuChoice = 1 Then
                        'Display one-day costs
                    Else
                        'Display two-day costs
                    End If
                Case 3
                    'Display available days
                Case 4
                    'Make a booking
                Case 5
                    menuExit = True
                Case Else
                    Console.WriteLine("Please enter a number from 1 to 5")
            End Select
        Loop Until menuExit
    End Sub
End Module