二分查找的簡單例題 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