對數(shù)組a中的u個元素進行排序，生成左右交替上升的數(shù)據(jù)序列，結(jié)果如下表所示：

a（1）	a（2）	a（3）	……	a（n-2）	a（n-1）	a（n）
17	39	48	……	79	46	34

設計一個VB程序，單擊“排序”按鈕Command1后，在標簽中輸出排序后的數(shù)據(jù)序列，運行結(jié)果如圖所示。
實現(xiàn)上述功能的VB程序如下，加框處代碼有錯，請改正。
Constn-9‘變量u存儲待排序數(shù)據(jù)個數(shù)，以9個數(shù)為例
Dima（1Ton）AsInteger‘數(shù)組a存儲待排序數(shù)據(jù)
PrivateSubCommand1_Click （　?。?br />DimiAsInteger,jAsInteger,tAsInteger,kAsInteger
‘讀取一組正整數(shù)，存入數(shù)組a中，
‘在標簽Label中依次輸出排序前數(shù)組a從1到n各個元素的值，代碼略；
For i=1 Ton\2
k=1 Label'①

k=i

k=i

For j=i+1 Ton-i+1
If a（k）＞a（j）Thenk=j
Nextj
For j=i+1 Ton′②

n-i

n-i

If a（j）＜a（j+1）Then t=a（j）：a（j）=a（j+1）：a（j+1）=
Next j
Next i
‘在標簽中依次輸出排序后數(shù)組a從1到n各個元素的值，代碼略；
EndSub