某对象的一个事件过程代码如下： 下列说法正确的是(　　)
Private Sub Obj_Click()
　　s=s+1
　　Text.Text=Str(s)
End Sub

A．该过程的过程名为“Obj”	B．该事件是一个“单击”事件
C．该对象的对象名为“Obj_Click”	D．该对象的类名为“Sub”

在使用VB进行可视化编程时，向窗体添加一个计时器控件，可选择工具箱中的

A．

B．

C．

D．

已知方程“x^2+sin(x)-1=0”在区间0,1之间单调上升且有唯一解，可用对分思想不断缩小正解所在区间，找出其近似解（要求：误差小于0.001，结果截取3位小数）。单击“求解”按钮Command1，方程近似解显示在文本框Text1中。程序运行界面如下所示：

实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Function fun(x As Single) As Single
fun =" x" ^ 2 + Sin(x) - 1
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim x1 As Single, x2 As Single, y As Single, y1 As Single, y2 As Single
Dim mid As Single
x1 = 0
x2 = 1
y1 =" fun(x1)" '小于0
y2 =" fun(x2)" '大于0
For i =" 1" To ①  '确定合适终值，使最终结果恰好小于0.001
mid =" (x1" + x2) / 2
y = fun(mid)
If y < 0 Then
x1 = mid
ElseIf y > 0 The
②    :Z*xx*k.Com
Else
Exit For
End If
Next i
'结果截取3位小数
'CStr(Format(0.63756, "0.000"))返回“0.638”
Text1.Text = CStr(Format( ③ , "0.000"))
End Sub

编写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”，则输出结果是星期 。

一个漂亮的酒杯被摔碎了，则漂亮、酒杯、摔、酒杯被摔碎了分别代表的是（）

A．对象，属性，事件，方法	B．对象，属性，方法，事件
C．属性，对象，方法，事件	D．属性，对象，事件，方法