Thomas Risi Softwareentwicklung

QuickFind

Diese Funktion führt eine binäre Suche in einem (sortierten) Array durch. Der Rückgabewert ist entweder True (gefunden) oder False (nicht gefunden).

Option Explicit ' AData ist das Array, das die Daten hält. Private Function QuickFind(ByVal Begriff As String) As Boolean Dim i&, mi&, le&, ri& QuickFind = False le = 0 ri = UBound(AData) Do mi = (le + ri) \ 2 If Begriff < AData(mi) Then ri = mi - 1 Else le = mi + 1 End If Loop Until (AData(mi) = Begriff) Or (le > ri) If AData(mi) = Begriff Then QuickFind = True End If End Function

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)