Dim n As Integer，a(100)As Integer，max As Integer

  Private Sub Form_Load()      ‘读取原始数据

    Dim conn As New ADODB．Connection．rs As New ADODB．Recordset

    Dim i As Integer

  conn．ConnectionString=”Provider=Microsoft．ACE．OLEDB．12．0；Data

  Source=”&App．Path&。”＼student．accdb”

    conn．Open

    Set rs．ActiveConnection=conn

    rs．Open“SELECT*FROM DF”

    i=0：max=0

    Do While Not rs．EOF

      i=i+1：n=i

      a(i)=         ‘①

      If a(i)>max Then max=a(i)

      rs．MoveNext

    Loop

    rs．Close：conn．Close

  End Sub

  Private Sub Command1_Click()         ‘去重复值排序

    Const t=max

    Dim i As Integer，b(t)As Integer

    For i=1 To n

      B(a(i))=b(a(i))+1

    Next i

    For i=1 To t

       If  Then List1．AddItem Str(t-i+1)       ‘②

    Next i

  End Sub

i = 1: j = 6: c = 0: f = False

key = Val(Text1.Text)

Do While i<= j And Not f

  c = c + 1

  m = Int((i + j) / 2)

  If key = a(m) Then f = True

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

Loop

数组元素a(1)到a(6)依次为“8,23,25,32,46,57”，文本框Text1的内容为“32”。执行程序后，下列说法不正确的是（   ）

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