vbs二分法示例查找

2010-2-3 14:24 750 0

摘要: Function vbBinarySearch(vb_Array(),vb_Find) Dim SearchMin Dim ...

关键词： nbsp vbBinarySearch 数组 SearchMax vbArr SearchMin Array vb MsgBox Dim

Function vbBinarySearch(vb_Array(),vb_Find) Dim SearchMin Dim SearchMax Dim i vbBinarySearch = -1 SearchMin = LBound(vb_Array) SearchMax = UBound(vb_Array) Do i =(SearchMax + SearchMin) \ 2 If vb_Array(i) = vb_Find Then vbBinarySearch = i Exit Do End If If vb_Array(i) > vb_Find Then SearchMax = i - 1 Else SearchMin = i + 1 End If Loop While SearchMax >= SearchMinEnd Function Sub Command_Click() Dim vbArr(127) For i = 0 To 127 vbArr(i) = i Next i = vbBinarySearch(vbArr, 69) '在数组中查找69-->e MsgBox Chr(vbArr(i)) i = vbBinarySearch(vbArr, 65) '在数组中查找a的数组序数 MsgBox i i = vbBinarySearch(vbArr, 128) '在数组中查找108 MsgBox i 'i=-1End Sub Command_Click()

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除