“某商场的店庆促销活动之一：店庆日购物满500元可在5折优惠后再减100元，否则只打5折”。用算法描述这一问题，可采用的算法结构是（   ）

A．顺序结构

B．选择结构

C．循环结构

D．树形结构

已有V←2，T←3，则在赋值语句S="V" * T+5中，常量为________。

A．S

B．T

C．5

D．V

若运行时输入5、9，以下流程图的运行结果是_______。

A．14，45

B．14，126

C．a + b，a * b

D．126，14

在Visual Basic中，若要将100名学生家长的联系方式（如：0575-82291000）分别存储在数组Tel中，则下列说明语句最合适的是（ ）

A．Dim Tel(1,100) As Long	B．Dim Tel(1,100) As String
C．Dim Tel(1 To 100) As Long	D．Dim Tel(1 To 100) As String

下列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