[填空題] 下列程序運(yùn)行時，單擊窗體，執(zhí)行結(jié)果為 【12】 。 說明：在窗體上有一Label控件，名為lblDate。 Dim Y As Integer,m
2021-07-20
[填空題] 下列程序運(yùn)行時，單擊窗體，執(zhí)行結(jié)果為 【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 w1Case 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
正確答案：今天是****年**月*/日星期*
參考解析：例如在2003年元月10日執(zhí)行該程序，界面上將顯示： 今天是2002年1月10日星期五
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。