Imports System

​

Public Module Module1

    'This code uses an inefficient linear search to look through airport codes and find airport name in a parallel array

    'Write a binary search algorithm to perform this search.

    'Take a screenshot or copy and paste your working code into the Schoology assignment

    Public Sub Main()

        Dim codes() As String = {"AMS", "ATL", "CAN", "CDG", "CGK", "DEL", "DEN", "DFW", "DXB", "FRA", "HND", "ICN", "IST", "LAX", "LHR", "ORD", "PEK", "PVG", "SAR", "SIN"}

        Dim airports() As String = {"Amsterdam Airport Schiphol", "Hartsfield–Jackson Atlanta International Airport", "Guangzhou Baiyun International Airport", "Paris-Charles de Gaulle Airport", "Soekarno-Hatta International Airport", "Indira Gandhi International Airport (Delhi)", "Denver International Airport", "Dallas/Fort Worth International Airport", "Dubai International Airport", "Frankfurt Airport", "Tokyo Haneda Airport", "Seoul Incheon International Airport", "Istanbul Atatürk Airport", "Los Angeles International Airport", "London Heathrow Airport", "O'Hare International Airport (Chicago)", "Beijing Capital International Airport", "Shanghai Pudong International Airport", "Hong Kong International Airport", "Singapore Changi Airport"}

        dim found as boolean = "false"

        console.WriteLine("Enter an airport code to search for")

        dim myInput as string = console.ReadLine

        dim counter as integer = 0

        do

            if myInput = codes(counter) then

                found = "true"

                console.writeline("The airport with code " & myInput & " is " & airports(counter))

            end if

​

            counter += 1

        loop until found = "true" or counter = 19

​

        if found = "false" then

            console.WriteLine("AIRPORT NOT FOUND")

        end if

    End Sub

End Module

​