1. (2016高二下·温州期中) 下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。

数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。

1. （1） 虚线框内程序段所采用的排序算法名称是。（填：冒泡排序/选择排序）
3. （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

       x=①                     ′产生[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 ② Then

               k=a(j):a(j)=a(j-1):a(j-1)=k

           End If

       Next j   

   Next i 

   For i=1 To 10

       List2.AddItem Str(a(i))

   Next i

   End Sub