編寫VB程序，實(shí)現(xiàn)程序功能：當(dāng)單擊“顯示”按鈕Command1后，隨機(jī)產(chǎn)生n個(gè)不相同的、1到100之間的隨機(jī)整數(shù)，并在列表框List1中顯示；單擊“排序”按鈕Command2后，在列表框List2中顯示排序后的結(jié)果．
程序設(shè)計(jì)界面如圖所示，請(qǐng)回答下列問題：
（1）請(qǐng)?jiān)跈M線處填入合適的代碼．
Const n=10
Dim i As Integer
Dim a（1To 10）As Integer
Private Sub Command1_Click （　　）'產(chǎn)生10個(gè)不相同的隨機(jī)整數(shù)
For i=1To n
a（i）=Int（Rnd*100）+1

for j=1 to i-1

for j=1 to i-1

If a（j）=a（i） Then
i=i-1
Exit For
End If
Next j
Next i
For i=1To 10
List1．AddItem a（i）
Next i
End Sub
Private Sub Command2_Click （　?。?排序
Dim k as Integer
i=1

k=i
For i=1To k
List 2．AddItem a（i）
Next i
End Sub
（2）程序加框處的代碼采用的是

選擇排序

選擇排序

（選填：選擇排序/冒泡排序）．
（3）程序運(yùn)行時(shí)，單擊“排序”按鈕Command2后，在列表框List2中顯示排序后的結(jié)果．請(qǐng)仔細(xì)閱讀上面這段程序，并參照如圖所示的列表框List1顯示的結(jié)果，寫出List2中顯示的排序結(jié)果

82 78 77 71 58 54

82 78 77 71 58 54

．