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

声明一个长度为10个字符的字符串变量mstr，应使用_____________语句。

下列赋值语句错误的是（    ）。

A．a="b+c"

B．m=m*i

C．x=y-1

D．5y=abs(x)

有如下程序段：
tail = 6：i = 1：r = Val(Text1.Text)
Do While i < r
For j = tail To i + 1 Step -1
If a(j) > a(j - 1) Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
End If
Next j
i = i + 1
For j = i To tail - 1
If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
tail = tail - 1
Loop
数组元素a(1)到a(6)的值依次为“73、56、28、61、44、92”，若在文本框Text1中输入“2”，则经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为

A．73,61,56,92,44,28	B．92,73,56,61,44,28
C．92,73,61,56,28,44	D．92,73,61,56,44,28

下图的运算结果为______________。