下列VB程序的功能是：程序運(yùn)行時(shí)，單擊命令按鈕Commandl后，產(chǎn)生10個(gè)[1，999]范圍內(nèi)互不相同的隨機(jī)整數(shù)，依次顯示在列表框List1中，然后將它們按從小到大的順序排序，排序結(jié)果顯示在列表框List2中．
數(shù)組a用于存儲(chǔ)產(chǎn)生的10個(gè)隨機(jī)整數(shù)，函數(shù)f（x）用于判斷隨機(jī)整數(shù)x與已生成的整數(shù)是否有重復(fù)，若有重復(fù)則返回True,否則返回False.
（1）虛線框內(nèi)程序段所采用的排序算法名稱是．（填：冒泡排序/選擇排序）
（2）在程序（1）和（2）橫線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整．
Dim a（1To 10）As Integer
Function f（x As Integer） As Boolean
′代碼略
End Function
Private Sub Commandl_Click （　?。?br />Dim n As Integer′n用于統(tǒng)計(jì)已經(jīng)產(chǎn)生的隨機(jī)整數(shù)個(gè)數(shù)
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize′初始化Rnd函數(shù)
n=0
List1．Clear′清除列表框中內(nèi)容
List2．Clear
Do While n＜10
x=Int（Rnd*999）+1′產(chǎn)生[1，999]范圍內(nèi)的隨機(jī)整數(shù)
If Not f（x） Then
n=n+1
a（n）=x
List1．AddItem Str（（1）

a（n）

a（n）

）
End If
Loop
For i=1 To 9
For j=10 To i+1

step-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=1To 10
List2．AddItem Str（a（i））
Next i
End Sub.