在Visual Basic中进行窗体设计时，利用属性面板可以非常方便地对常用的属性进行设置。请观察右图，并选择出正确的描述(   )

A．“Text1”是类名，“TextBox”是对象名，“Text” 是属性名，“点击输入”是属性值

B．“Text1”是对象名，“TextBox”是类名，“Text”是属性名，“点击输入”是属性值

C．“Text1”是对象名，“TextBox”是类名，“Text”是属性值，“点击输入”是属性名

D．Text1”是属性名，“TextBox”是对象名，“Text”是类名，“点击输入”是属性值

VB开发的应用程序的两个特征是“对象”和“事件驱动； （   ）

某地区公共自行车收费信息如下：“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中，下列语句定义错误的是：（   ）

A．const g="9.8"	B．Dim False As Boolea
C．Dim b(1 to 5) As String	D．Dim y As Long

编写VB程序，实现如下功能：在文本框Text1中按“YYYY-MM-DD”（年4位，月2位，日2位）格式输入某一日期，单击“推算”按钮Command1，在文本框Text2中输出该日期对应的星期，运行界面如下图所示。

（1）要使标签对象Label1中显示的文本“date”修改为“日期”,可在其属性窗口中将___________属性的属性值改“日期”。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String '变量s存储输入的日期
Dim s1 As String, s2 As String, s3 As String
Dim y As Integer, y2 As Integer, m As Integer, d As Integer, n As Integer
s1 = "622503514624"
s2 = "512503514624"
s3 = "日一二三四五六"
s =  （2）    
y =" Val(Mid(s," 1, 4))
m =" Val(Mid(s," 6, 2))
d =" Val(Mid(s," 9, 2))
y2 =" y" Mod 100
n =" Int(y2" / 4) + y2 + d
If y Mod 4 =" 0" And y Mod 100 <> 0 Or y Mod 400 =" 0" Then '判断是否为闰年
n =" n" + Val(Mid(s2, m, 1))
Else
n =" n" + Val(Mid(s1, m, 1))
End If
n =" n" Mod 7 + 1
'（3）
End Sub
（3）加框处程序代码有错误，请改正 。
（4）如果输入日期“2017-02-01”，则输出结果是星期 。