编写VB程序，实现程序功能：当单击“显示”按钮Command1后，随机产生n个不相同的、1到100之间的随机整数，并在列表框List1中显示；单击“排序”按钮Command2后，在列表框List2中显示排序后的结果．
程序设计界面如图所示，请回答下列问题：
（1）请在横线处填入合适的代码．
Const n=10
Dim i As Integer
Dim a（1To 10）As Integer
Private Sub Command1_Click （　　）'产生10个不相同的随机整数
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中显示排序后的结果．请仔细阅读上面这段程序，并参照如图所示的列表框List1显示的结果，写出List2中显示的排序结果

82 78 77 71 58 54

82 78 77 71 58 54

．