i= 1 :  j =9  :  n =0

key=Val( Textl.Text)

Do While i <= j

m=(i + j) \ 2

If  key = d(m)  Then

Exit Do

j= m - 1

Else

i=m+1

End If

Loop

方框中的正确代码应为（   ）

i=1:j=7:x=45

Do While i <= j

    m = (i + j) \ 2

    If a(m) = x Then Exit Do    ‘Exit Do 退出 Do 循环

    If a(m) > x Then

        j = m - 1

    Else

        i = m + 1

    End If

Loop

执行完上述代码后，根据最终变量值判断下列表达式，其中成立的是（  ）

k=Val(Text1.Text)

i=1: j=6: Label1.Caption="": f=False

Do While i <=j And Not f

 m=(i+j) \ 2

 If a(m)=k Then f=True

 If a(m) > a(i) Then

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

 Else

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

 End If

 Label1.Caption=Label1.Caption+Str(a(m))

Loop

数组元素a(1)到a(6)的值依次为“58，66，72，24，35，40”，在文本框Text1中输入的值为35，执行该程序段，标签Label1中显示的值是（  ）

程序界面如图所示，在文本框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

key = Val(Text1.Text)

i = 0: j = 9:  s = 0

Do While i <= j

  m = Fix((i + j) \ 2 + 0.5)

  s = s + 1

  If key = a(m) Then

     Label1.Caption = Label1.Caption + "→" + Str(m)

     Exit Do  'Exit Do表示退出循环

  End If

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

  Label1.Caption = Label1.Caption + "→" + Str(m)

Loop

Label2.Caption = "历经" + CStr(s) + "步