下列VB程序的功能是：程序運行時，單擊命令按鈕Commandl后，產生10個[1，999]范圍內互不相同的隨機整數，依次顯示在列表框List1中，然后將它們按從小到大的順序排序，排序結果顯示在列表框List2中．
數組a用于存儲產生的10個隨機整數，函數f（x）用于判斷隨機整數x與已生成的整數是否有重復，若有重復則返回True,否則返回False.
（1）虛線框內程序段所采用的排序算法名稱是

冒泡排序

冒泡排序

．（填：冒泡排序/選擇排序）
（2）在程序①和②橫線處，填入適當的語句或表達式，把程序補充完整．
Dim a（1To 10）As Integer
Function f（x As Integer） As Boolean’代碼略
End Function
Private Sub Commandl_Click （　　）
Dim n As Integer’n用于統(tǒng)計已經產生的隨機整數個數
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=1To 10
List2．AddItem Str（a（i））
Next i
End Sub.