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

某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如1图所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。
(1)在应用程序界面设计时，为添加“计费”按钮，应使用2图所示的“控件工具箱”中的____（请填写相应编号），并在3图所示的“属性窗口”中，将______属性值设置为“计费”。

(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single ‘zysj:租用时间，zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <=" 60" Then
zyfy = 0
ElseIf zysj <=" 120" Then
zyfy = 1
ElseIf zysj <=" 180" Then
_______
ElseIf zysj Mod 60 =" 0" Then
zyfy =" (zysj" - 180) / 60 * 3 + 3
Else
zyfy =" (Int((zysj" - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub

小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码，点击登录按钮后，会跳出信息框提示是否验证成功。部分程序与流程图如下所示：

uname = Text1.Text '输入用户名
psd = Text2.Text    '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “”  ①   ' Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “ ②  ”
Else
MsgBox “ ③  ”
方框中正确的语句是（ ）。

A．①中“验证成功”

B．②中“输出用户名或密码有误”

C．②中“验证成功”

D．③中“输出验证码错误”

在VB中，某两个对象的属性窗口如图所示：
   
由图可知，这两个对象的（   ）

A．对象名称相同

B．所属类相同

C．字面内容相同

D．背景颜色相同

有如下Visual Basic程序段：
s=0
n=1
for i="4" to 1 step -1
n=n*i
s=s+a
next i
问：该程序段运行后，
（1）共循环___________次。
（2）变量s的值是___________。

下列VB程序运行时，在文本框Text1中输入数据5，在文本框Text2中输入数据8，单击命令按钮Command1后，文本框Text1中显示的内容是_______，文本框Text2中显示的内容是_______。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a="Val" (Text1.Text)
b="Val" (Text1.Text)
a=a*b
b=a/b
a=a/b
Text1.Text=Str(a)
Text2.Text=Str(b)
End Sub

用解析方法计算一元二次方程的根时，使用的计算公式之一是，下列用于表述该公式的VB表达式中，正确的是（    ）

A．x1= (-b+)/2*a

B．x1= [-b+sqr(b*b-4*a*c)]/2a

C．x1= (-b+sqr(b*b-4*a*c))/2/a

D．x1= (-b+sqr(b^2-4*a*c))/2*a

在VB中，给变量a,b,c均赋值为1，下列语句正确的是（  ）

A．a=1,b=1,c=1

B．a=1:b=1:c=1

C．a=1;b=1;c=1

D．a=b=c=1

某VB程序如下：
Private Sub Command1_Click()
Dim i As Integer
Dim a(1 To 10) As Integer
For i =" 1" To 10
a(i) =" i" * 2
Next i
Text1.Text = Str(a(i))
End Sub
运行程序，单击命令按钮Command1后弹出右图所示的出错提示，引起该错误的语句是（  ）

A．Dim a(1 To 10) As Integer	B．a(i) =" i" * 2
C．Text1.Text = Str(a(i))	D．For i =" 1" To 10

编写一个具有下列功能的VB程序：在文本框Text1中输入18位身份证号，单击“提取”按钮Command1，并在文本框Text2中显示出生日期。编辑界面如1图所示，运行界面如2图所示：


(1)按钮显示内容修改为“提取”，是通过修改___________属性完成的。
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim s As String ,x As Integer
S=Text1.Text
x ＝ Len(Text1.Text)
If①________Then
Text2.Text ＝②___________
Else
Label2.Caption ＝ ”输入的身份证号位数有误，请重新输入”
End If
End Sub