n = 10

Text1.Text = ""

  For i = 1 To 5

    For j = n To i + 1 Step -1

      If a(j) < a(i) Then

        temp = a(j): a(j) = a(i): a(i) = temp

      End If

    Next j

  Next i

  For i = 1 To 10

      Text1.Text = Text1.Text + Str(a(i))

  Next i

数组元素a(1)到a(10)的值依次为“965,155,195,444,106,734,172,983,898,360”，执行该程序段，文本框Text1中显示的是（   ）

实现上述功能的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 3

    For j=5 To i Step-1

       If a(j)<a(j+1)Then

           k=a(j)：a(j)=a(j+1)：a(j+1)=k

       EndIf

    Next j

    Listl．AddItem Str(a(i))

  Next i

  数组元素a（1）到a（6）的数据依次为“1，5，7，6，9，3”，经过该程序段加工后，列表框List1中显示的内容是（  ）

实现上述功能的VB程序如下，代码加框处有错，请改正。

Dim a(1 to 10) As Integer        ‘存储原始数据

Dim b(1 to 10)As Integer         ‘存放名次

Private Sub Command1_Click()

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

    For i=1 To 10

       n=0

       For j=1 To 10

         If    

         Then n=n+1      ‘①

                    ‘②

      Next j

Next i

For i= 1 to 10

    List2.Additem a(i)&”   ”&b(i)

Next i

End Sub

Private  Sub Form_Load()

    ‘随机产生10个[60,100]之间的随机数，并显示在List1中，代码略。

End Sub

①处代码应改为：{#blank#}1{#/blank#}

②处代码应改为：{#blank#}2{#/blank#}

Dim a(1 To 5) As Integer

a(1)=5: a(2)=10: a(3)=9: a(4)=3: a(5)=7

n=5: p=0

swap=True

Do While swap=True

 swap=False

 For i=1 To n-1

  If a(i) > a(i+1) Then

   t=a(i): a(i)=a(i+1): a(i+1)=t

   swap=True

  End If

 Next i

 If swap=True Then p=p+1

Loop

Text1.Text=p

该程序段执行后，在文本框Text1中显示的内容为（  ）

For i = 2 To 4

j = i: flag = False

Do While j >= 2 And Not flag If a(j) < a(j - 1) Then

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

End If j = j - 1

Loop Next i

数组元素a(1)到a(7)的初值依次为“8,2,7,10,6,9,5,3”，则程序运行后，元素a(1)到a(7)的值依次为（  ）