VB程序运行界面如图2所示，在文本框Text1中输入查询的等级，单击“查询”按钮Command1，在列表框List1中显示所有该等级的学生学号和姓名，并按照学号从小到大排序，并在标签Label2处显示学生的人数，如果人数为0,则在列表框中显示“没有该等级的学生”。按此要求编写程序如下，在下划线处填上合适的代码。

Private Sub Command1_Click()

Dim stuna(1 To 100) As String '存放学生姓名的数组定义为stuna

Dim stunum(1 To 100) As String '存放学生学号的数组定义为stunum

Dim i As Integer, j As Integer, n As Integer

Dim t As String

Dim cn As New ADODB.Connection       '连接数据库

Dim rs As New ADODB.Recordset

Dim strSQL As String

cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\stugrade.accdb "

cn.Open

strSQL = "select * from      ①       where 语文等级='" + Text1.Text + "'"

Set rs.ActiveConnection = cn

rs.Open strSQL

n = 0

Do While Not rs.EOF

          ②    

   stuna(n) = rs.Fields("姓名").Value

   stunum(n) = rs.Fields("学号").Value

   rs.MoveNext       

Loop

rs.Close

cn.Close

Set rs = Nothing

Set cn = Nothing

List1.Clear '清除列表框

If n = 0 Then

   List1.AddItem "没有该等级的学生"

Else

   For i = 1 To n - 1       '按姓名排序

      For j = n To    ③    Step -1

         If        ④          Then      

            t = stunum(j): stunum(j) = stunum(j - 1): stunum(j - 1) = t

            t = stuna(j): stuna(j) = stuna(j - 1): stuna(j - 1) = t

         End If

     Next j

   Next i

   For i = 1 To n

      List1.AddItem stunum(i) + "  " + stuna(i)

   Next i

   Label2.Caption = "该等级的学生共有" + Str(n) + "名"

End If

End Sub

其中①处填入          ；②处填入           ；③处填入           ；④处填入           

Dim i As Integer,j As Integer,Key As Integer,m As Integer,s As String

i=1: j=7: s=“”:flag=False

Key=Int(Rnd()* 50)

Do While i <=j And Not Flag

 m=(i+j)\2

 If Key=a(m) Then

  Flag=True

 ElseIf Key < a(m) Then

  j=m-1

 Else

  i=m+1

 End If

 s=s+Str(a(m))

Loop

Text1.Text=s

数组中a(1)到a(7)的值依次为“23，33，45，56，68，77，89”，则Text1 中显示的内容不可能是（  ）

n=0: i= 1:j-6

key = Val(Text1.Tex1)

Do While i<=j

  m=(i+j)\2

  n=n+1

  If key = d(m) Then Exit Do

  If key> d(m) Then j=m-1 Else i=m+ 1

Loop

d(1)到d(6)的值依次为"88，77，53，47，39，23"，并且输入key值为40，下列说法正确的是（  ）

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

    End if

    if Key<a(m) Then j=m-1  Else  i=m+1

    Label1.Caption=Label1.Caption+“→”+Str(m)

Loop

Label2.Caption=“经历”+ Str(s)+“步”

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的值不可能为（    ）

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的值为（   ）