i= 1 :  j =9  :  n =0

key=Val( Textl.Text)

Do While i <= j

m=(i + j) \ 2

If  key = d(m)  Then

Exit Do

j= m - 1

Else

i=m+1

End If

Loop

方框中的正确代码应为（   ）

k = Val(Text1.Text)

i = 1: j = 6: Label1.Caption = ″ ″: f = False

Do While i <= j And Not f

m = (i + j) \ 2

If a(m) = k Then f = True

If a(m) > a(i) Then

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

Else

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

End If

Label1.Caption = Label1.Caption + Str(a(m))

Loop

数组元素a(1)到a(6)的值依次为“58，66，72，24，35，40”，在文本框Text1中输入的值为35，执行该程序段，标签Label1中显示的值是（  ）

数组元素a(1)至a(5)依次为5，22，28，42，55，在a(3)处分成两段，交换位置后为：

旋转数组a的最小元素是5。

数组d(1)至d(5)依次为0，1，1，1，1，在d(5)处分成两段，交换位置后为：

旋转数组d的最小元素是0。

小明依据查找算法思想，设计一个查找旋转数组d最小元素的程序，功能如下：运行程序时，利用“添加”按钮Command1和文本框Text1依次输入旋转数组d的值，在列表List1中显示旋转数组，单击“求解”按钮Command2，在标签Label2中显示旋转数组d最小元素值。运行效果如图1所示，实现该功能的VB程序如下：

图1

Dim n As Integer

Dim d(1 To 100) As Integer '数组 d 存储待排序数据

Private Sub Command1_Click()

'按旋转数组规则将数据存入数组d中，代码略

End Sub

Private Sub Command2_Click()

  Dim mid As Integer, L As Integer, R As Integer

  L = 1: R = n

  mid = L

  Do While d(L) >= d(R)

    If  Then    '改错

      mid = R

      Exit Do

    End If

    mid = (L + R) \ 2

    If d(L)=d(R) And d(mid)=d(R) Then

mid =______________                              '填空

      Exit Do

    End If

    If d(L) < d(mid) Then

      L = mid

ElseIf d(mid) < d(R) Then

      R = mid

    End If

  Loop

Label2.Caption = "最小值为" + Str(d(mid))

End Sub

    End If

  Next i

End Function

i = 1: j = 8: count = 0: f = False

Key = Val(Text1.Text)

Do While i <= j

    m = (i + j) \ 2

If a(m) = Key Then

        count = count + 1

        f = True

End If

If a(m) < Key Then

        i = m + 1

Else

        j = m - 1

End If Loop

数组元素a(1)到a(8)分别为1,2,3,4,5,6,6,7，在Text1输入6，执行该程序段后，下面说法正确的是（  ）

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

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