二分搜尋法 / Visual Basic 6.0/VBA / 程式設計俱樂部
2003/11/20 下午 11:48:50 Dim low As Integer Dim high As Integer Dim mid As Integer low = 0 high = size - 1 Do Until (low > high) mid = (low + high) / 2 If (tpData(mid) = search_s) Then bsLongInt = mid Exit Function...