雙調(diào)序列：指的是有n個(gè)整數(shù)進(jìn)行排序，在序列中第一個(gè)數(shù)是n個(gè)數(shù)當(dāng)中最大數(shù)，第二個(gè)數(shù)是n個(gè)數(shù)中最小數(shù)，第三個(gè)數(shù)是n個(gè)數(shù)中的第二大數(shù)，第四個(gè)是n個(gè)數(shù)中的第二小數(shù)……取過(guò)的數(shù)字不能再取，依此類推，直到結(jié)束。
小明根據(jù)上述概念制作了VB應(yīng)用程序，功能如下：程序運(yùn)行后，點(diǎn)擊“生成”按鈕Command1隨機(jī)生成10個(gè)不重復(fù)的[0，99]內(nèi)的整數(shù)，列表框List1中顯示排序之前數(shù)據(jù)；單擊“排序”按鈕Command2，在列表框List2中顯示這些數(shù)據(jù)的雙調(diào)序列結(jié)果。其程序界面如圖所示。
實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Const n=10
Dim a（1To n） As Integer
Dim b（0To 99）As Integer
Private Sub Command1_Click（　　）
‘隨機(jī)生成10個(gè)不重復(fù)的[0，99]之間的整數(shù)，存儲(chǔ)在a數(shù)組中，代碼略。
End Sub
Private Sub Command2_Click （　?。?br />Dim i As Integer,j As Integer,k As Integer
k=0
For i=1To n
'①

b（a[i））=b（a（i））+1

b（a[i））=b（a（i））+1

Next i
For j=0To 99
If b（j）=1Then
k=k+1
a（k）=j
End If
Next j
For i=1To n\2
List2．AddItem   '②

Str（a（n-i+1））

Str（a（n-i+1））

List2．AddItem Str（a（i））
Next i
End Sub