下列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)在程序①和②橫線處,填入適當(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 ( )
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=
①’產(chǎn)生[1,999]范圍內(nèi)的隨機(jī)整數(shù)
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.