VB常用算法8查找

1、VB常用算法-查找1、順序查找 逐個元素找，如果有，則記錄位置，然后跳出循環(huán)；否則，查找失敗。 代碼如下： 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 找到，將元素下標(biāo)保存在index中并結(jié)束查找 Index = i Exit Sub End If Next i Index = -1 若沒找到，則index值為-1 End Sub 2、二分法查找 順序查找效率低下，當(dāng)數(shù)組有序排

2、列時(shí)，可以使用二分法查找提高效率。 算法思想：代碼如下： 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 取查找區(qū)間的中點(diǎn) If Key = a(mid) Then 查找到，返回下標(biāo) index = mid Exit Sub ElseIf Key 0 Then Print

3、所查找元素為數(shù)組第; ind; 個元素 Else Print 所查找元素在數(shù)組中不存在 End IfEnd Sub3、實(shí)戰(zhàn)練習(xí) 完善程序填空題（2002春二（9） 在程序所在目錄的stu.txt文件中以下述格式保存著學(xué)生姓名及班號信息。本程序的功能是：讀取該文件中的數(shù)據(jù)，再利用InputBox輸入要查找的學(xué)生姓名，通過順序查找，給出找到或找不到的信息。附圖是某同學(xué)被找到時(shí)顯示的信息窗口。 張文，機(jī)械01 李明，機(jī)械01 王文卉，機(jī)械01 何宇宙，電子02Option ExplicitOption Base 1Private Sub command1_click() Dim stu() As S

4、tring, 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(輸入欲查找的學(xué)生姓名：) 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 =