（加试题）对数组a中的u个元素进行排序，生成左右交替上升的数据序列，结果如下表所示：
a(1)
| a(2)
| a(3)
| ……
| a(n-2)
| a(n-1)
| a(n)
|
17
| 39
| 48
| ……
| 79
| 46
| 34
|
设计一个VB程序，单击“排序”按钮Command1后，在标签中输出排序后的数据序列，运行结果如图所示。
实现上述功能的VB程序如下，加框处代码有错，请改正。
Const n-9 ‘变量u存储待排序数据个数，以9个数为例
Dim a(1 Ton) As Integer ‘数组a存储待排序数据
Private Sub Command1_Click()
Dim i As Integer，j As Integer，t As Integer，k As Integer
‘读取一组正整数，存入数组a中，
‘在标签Label中依次输出排序前数组a从1到n各个元素的值，代码略；
For i = 1 To n\2
k=1 Label'①________
For j=i+1 To n-i+1
If a(k) > a(j) Then k = j
Next j
For j=i+1To n ‘②________
If a(j) <a(j +1) Then t =a(j): a(j) =a(j +1): a(j +1)=
Next j
Next i
‘在标签中依次输出排序后数组a从1到n各个元素的值，代码略；
End Sub
