i=1：j=8：s="  "  ‘数组a下标为从1到8

  key=Val(Text1．Text)

  Do While i<=j

    m=(i+j)＼2

    s=s+Str(m)

    If a(m)=key Then Exit Do

    If a(i)<a(m)Then

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

    Else

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

    End If

  Loop

  Text2．Text=s

数组元素a（1）至a(8)的数据分别为“3，4，5，6，7，8，1，2”，运行该程序段，若在文本框Text1中输入1，则在文本框Text2中显示（  ）

实现上述功能的VB程序如下，请回答下列问题：

min=a(1)

n=Val(Text1.Text)

For i=n to 2 step -1

 If a(i)<min Then

min=a(i)

Next i  

Text2.Text=Str(min)

假设在文本框Text1中输入“8”，则文本框Text2输出的值是（  ）

程序界面如图所示，在文本框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 = Int(Rnd * 49) * 2 + 1

s = 0: i = 1: j = 10

Do While i <= j

m = (i + j) \ 2

If Key = a(m) Then Exit Do If Key < a(m) Then

j = m - 1: s = 2 * s

Else

i = m + 1: s = 2 * s + 1

End If Loop

数组a(1)到a(10)的值依次为“2,6,7,15,20,24,27,43,52,63”，执行该程序段后，s的值不可能为（  ）