学进去

（加试题）下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。
数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。
（1）虚线框内程序段所采用的排序算法名称是__________。（填：冒泡排序 / 选择排序）
（2）在程序①和②划线处，填入适当的语句或表达式，把程序补充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean   
′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer                         ′n用于统计已经产生的随机整数个数
Dim i As Integer，j As Integer
Dim x As Integer，k As Integer
Randomize                                  ′初始化Rnd函数
n=0
List1.Clear                                ′清除列表框中内容
List2.Clear
Do While n<10
①________                      ′产生[1，999]范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str( a(n))
End If
Loop
For i=1 To 9                                 ′进行排序
For j=10 To i+1 step -1
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j   
Next i 
For i=1 To 10
②___________
Next i
End Sub