VB常用算法8 查找.doc

VB常用算法-查找1、顺序查找 逐个元素找，如果有，则记录位置，然后跳出循环；否则，查找失败。 代码如下： Private Sub Search(a() as integer, ByVal Key as integer, 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、二分法查找 顺序查找效率低下，当数组有序排列时，可以使用二分法查找提高效率。 算法思想：代码如下： Option ExplicitPrivate Sub birSearch(a() As Integer, 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 0 Then Print 所查找元素为数组第; ind; 个元素 Else Print 所查找元素在数组中不存在 End IfEnd Sub3、实战练习 完善程序填空题（2002春二（9） 在程序所在目录的stu.txt文件中以下述格式保存着学生姓名及班号信息。本程序的功能是：读取该文件中的数据，再利用InputBox输入要查找的学生姓名，通过顺序查找，给出找到或找不到的信息。附图是某同学被找到时显示的信息窗口。 张文，机械01 李明，机械01 王文卉，机械01 何宇宙，电子02Option ExplicitOption Base 1Private Sub command1_click() Dim stu() As String, glass() As String, i As Integer Dim n As Integer, name As String, k As Integer Open App.Path & stu.txt For Input As #11 Do While ( 1 ) ( 2 ) ReDim Preserve stu(n), glass(n) Input #11, stu(n), glass(n) Loop name = InputBox(输入欲查找的学生姓名：) Call search(name, stu, k) If k = n Then MsgBox ( 3 ) Else MsgBox 无此人。 End If Close #11End SubPrivate Sub search(name As String, stu() As String, k As Integer) Dim i As Integer For i =