i=1:j=10

  Key=Val(Text1．Text)

    If a(m)=Key Then Exit Do      ‘Exit Do表示退出循环

    If Key Mod 2=1 And a (m)Mod 2=0 Then

    ElseIf Key Mod 2=0 And a(m)Mod 2=1 Then

Else

End If

  Loop

  If i>j Then s=“没有找到!”Else s=“位置：”+Str(m)

  Text2.Text=s

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

    ①i=m+1

    ②j=m-1

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

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

依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click（）

    Const n = 6

    Dim a（1 To n）As Integer，flag As Boolean

    Dim i As Integer，j As Integer，m As Integer，key As Integer

    '读取一组正整数，按上述规则存入数组a中，代码略。

    key = VaKText1. Text）

    i = 1

    j = （n + 1） \ 2

    flag = False

    Do While  And Not flag       ‘① 

        m = （i + j） \ 2

        If key = a（m） Then

            flag = True

        ElseIf key< a（m） Then

            j = m - 1

        Else

            i = m + 1

        End If

    Loop

    If Not flag And j > 0 Then

        m =    ‘②

        If key = a（m） Then flag = True

    End If

    If flag Then

        Text2. Text = Str（m）

    Else

        Text2. Text = "找不到"

    End If

End Sub

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

i = 1: j = 6: n = 0: f = False

Key = Val(Text1.Text)

Do While i <= j And Not f

  n = n + 1

  m = (i+j + 1) \ 2

  If Key = a(m) Then f = True

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

Loop

数组元素a（1）到a（6）的值依次为“12，19，27，37，49,55”。若在文本框Text1中输入27，则以上程序段执行后，下列说法不正确的是（   ）

Dim n As Integer     ‘存储随机数的个数

Dim f(1 To 100) As Boolean     ‘f (i)为true时表示随机整数i已经产生过

Dim a(1 To 100) As Integer     ‘依次存放升序排序后的n个随机数

Private Sub Command1_Click()     ‘命令按钮“产生随机数并升序排列”的单击事件

Dim i As Integer

Randomize

For i=1 To 100

 f(i)=False

Next i

n=Val(Text1. Text)

For i=1 To n

 t=Int(Rnd * 100+1)

 Do While f(i)=True

  t=Int (Rnd * 100+1)

 Loop

 {#blank#}1{#/blank#}

Next i

j=0

For i=1 To 100     ‘实现排序并输出

 If f(i)=True Then

  {#blank#}2{#/blank#}

  a(j)=i

  List1.AddItem Str(i)

 End If

Next i

End Sub

Private Sub Command2_Click()     ‘命令按钮“查找”的单击事件

Dim key As Integer

key=Val(Text2. Text)

If key <=a(1) Then Label3. Caption=Str(a(1)) : Exit Sub

If key >=a(n) Then Label3. Caption=Str(a(n)) : Exit Sub

L=1: R=n

Do While L <=R     ‘找到与key较为接近的两个数a(R)和a(L)

 m=(L+R) \2

 If key <=a(m) Then

  R=m-1

 Else

  L=m+1

 End If

Loop

If{#blank#}3{#/blank#}Then      ‘在a(R)和a(L)中选出更接近key的数

 Label3. Caption=Str(a(R))

Else

 Label3. Caption=Str(a(L))

End If

End Sub