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

Dim n As Integer

Dim a(1 To 100) As Integer

’n=10,排序前生成的数据存储在数组a中，并在列表框List1中显示，代码略

Private Sub Command1_Click()

 Dim i As Integer, j As Integer, start As Integer, t As Integer

 i=2

 Do While i < n start=n

  For j=n To i Step-1

   If{#blank#}1{#/blank#}Then

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

    {#blank#}2{#/blank#}

   End If

  Next j

  i=start+1

 Loop

 For i=1 To n

  List2.AddItem{#blank#}3{#/blank#}  

 Next i

End Sub

a(1) = "20": a(2) = "18": a(3) = "06": a(4) = "o": a(5) = "k"

For i = 1 To 4

   For j = 2 To 6-i

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

       Next j

       List1.Additem a(j-1)

Next i

For i=4 To 3 Step-1

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

        tmp=a(i)

        For j=i-1 To 1 Step-1

            If tmp>a(j) Then Exit For

            a(j+1)=a(i)

        Next j

        a(j+1)=tmp

    End If

Next i

数组元素a(1)到(6)的值依次为“19，8，96，92，85，88”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（   ）

t=h

p=d[h][1]

while p != -1 :

    q=d[p][1]

    p=q

d[t][-1]=-1