【加试题】小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮Command1，在列表框List1中生成用于排序的n个数据，单击“排序”按钮Command2，对这组数据进行错位排序(即从前往后依次是最小的、最大的、第二小的、第二大的……依次类推)，在列表框List2中依次输出数据排序后的结果，程序运行界面如图所示。

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

Dim n As Integer，a(1 To 100)As Integer

Private Sub Command1_Click()

  ’该段程序用于随机产生n个整数，存储在数组a中，并显示在列表框list1中，代码略

End Sub

Private Sub Command2 Click()

    Dim i As Integer，j As Integer，tmp As Integer

    List2．Clear

    tmp=1

    For i=1 To n-1

        For j=n To i+1 Step-1

            If  Then    ‘①

                a(j)=a(j)+a(j-1)

                a(j-1)=a(j)-a(j-1)

                a(j)=a(j)-a(j-1)

            End If

        Next j

           ‘②

    Next i

    For i=1 To n

        List2．AddItem Str(a(i))

    Next i

End Sub

① ②