小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个【10，99】的随机整数赋值给a数组，并在列表框list1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的……依次类推)。在列表框list2中依次输出数据排序的结果，程序运行界面如图所示：

实现上述功能的VB程序如下：

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1 Click()

For i=1 To n

              ‘①

    List1．Addltem Str(a(i))

    Next i

End Sub

 Private Sub Command2 Click()

    tmp=1

    For i=1 To n-1

    For j=n To i+1 Step-1

    If  ＞0 Then    ①

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

    End If

    Next j

    ②

    Next i

    For i=1 To 10

    List2．Addltem Str(a(i))

    Next i

 End Sub