下列程序运行时，单击窗体，执行结果为 【12】 。
说明：在窗体上有一Label控件，名为lblDate。
Dim Y As Integer,m As Integer,d As Integer,w1 As Integer
Dim Rq As Date
Dim W2 As String
Private Sub Form_Click()
Rq=Date
Y=Year(Rq): m=Month(Rq)∶d=Day(Rq)
w1=Weekday(x)
Select Case w1
Case 1
W2="日"
Case 2
W2="一"
Case 3
W2="二"
Case 4
W2="三"
Case 5
W2="四"
Case 6
W2="五"
Case 7
W2="六"
End Select
bldate.Caption="今天是"&Y&"年"&m&"月"&d&"日"&"星期"&W2
End SUb