VB常用算法（八）查找

1、算法說明
    1) 順序查找
     逐個元素找，如果有，則記錄位置，然后跳出循環(huán)；否則，查找失敗。
     代碼如下：
     Private Sub Search(a(), ByVal Key, Index As Integer)
     Dim i%
     For i = LBound(a) To UBound(a)
     If a(i) = Key Then '找到，將元素下標保存在index中并結(jié)束查找
     Index = i
     Exit Sub
     End If
     Next i
     Index = -1 '若沒找到，則index值為-1
     End Sub
    2) 二分法查找
    順序查找效率低下，當數(shù)組有序排列時，可以使用二分法查找提高效率。
     算法思想：
    代碼如下：
     Private Sub birSearch(a(), ByVal low%, ByVal high%, ByVal Key, index%)
     Dim mid As Integer
     If low > high Then '沒有查找到
     index = -1
     Exit Sub
     End If
     mid = (low + high) \ 2 '取查找區(qū)間的中點
     If Key = a(mid) Then '查找到，返回下標
     index = mid
     Exit Sub
     ElseIf Key < a(mid) Then '查找區(qū)間在上半部分
     high = mid - 1
     Else
     low = mid + 1 '查找區(qū)間在下半部分
     End If
     Call birSearch(a, low, high, Key, index) '遞歸調(diào)用查找函數(shù)
     End Sub