下列程序运行时,单击窗体,执行结果为【 】。 说明:在窗体上有一Label控件,名为lblDate。 Dim Y As Integer,m As Integer,d As Integer,w1 As Integer Dim Rq As Date D

admin2009-07-23  49

问题 下列程序运行时,单击窗体,执行结果为【  】。
说明:在窗体上有一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

选项

答案今天是****年**月*/日星期*

解析
转载请注明原文地址:https://kaotiyun.com/show/651p777K
0

最新回复(0)