'Visual Basic 2010 Recursie Procedures en Functies
Module Exercise4Task
    Sub Main()
        Dim numbers As Integer() = {1, 3, 4, 7, 9, 10, 11, 15, 18, 20}
        '
        Dim number, lowerbound, upperbound As Integer
        Dim found As Boolean
        '
        number = 15
        lowerbound = 0
        upperbound = 9
        'found = BinarySearch(number, numbers, lowerbound, upperbound)
        Console.WriteLine(found)
        '
        number = 18
        lowerbound = 0
        upperbound = 7
        'found = BinarySearch(number, numbers, lowerbound, upperbound)
        Console.WriteLine(found)
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.