某地区公共自行车收费信息如下：“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

在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

应用实例：判断一个数是否为偶数，如果在文本框te1中输入一个数，在标签Label1中直接出现相应的判断结果。在程序处完成以下3处填空

Private Sub ①
Dim   a  As Integer
a=Val(Te1.Text)
Label1.Caption = ②
End Sub
Function ou(i as integer) As ③
If i Mod 2 =" 0" Then
ou = "该数为偶数！"
Else
ou = "该数为奇数！"
End If
End Function

VB 语句 List1.AddItem a(i)的作用是把数组 a 的数据添加得到列表框对象 List1 中。该语句中的 “AddItem”是（  ）

A．属性名

B．方法

C．事件

D．属性

有如下Visual Basic程序段：
A＝“Happy new year！”
B＝Len(A)\2
C＝63 Mod 10
Text1.Text＝Mid(A，B，C)
该程序运行后文本框text1显示的内容为(  )

A．3	B．new
C．B	D．Mid(A，7，3)

为使下面两段程序能实现相同的功能，右框内划线处的内容为（   ）
   

A．a=a+1

B．a=a+2

C．a=i^2

D．a=a*2

如下算法的功能是：寻找数组元素a(1)到a(10)中的最小值。 处应填写的语句是（   ）
①
For i＝2 to 10
If a(i)<min then
min＝a(i)
end if
Next i

A． a(1)＝min

B． a(1)＝0

C． min＝0

D．  min＝a(1)

如下流程图的功能是给数组a赋值，使a(1)=1，a(2)=3，a(3)=5，…，a(50)=99，在流程图的空白处应填入(  )

A．a(i)＝2*i＋1

B．a(i)＝2*(i＋1)

C．a(i)＝i＋2

D．a(i)＝2*i－1

“如果变量a，b的值中任意一个为0，那么y＝y＋1”，能实现该功能的VB语句是(  )

A．If a＝0 And b＝0 Then y＝y＋1	B．If a*b＝0 Then y＝y＋1
C．If a＝0，b＝0 Then y＝y＋1	D．If a－b＝a Then y＝y＋1

为使下面两段程序能实现相同的功能，右框内划线处的内容为（   ）
   

A．t<=10

B．t=20

C．t<19

D．t<20