下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个1，999范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。
（1）虚线框内程序段所采用的排序算法名称是 。（填：冒泡排序/选择排序）
（2）在程序(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
x=Int(Rnd*999)+1 ′产生1，999范围内的随机整数
If Not f(x) Then
n=n+1
a(n)="x"
List1.AddItem Str(  （1）  )
End If
Loop
For i="1" To 9   ′进行排序
For j="10" To i+1    （2）  
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
List2.AddItem Str(a(i))
Next i
End Sub

（加试题）有如下程序段：
i=6 : flag=True
Do While i>=4   And   flag=True flag=False
k=i
For j=1 To i-1
If a(k)>a(j)  Then k=j
Next j
If k<>i Then
t=a(i) : a(i)=a(k) : a(k)=t flag=True
End If
i=i-1
Loop
数组元素 a(1)到 a(6)的值依次为“24，7，37，45，11，52”，经过该程序段“加工”后， 数组元素 a(1)到 a(6)的值依次为（   ）

A．7，11，37，45，24，52	B．45，52，37，24，11，7
C．7，11，24，45，37，52	D．24，52，37，45，11，7

在VB中，下列函数返回值最大的是(    )

A．Sqr(9)

B．Abs(-3.2)

C．int(3.2)

D．Len("3.2")

在Excel中进行数据排序，先按主关键字进行排序，主关键字相同的记录再按次关键字进行排序。编写一个VB程序，功能如下：在文本框Text1中随机产生100个两位数的正整数作为主关键字，在文本框Text2中随机产生100个两位数的正整数作为次关键字，单击“排序”按钮Command1，在列表框List1中显示排序后的结果（主、次关键字均为降序）。程序运行界面如图所示。

（1）观察代码，该排序过程中，交换次数最多能达到______________次。
（2）实现上述功能的VB程序如下，请在划线处填入正确语句。
Dim z(1 To 100) As Integer
Dim c(1 To 100) As Integer
‘文本框获取主、次数组数据代码略
Private Sub Command1_Click()

Dim i As Integer, j As Integer

i = 1

Do While i <= 99

j = 100

Do While  ①_______

If z(j) > z(j - 1) Or ②_____________Then

t = z(j): z(j) = z(j - 1): z(j - 1) = t

t = c(j): c(j) = c(j - 1): c(j - 1) = t

End If

j = j - 1

Loop

③________

Loop

List1.AddItem " " + "主" + " " + "次"

For i = 1 To 100

List1.AddItem Str(z(i)) + Str(c(i))

Next i

End Sub