Imports System

'Imports Microsoft.VisualBasic

Imports System.Collections.Generic

​

​

Public Module Module1

​

    Public Sub Main()

​

        Dim lstWords as New List(Of String)()

​

        lstWords.Add("Apple")

        lstWords.Add("Banana")

        lstWords.Add("Cherry")

        lstWords.Add("Dragon Fruit")

        lstWords.Add("Elderberry")

        lstWords.Add("Fig")

        lstWords.Add("Grapefruit")

        lstWords.Add("Honeydew")

        lstWords.Add("Ita Palm")

        lstWords.Add("Jujube")

​

​

        Dim intMinIndex = 0

        Dim intMaxIndex = lstWords.Count()-1

        Dim strWordtoFind as String

        Dim blnWordFound = False

        Dim intIndex As Integer

        Console.WriteLine("Enter word to find")

        strWordtoFind = Console.ReadLine()

        DO WHILE blnWordFound = False AND intMinIndex <= intMaxIndex

            intIndex = (intMinIndex + intMaxIndex) / 2

​

            Console.WriteLine( "Inspecting index " & intIndex )

​

            IF strWordtoFind = lstWords( intIndex ) THEN

                Console.WriteLine( strWordtoFind & " is word no " & intIndex + 1 & " in the list" )

                blnWordFound = True

            ELSEIF strWordtoFind < lstWords( intIndex ) THEN

                intMaxIndex = ( intIndex - 1 )

            ELSE

                intMinIndex = ( intIndex + 1)

            END IF

        LOOP        

        IF blnWordFound = False THEN

            Console.WriteLine( "Not found" )

        END IF

    End Sub

​

End Module