二分查找的简单例题 VB二分查找代码，求解？
VB二分查找代码，求解？Private Sub Command1_Click()Dim I， J， D(10)， KeyFor I = 1 To 10D(I) = InputBox("Num:" &a
VB二分查找代码，求解？
Private Sub Command1_Click()Dim I， J， D(10)， KeyFor I = 1 To 10D(I) = InputBox("Num:" & I)Print D(I)NextKey = InputBox("Key:")For I = 1 To 10If Val(D(I)) = Val(Key) ThenPrint IExit ForEnd IfNextEnd Sub