Const  n=6

  Flag=False：key=30

  For i=1 To n-1

    L=i+1：R=n

    Do While L<=R And flag=False

       m=(L+R)＼2

       If d(i)+d(m)<key Then

            L=m+1

       ElseIf d(i)+d(m)>key Then

            R=m-l

       Else

            Label1.Caption=Str(d(i))+" "+Str(d(m))

            flag=True

       End If

    Loop

  Next i

  If Not flag Then Label1.Caption=“没有符合条件的数对”

数组元素d（1）到d（6）的值依次为“5，8，13，17，22，25”。则程序段执行后，标签Label1中显示的内容是（  ）

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

Private Sub Com1_Click( )  

Dim s As String

Dim flag As Boolean

Dim n As Integer， i As Integer

  s = Text1.Text

  _________     ‘①

  flag = True

  i = 1

  Do While i <= n \ 2

    If  Mid(s， i， 1) < >________________ Then      ‘②

       flag = False

       Exit Do       '退出Do循环

    End If

    i = i + 1

  Loop

  If flag Then

     Label2.Caption = s + "是回文字符串"

  Else

     Label2.Caption = s + "不是回文字符串"

  End If

End Sub

注：文中圆括号成对出现，圆括号内不会再套圆括号。

程序运行界面如图所示。

key = Val (Text1. Text)

i =0：j=9：n=0

Do While i<= j

    m=(i+j)\2

    n=n+1

    If key <= a(m) Then

        j=m-1

    Else

        i=m+1

    End If

Loop

s=i

Do While i<9 And a(i)= a (i+1)

    i=i+1

Loop

Label2.Caption = Str(n) +“：”+ Str(i + 1-s)

数组元素a(0~9)的值依次为“3，4，7，8，8，8，8，9， 10，12”。在文本框Text1中输入“8”，点击“查找”按钮后，Labe12 中输出的结果是(    )

d= [1,3,8,15,22,26,28,40,46,61,80]

i=0;j=len(d)-1

while i<=j:

    m= (i+j)//2

    if key<d[m] :

        j=m-1

    else:

若 key 值为 22，程序运行结束后，加框处语句执行的次数为（   ）

q=[0]*6

q[0]=1

head=0; tail=1

while tail<len（q）=1:

    x=q[head]

    if x%2==0：

        q[tail]=x//2

        tail+=1

    else：

        q[tail]=x*2

        q[tail+1]=x*3

        tail+=2

head+=1

程序运行后 , tail-head的值为（   ）