小張編寫一個 VB 程序實現(xiàn)以下功能：隨機產(chǎn)生 10 個 1 到 20 之間的不重復的 整數(shù)，在列表框 list1 中顯示（存儲在數(shù)組 a 中），單擊“排序”按鈕 Command1，在列表框 list2 中顯示升序排序后結果。程序運行界面如圖所示。

實現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯，請改正。
Const n=10
Dim a（1To n） As Integer Private Sub Form_Load （　?。?nbsp;Dim i As Integer,j As Integer Randomize
a（1）=Int（Rnd

（　　）

（　?。?/div>*20）+1i=2
Do While i＜=n
a（i）=Int（Rnd

（　?。?/div>

（　?。?/div>*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

（　　）

（　?。?/div> 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