题型:单选题 题类:模拟题 难易度:困难
Dim d(1 To 9) As Integer, s As String
Dim L As Integer, R As Integer, M As Integer, key As Integer
L = 1: R = 9
s = "": key =13
Do While L <= R
M = (L + R + 1) \ 2
If d(M) = key Then L = 10
If d(M) < key Then L = M + 1 Else R = M - 1
s = s + Str(M)
Loop
试题篮