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

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

admin2009-07-23  53
问题 下列程序运行时，单击窗体，执行结果为【  】。
说明：在窗体上有一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://jikaoti.com/ti/5cq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)