Module Module1

​

    Sub Main()

​

        'TASK ONE

​

        Dim P As String                             'General Inputs

        Dim PP As Integer = -1                      'Input Plane Type                        (0=2S, 1=4S, 2=H)

        Dim PL As Integer = -1                      'Input Flight Length                     (0=30m, 1=60m)

        Dim MN As Integer                           'Max # of Flights in a day

        Dim MI As Integer                           'Max $ per day

        Dim H As Decimal = 10.5                     'constant: number of hours in the day

        Dim T3() As Integer = {100, 120, 300}       'constant: tariffs for 30min flights

        Dim T6() As Integer = {150, 200, 500}       'constant: tariffs for 60min flights

​

​

        'Task 1: Input PP

        Console.WriteLine("Enter Plane [2 Seater, 4 Seater, Historic]:")

        Do

            P = Console.ReadLine

            If P = "2 Seater" Or P = "2" Then

                PP = 0

            ElseIf P = "4 Seater" Or P = "4" Then

                PP = 1

            ElseIf P = "Historic" Or P = "H" Then

                PP = 2

            Else

                Console.writeline("Invalid input. Check that you have selected one of the options and have spelt your choice correctly.")

            End If

        Loop Until PP <> -1

​

​

        'Task 1: Input PL

        Console.WriteLine("Enter Length of Flight [30 mins, 60 mins]:")

        Do

            P = Console.ReadLine

            If P = "30 mins" Or P = "30" Then

                PL = 0

            ElseIf P = "60 mins" Or P = "60" Then

                PL = 1

            Else

                Console.WriteLine("Invalid input. Check that you have selected one of the options and have spelt your choice correctly.")

            End If

        Loop Until PL <> -1

​

​

        'Task 1: Output MN

        MN = Math.Floor(H / (0.5 * PL + 1))

        Console.WriteLine("The maximum number of flights in a day for this plane is " & MN & ".")

​

​

        'Task 1: Output MI

        Select Case PL

            Case 0

                MI = T3(PP)

            Case 1

                MI = T6(PP)

        End Select

        Console.WriteLine("The maximum income this plane can earn per day is " & "$" & MI * MN & ".")

​

​

​

        'TASK TWO

​

        Dim RL(2) As Integer                '

​

​

​

​

​

​

​

​

​

​

​

​

        'End Program

        Console.ReadLine()

​

    End Sub

​

End Module

​