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

  i=1．j=6：flag=False：key=56

  Do While i<=i

    m=i+(j-i)＼2

    If a(m)<=key Then

       i=m+1

    Else

       j=m-1：flag=True

    End If

  Loop

  If flag Then t=i Else t=-1

数组元素a(1)到a(6)的值依次为10，18，25，30，45，56。该段程序运行后，t的值是（  ）

程序界面如图所示：

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=12：k=0：s=””

key= Va1(TextI Text)： c=N： flag= False

Do While i<= j And flag= False

m=(i1+j+1)\2：k=k+1

If key= a(m) Then c=Y： flag=True

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

s=s& Str(a(m))

Loop

Text2 Text s： Text3 Text= c

数组a(1)到a(12)的值依次为“991．85．76，68．61，53，42．34，27，20，13”，执行该程序段后，下列说法正确的是（  ）

Const n = 100

Dim a(n) As Integer

Private Sub Form_Load()

′产生n个2位正整数，并显示在文本框Text1中，代码略

End Sub

Private Sub Command1_Click( )

    Dim i As Integer, j As Integer, left As Integer

    Dim right As Integer, m As Integer, t As Integer

    i = n-1

    Do While i > = 1

        ________

        right = n

        t = a(i)

        Do While left < = right

            m = Int((left + right)/2)

            If a(m) = t Then right = m: Exit Do

            If a(m) < t Then

                left = m + 1

            Else

                right = m-1

            End If

        Loop

        For j = i To right-1

            a(j) = a(j + 1)

        Next j

        ________________

        i = i-1

        s = “”

        For j = 1 To n

            s = s + Str(a(j))

        Next j

        List1.AddItem s

    Loop

End Sub