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

Dim num As Integer         ‘变量num存储数据库实际的记录数

Dim book(1 to 5 000)As String

Dim content(1 To 5 000)As String，content1(1 To 5 000)As String  ‘存储类别内容

Dim sales(1 To 5 000)As Long，sales1(1 To 5 000)As Long     ‘存储销售量

Private Sub Form Load( )

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

  Dim strSQL As String

  conn. ConnectionString="Provider=Microsoft. ACE. OLEDB. 12. 0; Data Source="＆App. Path&"＼major. accdb"

  conn. Open

  strSQL="SEl．ECT*FROM count"

  Set rs．ActiveConnection=conn

  ‘从数据表中读取图书类别、类别内容、销售量分别存储到数组book、content、sales中

  ‘数据库实际读取的记录数存储在变量num中

  ‘代码略

End Sub

 Private Sub Command1_Click()

  Dim m As String，n As String，c As Integer，s As Long

  Dim i As Integer，j As Integer，k As Integer

  List1．Clear

  c=0：s=0

  m=Text1．Text

  For i=l To num    ‘将符合的类别内容、销售量重新存储到数组content1、sales1中

    If m=book(i)Then

        c=c+1

        content1(c)=content(i)

        sales1(c)=sales(i)

                              ‘①

    EndIf

  Next i

  For i=1 To                ‘②

    List1．AddItem content1(i)&"  "&Str(sales1(i))

  Next i

  Text2．Text=Str(s)

End Sub

For i = 1 To 2

   k = i

   For j = i + 1 To 7

     If a(j) < a(k) Then k = j

   Next j

   If i <> k Then

     t = a(i) : a(i) = a(k) : a(k) = t 

   End If

Next i

数组元素a(1)到a(7)的值依次为“19，85，86，90，24，22，62”，经过该程序段“加工”后，数组元素a(1)到a(7)的值依次为（  ）

i = 1 : k = 0

Do While i<= 3

For j = 8 To i + 1 Step -1

If a(j) >= a(j - 1) Then

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

k = k + 1 

End If

Next j

i = i + 1

Loop

若数组a中的数据依次为“24，29，31，24，12，10，12，25”，则加工结束后，变量k的值为（  ）

p=l：q=10.

Do While p<q

  iMin=p：iMax=p

  For i=p+1 To q

    If a（i）< a（iMin）Then iMin =i

    If a（i）> a（iMax）Then iMax = i

  Next i

  t = a（iMin）：a（iMin）= a（p）：a（p）= t

  t = a（iMax）：a（iMax）= a（q）：a（q）= t

  p = p + 1

  q=q-1

Loop

要使程序实现上述算法思想,则方框中的语句是（  ）

Const n = 100

Dim a(n) As Integer

Private Sub Form_Load()

′产生n个2位正整数，并显示在文本框Text1中，代码略

End Sub

Private Sub Command1_Click( )

    Dim i As Integer, j As Integer, left As Integer

    Dim right As Integer, m As Integer, t As Integer

    i = n-1

    Do While i > = 1

        ________

        right = n

        t = a(i)

        Do While left < = right

            m = Int((left + right)/2)

            If a(m) = t Then right = m: Exit Do

            If a(m) < t Then

                left = m + 1

            Else

                right = m-1

            End If

        Loop

        For j = i To right-1

            a(j) = a(j + 1)

        Next j

        ________________

        i = i-1

        s = “”

        For j = 1 To n

            s = s + Str(a(j))

        Next j

        List1.AddItem s

    Loop

End Sub