Key=Val(Text1．Text)

  i=1：j=10

  flag=False

  s=””

  Do While i<一i And NOt flag

  mid1=Int(i+(j-i)／3)

  mid2=Int(j-(i-i)／3)

  If Key=a(mid1)Then

    flag=True

  ElseIf Key<a(mid1) Then

    j=mid1-1

  ElseIf Key=a(mid2) Then

    flag=True

  ElseIf Key>a(mid2) Then

    j=mid2+1

    Else

      i=mid1+1

      i=mid2-1

      End If

      s=s&”  ”＆ mid1 ＆ “：”&  mid2

 Loop

 Text2．Text=s

已知数组a(1 To 10)中的数据分别是12，21，34．45，59，63，72，86，94，100，在文本框Text1中输入34，程序运行后文本框Text2中显示的内容是（  ）

删数的算法如下：

⑴如果k>0,则从前往后检测相邻字符，否则，转⑶；

⑵①若所有相邻字符都已非降序，则将串尾k个字符删去，k值置0，转⑴；

②若相邻两数存在逆序（即前一个数>后一个数），则将前一个数删除，k值变化，然后回到⑴；

⑶去掉串首的0，输出结果。

按照上述算法思路，编写了VB程序，功能如下：在文本框Text1中输入数字串，在文本框Text2中输入删数的个数，单击“处理”按钮Command1，在文本框Text3中显示最小的整数。程序运行界面如图所示。

步骤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中显示每次筛选的编号区间和完成筛选的总次数。程序运行界面如图。

Key=int(Rnd*49)*2+1

s=0:i=1:j=10

Do While i<=j

    m=(i+j)\2

    if Key=a(m) Then Exit Do

    if Key<a(m) Then

       j=m-1:s=2*s

    Else

       i=m+1:s=2*s+1

    End if

Loop

数组元素a(1)到a(10)的值依次为“2,6,7,15,20,24,27,43,52,63”，执行该程度段后，s的值不可能为（    ）

Key=Val(Text1.Text)

i=1:j=n*2:flag=False

Do While i+1＜=j And Not flag

    m=(i+j)\2

    If  Then m=m-1

    If a(m)=Key or a(m+1)=Key Then

        Flag=True

    Elseif a(m)＞key Then

    Else

    End if

Loop

If a(i)=Key Or a(j)=Key Then flag=True

If flag Then Label1.Caption=“yes” Else Label1.Caption=“no”

划线处的代码正确的是（     ）