n=0

  i=1

  j=6

  key=Val(Text1．Text)

  f=False

  Do While i<=j And Not f

    m=(i+j+1)＼2

    n=n+1

    If key=d(m)Then

       f=True

    ElseIf key>d(m)Then

       i=m-1

    Else

      i=m+1

    EndIf

  Loop

数组元素d（1）到d（6）的值依次为“87，72，53，41，29，18”，若该程序段运行结束后，n的值为2，则key的值是（  ）

    Dim a(1 To 10)As Integer

    Dim i As Integer，j As Integer，m As Integer，flag As Boolean

    Dim key As Integer，n As Integer，C As Integer，d As Integer

    i=1：J=10：m=0：flag=False

    key=Val(Text1．Text)

    Do While i<=J And Not flag

        If key<a(i)Or key>a(j)Then n=-1：Exit Do  未找到退出

        If a(i) ＜＞a(j) Then

            c=key-a(i)：d=a(j)一a(i)

            m=i+Int(c*(j-i)／d)

        Else

            m=i

        End If

        If key=a(m)Then flag=True：n=m

        If key>a(m)Then i=m+1

        If key<a(m)Then j=m-1

    Loop

    If flag=False Then n=-1

其中数组元素a(1)到a(10)分别为“15，25，37，40，63，70，87，90，92，96”，下列说法错误的是（  ）

Dim a(1 To 10) As Integer

a(1) = 1: a(2) = 2

For i = 3 To 10

    a(i) = a(i - 1) + a(i - 2)

Next i

i = 1: j = 10: f = False

Do While i <= j And f = False

    num = num + 1

    m = (i + j) \ 2

    If num = a(m) Then

        f = True

    ElseIf num < a(m) Then

        j = m - 1

    Else

        i = m + 1

    End If

    Text1.Text = Text1.Text + Str(m)

Loop

该程序段执行结束后，文本框Text1中显示的内容是（  ）

Dim a(1 To 6)As Integer, I AS Integer, maxi As Integer

a(1)=12：a(2)=8：a(3)=14：a(4)=13：a(5)=12：a(6)=11

Maxi=1

For i=2 To 6

If a(i)>a(maxi)Then maxi=i

Next i

a(1)=a(1)+a(maxi)：a(maxi)=a(1)-a(maxi)：a(1)=a(1)-a(maxi)

执行该程序段后，数组元素a(1)~a(6)的值是（  ）

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

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

n=5：k=3

L=3：R=10     ‘L值可以为数组元素最大值，R可以为数组所有元素和

Do While L+1<R

    m=(L+R)\2

    t=0：s=0

    For i=1 To n

        If t+a(i)>=m Then

            s=s+1

            t =a(i)

        Else

            t =t+a(i)

        End If

    Next i

    If t>0 then s=s+1

    If s<=k Then①  Else  ②

Loop

Label1.Caption=“最小值为”&Str(L)

要使程序实现上述算法思想，则代码中①②处应为（  ）