L = 1: R = 10: Key = 21

Do While L <= R

    m = (L + R) \ 2

    If a(m) <= Key Then

        L = m + 1

    Else

        R = m - 1

    End If

Loop

数组元素 a(1)到 a(10)的值依次为“ 3， 9， 21， 21， 21， 21， 27， 28， 39， 40”，执行该程序段，变量R、a(R)的值分别是（  ）

key = Val(Text1.Text)

i = 1: j = 10

Do While i <= j

  m = (i + j) \ 2

  If  Then

    Text2.Text = "在第" + Str(m) + "个"

    Exit Do  'Exit Do 表示退出循环

  ElseIf  Then

     i = m + 1

  Else

  End If

Loop

If i >j Then Text2.Text = "找不到目标"

上述程序中方框处可选语句为：

①i = m - 1     ②j = m – 1   ③d(m) = key   ④d(m) > key   ⑤d(m) < key

则(1)、(2)、(3)处语句依次是（  ）

i=1:j=7:x=“high”

Do While i <=j

  m=(i+j)\2

  If a(m)=x Then Exit Do

  If a(m) > x Then

    j=m-1

 Else

   i=m+1

 End If

Loop

执行完上述代码后，根据最终变量值判断下列表达式，其中成立的是（  ）

Private Sub Command1_Click()

Dim a(1 To 6) As Integer, b(1 To 6) As String, i as integer, j as integer

Dim c As String, k As Integer, tmp1 As Integer, tmp2 As String

s=text1.text

i = 1: k = 1: tmp1 = 0: tmp2 = ""

Do While i <= Len(s)

      c = Mid(s, i, 1)

      If c = "," Then

         a(k) = tmp1: b(k) = tmp2

         tmp1 = 0: tmp2 = ""

              ①    

      Else

        If  Then 

           tmp2 = tmp2 + c

        Else

         tmp1=tmp1*10+val(c)

        End If

      End If

      i = i + 1

    Loop

    For i = 1 To 5

      For j = 1 To 6 - i

        If a(j) > a(j + 1) Then tmp1 = a(j): a(j) = a(j + 1): a(j + 1) = tmp1

    If Len(b(j)) > Len(b(j + 1)) Or      ②       Then

          tmp2 = b(j): b(j) = b(j + 1): b(j + 1) = tmp2

        End If

      Next j

    Next i

    For i = 1 To 6

      List1.AddItem Str(a(i)) + b(i)

    Next i

    End Sub

key=Va 1(Text 1．Text)

i=1

j=9

Text 2.Text=""

Do While i<=j

   If key=a(m) Then Exit Do

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

   Text 2.Text=Text 2.Text+“”+Str(a(m) )

Loop

数组元素a(1)到a(9)的值依次为88，75，70，68，61，58，55，50，43，文本框Text 1中输入的值是58，执行该程序段，文本框Text 2中显示的是61，50，55，则方框处的代码应为（  ）