小张编写一个 VB 程序实现以下功能：随机产生 10 个 1 到 20 之间的不重复的 整数，在列表框 list1 中显示（存储在数组 a 中），单击“排序”按钮 Command1，在列表框 list2 中显示升序排序后结果。程序运行界面如图所示。

实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n=10
Dim a（1To n） As Integer Private Sub Form_Load （　　） Dim i As Integer,j As Integer Randomize
a（1）=Int（Rnd

（　　）

（　　）

*20）+1i=2
Do While i＜=n
a（i）=Int（Rnd

（　　）

（　　）

*20）+1
For j=1To i-1

If a（j）=a（i） （1）
Next j
i=i+1
Loop
For i=1To n
List1．AddItem Str（i）+““+Str（a（i）） Next i
End Sub
Private Sub Command1_Click

（　　）

（　　）

 Dim i As Integer,j As Integer For i=1To n-1
For j=n To i+1Step-1
IfThen（2）
a（j）=a（j）+a（j-1）：a（j-1）=a（j）-a（j-1）：a（j）=a（j）-a（j-1）End If
Next j
Next i
For i=1To n
List2．AddItem Str（i）+““+Str（a（i）） Next i
End Sub