Const n As Integer = 10      'n为品牌数

Dim a(1 To n) As String      '数组a用于存储品牌名称

Dim b(1 To n) As Integer     '数组b用于存储销售量

Private Sub Form_Load()

    '此过程用于对数组a和数组b进行赋初值，并显示在List1中，代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, x As Single, y As String

Dim n As Integer

n = 1

For i = 1 To 9

    k = i

    For j = i+1 To 10

If Then k = j

n=n+1

    Next j

    If     ①     Then

x = a(i): a(i) = a(k): a(k) = x  

y = b(i): b(i) = b(k): b(k) = y 

    End If

Next i

For i = 1 To 10

List2.AddItem Str(a(i)) + "      " + b(i)

Next i

Label3.Caption = "比较次数为：" + + "次"

End Sub

For i=1 to 3

    For j=1 to 5-i

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

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

        End If

    Next j

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

Next i

数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。若该程序段执行后，文本框Text1显示的内容是（  ）

Dim a(8) As Integer For i = 2 To 8

           a(0) = a(i)

           Do While a(0) < a(j)  

                  j = j - 1

           Loop

       Next i

数组元素 a(1)~a(8)的值为随机生成的整数，为实现升序排序，则上述程序段3个方框处的表达式分别为（  ）

For i= 1 To 2

    For j=5 To i+1 Step-1

      If a(j) >a(i) Then

        t=a(j)：a(j)=a(i)：a(i)=t

      End If

    Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，45，16，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（  ）