VB常用算法（八）查找
文章作者 100test 发表时间 2007:03:10 18:26:12
来源 100Test.Com百考试题网
1、算法说明
1) 顺序查找
逐个元素找，如果有，则记录位置，然后跳出循环；否则，查找失败。
代码如下：
Private Sub Search(a(), ByVal Key, Index As Integer)
Dim i%
For i = LBound(a) To UBound(a)
If a(i) = Key Then 找到，将元素下标保存在index中并结束查找
Index = i
Exit Sub
End If
Next i
Index = -1 若没找到，则index值为-1
End Sub
2) 二分法查找
顺序查找效率低下，当数组有序排列时，可以使用二分法查找提高效率。
算法思想：
代码如下：
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 取查找区间的中点
If Key = a(mid) Then 查找到，返回下标
index = mid
Exit Sub
ElseIf Key < a(mid) Then 查找区间在上半部分
high = mid - 1
Else
low = mid 1 查找区间在下半部分
End If
Call birSearch(a, low, high, Key, index) 递归调用查找函数
End Sub
相关文章
VisualBasic内嵌汇编语言解决方案
提醒二级VB考试机试注意事项
VB常用算法（八）查找
VB常用算法（七）数组元素插入删除
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛