編寫VB程序，實現(xiàn)程序功能：當單擊“顯示”按鈕Command1后，隨機產(chǎn)生n個不相同的、1到100之間的隨機整數(shù)，并在列表框List1中顯示；單擊“排序”按鈕Command2后，在列表框List2中顯示排序后的結(jié)果．
程序設計界面如圖所示，請回答下列問題：
（1）請在橫線處填入合適的代碼．
Const n=10
Dim i As Integer
Dim a（1To 10）As Integer
Private Sub Command1_Click （　?。?產(chǎn)生10個不相同的隨機整數(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）程序運行時，單擊“排序”按鈕Command2后，在列表框List2中顯示排序后的結(jié)果．請仔細閱讀上面這段程序，并參照如圖所示的列表框List1顯示的結(jié)果，寫出List2中顯示的排序結(jié)果

82 78 77 71 58 54

82 78 77 71 58 54

．