Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim deth(n.n) as integer

        dim r as new random

        console.writeline("Unsorted:")

        for i = 1 to n.n

            deth(i) = r.next(1, n.n + 1)

            console.writeline(deth(i))

        next

​

        console.writeline("Sorted:")

        die(deth)

        for i = 1 to n.n

            console.writeline(deth(i))

        next

console.writeline(find(deth))

    End Sub

​

    public sub die(array() as integer)

        dim temp as integer

        for i = 2 to n.n

            Dim n as integer = i

            while array(n) < array(n - 1) and n <> 1

                temp = array(n - 1)

                array(n - 1) = array(n)

                array(n) = temp

                n = n - 1

            end while

        next

    end sub

​

public function find(array() as integer) as decimal

dim inp as integer

dim high as integer = n.n

dim low as integer = 1

dim mid as integer

console.writeline("Enter number to search for")

do

inp = console.readline()

loop until inp >= 1 and inp <= n.n

do

mid = math.floor((high + low) / 2)

select case inp

case > array(mid)

low = mid + 1

case < array(mid)

high = mid - 1

case = array(mid)

return mid

end select

loop until low - high = 1 or low - high = -1

select case inp

case = low

return low

case = high

return high

case else

return low + 0.5

end select

end function

public class n

public shared n as integer = 100

end class

​

End Module