n=0

  i=1

  j=6

  key=Val(Text1．Text)

  f=False

  Do While i<=j And Not f

    m=(i+j+1)＼2

    n=n+1

    If key=d(m)Then

       f=True

    ElseIf key>d(m)Then

       i=m-1

    Else

      i=m+1

    EndIf

  Loop

数组元素d（1）到d（6）的值依次为“87，72，53，41，29，18”，若该程序段运行结束后，n的值为2，则key的值是（  ）

i=1 : j=8 : s=""

key=Text1.Text Do While i<=j

   m=(i+j)\2

If key=a(m) Then

      s=s+"M"

Exit Do

Elseif Key > a(m) Then j=m-1: s=s+"L"

Else

      i=m+1: s=s+"R" End if

Loop Text1.Text=s

数组元素a(1)到a(8)的值依次为“tiger,snake,sheep,rabbit,pig,mouse,monkey,dog”,若该程序段执行后，文本框Text1中显示的内容不可能是（  ）

a(1)=2

For i=2 to 7

a(i)=a(i-1)*2-1

Next i

i = 1 : j = 7

Do While i <= j

m =（i + j）\ 2

If a（m）= Key Then Exit Do

If Key < a（m） Then j = m - 1 Else i = m + 1

Loop

若key的值为15，则程序执行结束后，j的值为（  ）

程序界面如图所示，在文本框Text_1中输入原始字符串，在文本框Text_2中输入需要删除的字符，单击“删除此字符”按钮(Command1)后，在文本框Text_3中输出处理后的结果。

解决此问题的算法流程图如图所示，相应的Visual Basic程序如下：

Dim p As String,k As String

Private Sub Command1_Click()

Dim s As Integer,result As String,flag As Boolean

result=“”

p=Text_1.Text

k=Text_2.Text

For s=1 To Len(p)

  flag=f(s)

  If Not flag Then

   result=result+①   

  End If

Next s

②   

End Sub

Function f(s As Integer)As Boolean

  If Mid(p,s,1)=k Then f=True

End Function

实现上述功能的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