Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim input as String

        Dim cabins() as String = {"Hetty", "Poppy", "Blue Skies", "Bay View", "Happy Days", "Summer Joy", "Walkers' Rest", "Bertie", "Green Forest Lodge", "Coppice Lodge"}

        Dim capacities() as Integer = {4, 4, 4, 6, 6, 6, 8, 8, 10, 10}

        Dim peakrates() as Decimal = {400.00, 400.00, 500.00, 650.00, 695.00, 800.00, 950.00, 1050.00, 1200.00, 1500.00}

        Dim offpeakrates() as Decimal = {250.00, 250.00, 350.00, 500.00, 550.00, 600.00, 750.00, 850.00, 950.00, 1150.00}

        Dim bookings(169) as String

        Dim cabin as String

        Dim weeks as Integer

        Dim week1 as Integer

        Dim code as String

        Dim cabinnumber as Integer

        Dim cost as Decimal

        Dim week as Integer

        Dim bookingindex as Integer

        input = 0

        Do until input = "-1"

            input = Console.ReadLine()

            For counter1 = 0 to 9

            Console.Write("Cabin: " & cabins(counter1) & "; Capacity: " & capacities(counter1) & "; Available Weeks: ")

            For counter2 = 0 to 16

            bookingindex = counter1*17 + counter2

            If bookings(bookingindex) = ""

                Console.Write(counter2 + 23 & ", ")

                    End If

                Next

​

                Console.WriteLine("")

            Next

​

            Console.WriteLine("Please input the log cabin you wish to stay in.")

            cabin = Console.ReadLine()

    For counter = 0 to 9

    If cabin = cabins(counter)

        cabinnumber = counter

                End If

            Next

​

            Console.WriteLine("Please input the number of weeks for the booking.")

            weeks = Console.ReadLine()

            Console.WriteLine("Please input the starting week.")

            week1 = Console.ReadLine()

code = cabinnumber & week1

            For i = 0 to weeks - 1

                bookings(week1 - 23 + i + cabinnumber * 17) = code

            Next

​

For counter = 0 to weeks - 1

week = week1 + counter

                If week < 27 or week > 35

                    cost = cost + offpeakrates(cabinnumber)

                Else

                    cost = cost + peakrates(cabinnumber)

                End If

            Next

​

            Console.WriteLine("The cost is $" & cost & ".")

            If weeks > 2

                Console.WriteLine("As you are staying for 3 weeks or more, you have a 10% discount. The original cost was $" & cost & " and the discounted cost is $" & (cost - cost / 10) & ".")

            End If

        Loop

    End Sub

End Module