Key= Val(Text1.Text)
i=1： j=10： n=0
Do While i<=j
m=(i+j)\2
n=n+1
If a(m) ： > Key Then
j=m-1
Else
i=m+ 1
End If
Loop
Text2.Text=str(n)
数组元素a(1)到a(10)的值依次为“2，3，5，8，9，10，13，17，19，25”。在文本框Text1中输入待查找的整数，执行该程序段，则文本框Text2中显示3，待查找数不可能是（ ）
Const n=200 '报名人数
Const nz=10 '专业数
Dim zybh(1 To n) As Integer， zyname(1 To n) As String， sname(1 To n) As String， zymark(1 To n) As Integer
Dim b(1 To nz) As Integer '存储每个专业的人数
Dim c(1 To nz) As Integer
Dim d(1 To n) As Integer
Dim q(1 To n) As Integer
Private Sub Form_ Load()
'本过程读取专业编号、专业名称、姓名和面试分的数据分别存储在数组zybh，zyname，sname， zymark中，并在List1中显示，代码略
End Sub
Private Sub Command1_ Click( )
Dim i As Integer， j As Integer， k As Integer， t As Integer， pos As Integer
For i=1 To nz
b(i)=0
Next i
For i=1 To n
d(i)=0 ： q(i)=0
Next i
For i=1 To n
k= zybh(i)
b(k)=b(k) + 1
Next i
k=1
For i=1 To nz
c(i)=k
Next i
For i=1 To n-1
For j=i+1 To n
If zybh(i)= zybh(j) And zymark(i) < <> zymark(j) Then
If Then
d(j)=d(j)+1
Else
d(i)=d(i)+1
End If
End If
Next j
Next i
For i=1 To n
j=0
Do While
j=j+1
Loop
q(c(zybh(i))+d(i)+j)=i
Next i
For i=1 To n
List2.AddItem "" & zybh(q(i)) & " " & zyname(q()) & " " & sname(q(i))& "" & zymark(q(i) & "" & d(q(i)) + 1
Next i
End Sub
