下列程序运行时,单击窗体,执行结果为 【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)∶
主观题
下列程序运行时,单击窗体,执行结果为 【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)∶