Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim found as boolean

        dim list() as integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}

        dim searchval as integer

        dim lowerbound as integer

        dim upperbound as integer

        dim mid as integer

        'dim choice as string

        found = false

        lowerbound = 0

        upperbound = 10

        'for count = 1 to 10

            'console.writeline("enter array value")

            'list(count) = console.readline()

        'next

​

        console.writeline("enter value to be searched")

        searchval = console.readline()

        do

            mid =(lowerbound + upperbound) \ 2

            console.writeline(mid)

            if searchval = list(mid) then

                found = true

            end if

​

            if searchval > list(mid) then

                lowerbound = mid

            end if

​

            if searchval < list(mid) then

                upperbound = mid 

            end if

        loop until(found = true) or (lowerbound = upperbound)

​

        if found = true then

            console.WriteLine("search value has been found")

        else

            console.writeline("not found")

        end if

    End Sub

End Module

​