双调序列：指的是有n个整数进行排序，在序列中第一个数是n个数当中最大数，第二个数是n个数中最小数，第三个数是n个数中的第二大数，第四个是n个数中的第二小数……取过的数字不能再取，依此类推，直到结束。
小明根据上述概念制作了VB应用程序，功能如下：程序运行后，点击“生成”按钮Command1随机生成10个不重复的[0，99]内的整数，列表框List1中显示排序之前数据；单击“排序”按钮Command2，在列表框List2中显示这些数据的双调序列结果。其程序界面如图所示。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Const n=10
Dim a（1To n） As Integer
Dim b（0To 99）As Integer
Private Sub Command1_Click（　　）
‘随机生成10个不重复的[0，99]之间的整数，存储在a数组中，代码略。
End Sub
Private Sub Command2_Click （　　）
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