当文本框Text1中输入的值为32时，程序运行结束后变量c的值为（  ）

 Dim a(1 To 10) As Integer

 Private Sub Form_Load()

  a(1)=2:a(2)=3:a(3)=3:a(4)=3:a(5)=3

  a(6)=6:a(7)=7:a(8)=7:a(9)=8:a(10)=9

 End Sub

 Private Sub Command1_Click()

 Dim key As Integer, i As Integer, j As Integer

 Dim m As Integer, p As Integer

  key=Val(Text1.Text)

  i=1: j=10

  Do While i <=j

   m=(i+j) \ 2

   If a(m)=key Then

    p=m

    j=m-1

   Else If key < a(m) Then

    j=m-1

   Else

    i=m+1

   End If

  Loop

  Text2.Text=Str(p)

End Sub

程序运行时，在文本框Text1中输入3，单击按钮，文本框Text2显示的内容是（  ）

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10    ‘数组元素的总数

Dim a(1 To n) As Integer

Private Sub Form_Load()

‘该过程对数组a进行赋值,并在列表框List1中显示，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer,flag(1 To n) As Boolean

‘flag(i)记录第i个元素是否重复出现

For i = 1 To n      ‘flag(i)=true开始假设都只出现1次

 flag(i) = True

Next i

For i = 1 To n

 If flag(i) Then

  For j = i + 1 To n

    If Then flag(i) = False: flag(j) = False    ‘①

  Next j

 End If

Next i

For i = 1 To n

  If Then List2.AddItem Str(a(i))    ‘②

Next i

End Sub

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

实现上述功能的VB代码如下，请在横线处填入合适代码。

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

Dim f(1To100)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(t)=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

i=1:j=1000:flag=True:p=0

key=val(Text1.Text)

Do While i<=j And flag

    m=(i+j)\2

    p=p+1

    if a(m)=key Then flag=False

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

Loop

数组元素a(1)到a(1000)中存放着升序排列的数据。下列说法正确的是（   ）