Cooding program binary search pada visual basic studio

Function arrayFind(theArray() As Integer, target As Integer) As Boolean
Dim low As Integer
low = 0
Dim high As Integer
high = UBound(theArray)
Dim i As Integer
Dim result As Boolean

Do While low <= high
i = (low + high) / 2
If target = theArray(i) Then
arrayFind = True
Exit Do
ElseIf target < theArray(i) Then
high = (i – 1)
Else
low = (i + 1)
End If
Loop

If Not arrayFind Then
arrayFind = False
End If
End Function

semoga membantu