i = 1: j = 7: x = 55

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

Loop

经过上述代码查找后，下列表达式正确的是(   )

为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中

显示经过上述排序算法后的数据，运行结果如图 b 所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer        '生成 n 个随机数，存储在 a 数组，代码略

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

For i = 2 To n

t = a(i)  :   j = i - 1

Do  While  t < a(j)

 a(j + 1) = a(j) j = j – 1

If     Then Exit Do  ①

Loop

       ②

Next i

For i = 1 To n

 List2.AddItem Str(a(i))

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

例如：当明文M=HelloWorld，密钥K=abc时，密文C=HfnlpYosnd。运算过程如下所示：

明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

依据上述算法描述设计了如下VB程序。请回答下列问题：

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)的值是（  ）

L=1: R=10: n=10: key=78

Do While L<=R

    m=Fix((L+R)/2)

    If  Then

        R=m-1

    Else

        L=m+1

    End If

Loop

For i=1 To R

    List1.Additem Str(a(i))

Next i

数组元素a(1)到a(10)的值依次为86,78,78,77,73,69,60,54,54,51，若执行该程序段后，列表框List1中输出的数据个数为3，则方框处的代码为（     ）