VB上机题2.docVIP

------------------------------------------------------- 本程序利用二分法查找某数字n是否在已排序的数列当中， 若在其中则输出其在数列中的位置，否则输出-1。 ------------------------------------------------------- Option Base 1 Sub birsearch(a(), ByVal low%, ByVal high%, ByVal key, index%) Dim mid As Integer mid = (low + high) \ 2 If a(mid) = key Then **********SPACE********** 【?】 Exit Sub ElseIf low high Then index = -1 Exit Sub End If If key a(mid) Then **********SPACE********** high = 【?】 Else low = mid + 1 End If **********SPACE********** Call birsearch(a(), low, high, 【?】