t = "": i = 1 : j = 9 : f = False

Do While i <= j And Not f

    m = (i + j) \ 2

    t = t + Str(m)

  If a(m) = key Then

        t =t +“#”

        f = True

    ElseIf a(m) > key Then

        i = m + 1

        t = t + "→"

    Else

        j = m - 1

        t = t + "←"

    End If

Loop

数组元素 a(1)到 a(9)的值依次为“68、56、52、36、32、28、26、22、20”，执行该程序段，t的值可能是（  ）

步骤1：如果待筛选的玻璃球个数<3，则认定已经找出了这个玻璃球(认定方法参照步骤2中描述)，停止筛选，并输出经过的筛选总次数;否则，重复执行步骤2。

步骤2：按编号依次将玻璃球均分成3份，如果有多余的放入第3份中;比较第1、2份的玻璃球重量：

①如果第1份等于第2份的重量，则选取第3份的玻璃球作为下一次筛选的对象;

②如果第1份小于第2份的重量，则选取第1份的玻璃球作为下一次筛选的对象;

③如果第1份大于第2份的重量，则选取第2份的玻璃球作为下一次筛选的对象;

重复执行步骤1。

例如：第1次筛选的小球编号区间是1~100，均分成三份的待称重小球编号分别是1~33、34~66、67~100；第2次则选取以上3份中的一份进行再筛选、再均分……直至找到。

解决上述问题的VB程序功能如下：运行程序，在列表框List1中显示100组数据，分别代表每个编号及对应的小球重量(其中有且只有一个小球的重量与其他小球不同)，单击“筛选”按钮Command1，在列表框List2中显示每次筛选的编号区间和完成筛选的总次数。程序运行界面如图。

 Dim a(1 To 10) As Integer

 Private Sub Form_Load()

  a(1)=2:a(2)=3:a(3)=3:a(4)=3:a(5)=3

  a(6)=6:a(7)=7:a(8)=7:a(9)=8:a(10)=9

 End Sub

 Private Sub Command1_Click()

 Dim key As Integer, i As Integer, j As Integer

 Dim m As Integer, p As Integer

  key=Val(Text1.Text)

  i=1: j=10

  Do While i <=j

   m=(i+j) \ 2

   If a(m)=key Then

    p=m

    j=m-1

   Else If key < a(m) Then

    j=m-1

   Else

    i=m+1

   End If

  Loop

  Text2.Text=Str(p)

End Sub

程序运行时，在文本框Text1中输入3，单击按钮，文本框Text2显示的内容是（  ）

import random

a = [1,3,4,6,6,6,9,9,11,12]

key = random.randint(2,5) * 2

i,j = 0,9

while i <= j :

    m = (i + j) // 2

    if key < a[m]:

        j = m - 1

    else:

        i = m + 1

print(j)

执行该程序段后，输出的结果不可能是（   ）

A ．2                  B ．3                  C ． 5                  D ． 7