下列程序运行时，单击窗体，执行结果为[ ]。

说明：在窗体上有一Label控件，名为lblDate。

D．im Y As Integer,m As Integer,d As Integer,w1 As Integer

D．im Rq As Date

D．im W2 As String

Private Sub Form_Click()

Rq=Date

Y=Year(Rq): m=Month(Rq)∶d=Day(Rq)

w1=Weekday(x)

Select Case w1

C．ase 1

W2="日"

C．ase 2

W2="一"

C．ase 3

W2="二"

C．ase 4

W2="三"

C．ase 5

W2="四"

C．ase 6

W2="五"

C．ase 7

W2="六"

E．nd Select

bldat

E．Caption="今天是"&Y&"年"&m&"月"&d&"日"&"星期"&W2

E．nd SUb

[单选题]以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。 Private SubForm_Click() Dim a As Integer，b As Integer a=10 ：b=20 Call ff(a，B)Print a，b End Sub Private Sub ff(x As Integer，y As Integer) x=x+y y=x+y End SubA．30 50B．30 30C．20 20D．10 20

[单选题]在窗体上有一个计时器控件Timer1和一个标签控件Label1，在程序运行时可通过每隔30毫秒让Lable1左移100缇，从而产生文字移动动画效果。文字从右向左移动，当移动到接近窗体左边界时停止移动。空格处应填 ______。 Private Sub Form1_Load() LabelLeft=FormWidth TimerInterval=30 ______ End Sub Private Sub Timer1_Timer() Lable1.Left=LableLeft -100 If La

[单选题]当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不会接收到（）A . MouseDownB . MouseUpC . LoadD . Click

[单选题]当程序运行时，在窗体上单击鼠标，以下______ 事件是窗体不会接收到的。A． MouseDownB．MouseUpC．LoadD．Click

[单选题]下面的程序运行时，单击窗体后，窗体上显示的结果是（ ）。A．9 8 7 6 3 2B．2 3 6 7 8 9C．9 8 7 6 3D．2 3 6 7 8

[单选题]当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不能响应的事件A．MouseDownB．MouseUPC．LoadD．Click

[单选题]当程序运行时,在窗体上单击鼠标,以下那个事件是窗体不能响应的事件A．MouseDownB．MouseUPC．LoadD．Click

[试题]设窗体上有一个名称为label1的标签，程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在label1标签中，单击鼠标右键则停止实时显示，并将标签中内容清除，下面的程序可实现这一功能，请填空。D．im down as BooleanPrivate Sub form_mousedown(button as integer,shIft as integer,X as single, Y as single)Select Case(8)C．ase 1D．own=trueC．ase2D．o

[单选题]下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End SubA．3B．9C．5D．6

[单选题]下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End SubA．10B．12C．37D．22