学进去

（加试题）编写一个VB程序实现数据左右交替上升排序。功能如下：随机产生n个不重复的整数存数组a，并在列表框listl中显示，单击“排序”按钮Commandl，在列表框list2中显示排序后的数据。某遍程序运行后，数组a中存储的左右交替上升排序的n个正整数，如下表所示：

a(1)	a(2)	a(3)	……	a(n-2)	a(n-1)	a(n)
1	4	7	……	8	6	2

实现该功能的VB程序如下，但加框处代码有错，请改正。
Constn=10
Dima(1 To n) As Integer
Private Sub Form_Load()
‘随机产生n个不重复的整数存数组a，并在列表框listl中显示。代码略。
End Sub
Private Sub Command1_Click()

Dim i As Integer，j As Integer，t As Integer

Dim i minl As Integer，imin2 As Integer

For i=1 To n\2

Imin l=i：imin2=i+1
If a(iminl)>a(imin2) Then t=iminl：iminl=imin2：imin2=t
For j=i+2 To n-i+1
If a(j)<a(imin1) Then
imin2=iminl；iminl=j
             ‘(1)  _______________________________ 
imin 2=j
End If
Next j
If i◇imin 1 Then t=a(i)：a(i)=a(imin1)：a(imin1)=t
If imin 2=i Then                       ‘(2)  _______________________________ 
If n-i+1◇imin2 Then t=a(n-i+1)：a(n-i+1)=a(imin2)：a(imin2)=t

Next i

For i=1 To n

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

Next i

End Sub