下面这个程序是我写的二分法查找程序。。。。设了一个数组共三一个数。。。用循环赋值○到30
上面那个是二分查找函数。。。我不知道我写的对不对。。。。但是好像查找的数在数组中的时候就很正常。。。要是
没有。。。。VB6.0就会死掉。。。必需强行关闭才能关掉。。。。不知道 为什么。。。请各位指教

Private Function search$(a() As Integer, key%)
Dim up%, down%, mid%
up = UBound(a)
down = LBound(a)
Do Until down > up
mid = (up + down) \ 2
If a(mid) = key Then
search = Str(mid)
Exit Function
ElseIf a(mid) > key Then
up = mid
Else: down = mid
End If
Loop
search = "没找到哦"


End Function
Private Sub Form_click()
Dim i%, a(30) As Integer, k%
For i = 0 To 30
a(i) = i
Next i
k = Val(InputBox("请输入要查找的数"))
Print search(a, k)

End Sub

else: down=mid+1

我按楼上的改过了。。把up=mid 改成up = mid - 1 把down = mid 改成down = mid + 1
确实可以。。。但我在想。。我要是不改的话，只是每次多加了一个比较的数而已，为什么会导致VB6.0 死掉呢。。。想不通。。。

vb 沒有死掉, 你卻陷入了循環的無限中...
while until ??
---------
而且不是你所說的未賦初值的問題, 只要數組中沒有要找的數, 都會陷入其中
----------
二分查找法, 不妨考慮 3 個元素的情況對比一下