Imports System

Public Module Module1

    Public Sub Main()

​

        Dim Plane(3) as String

        Plane(1) = "2 Seater Plane"

        Plane(2) = "4 Seater Plane"

        Plane(3) = "Historic Plane"

​

        Dim PlaneM as String

        Dim PlanePrices(6) as Decimal

        Dim PTime as String

        Dim Nflights as integer

​

        console.writeline("Enter Plane. Choose from | " & Plane(1) & ", " & Plane(2) & ", " & Plane(3) & " |")

    console.writeline("NOTE: Input must be entered exactly as written above ")

​

        Do

        PlaneM = Console.readline()

        If PlaneM = Plane(1)  Then 

            PlanePrices(1) = 1 

        Else If PlaneM = Plane(2) Then 

                PlanePrices(2) = 3 

            Else If PlaneM = Plane(3) Then

                    PlanePrices(3) = 5

                        End If  

                Loop Until PlaneM = Plane(1) or PlaneM = Plane(2) or PlaneM = Plane(3)

                console.writeline("Enter Flight Time, 30 or 60")

                Do

                PTime = console.readline()

                Loop Until Ptime = 30 or 60

                If PTime = 30 Then

                    console.write("")

                Else If Ptime = 60 Then 

                        PlanePrices(1) = 2 & PlanePrices(2) = 3 & PlanePrices(3) = 6

                    End If

                    If  PlanePrices(1) = 1 Then

                        Nflights = 10

                    Else If PlanePrices(1) = 2 Then

                        Nflights = 7

                            Else If PlanePrices(2) = 3 Then

                        Nflights = 10

                                Else If PlanePrices(2) = 4 Then

                        Nflights = 7

                                    Else If PlanePrices(3) = 5 Then

                        Nflights = 10

                                        Else If PlanePrices(3) = 6 Then

                        Nflights = 7

                                        Else console.writeline("inputs done wrong.")

                                        End If

                                        Console.writeline("Number of flights = " & Nflights)

                                        console.writeline("Maximum income earnt = " & (Nflights * 100))

    End Sub

End Module