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

實(shí)現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
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>

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

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

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