执行下列程序后，鼠标单击窗体，输出结果为 。Private Sub Form_Click（）Print "Click";End SubPrivate Sub Form_MouseDown（Button As Integer, Shift _As Integer, X As Single, Y As Single）Print "Donw"End SubPrivate Sub Form_MouseUp（Button As Integer, Shift _As Integer, X As Single, Y A

题目

执行下列程序后，鼠标单击窗体，输出结果为 。

Private Sub Form_Click（）

Print "Click";

End Sub

Private Sub Form_MouseDown（Button As Integer, Shift _

As Integer, X As Single, Y As Single）

Print "Donw"

End Sub

Private Sub Form_MouseUp（Button As Integer, Shift _

As Integer, X As Single, Y As Single）

Print " Up"

End Sub（ ）。

A．DownUpClick

B．ClickDownUp

C．DownClickUp

D．UpDownClick

相似考题

1.在窗体的单击事件中有如下程序:privatesubform_click()forj=1to15a=a+jnextjPrintaendsub程序运行后单击鼠标左键，输出的结果是( )A.1B.15C.90D.120

2.（ 8 ）有如下程序：Private Sub Form_Click （）n=10i=0Doi=i+nn=n-2Loop While n>2Print iEnd Sub程序运行后，单击窗体，输出结果为 【 10 】 。

3.执行下列程序后，鼠标单击窗体，输出结果为Private Sub Form_Click()Print "Click"；End SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)Print "Donw"End SubPrivate Sub Form_MouseUp(ButtonAs Integer，Shift As Integer，X As Single，Y As Single)Print "Up"End SubA．DownUpClickB．ClickDownUpC．DownClickUpD．UpDownCliek

4.下面对程序段运行结果叙述正确的是( )PrivateSubForm_Click()Caption="鼠标单击&quo下面对程序段运行结果叙述正确的是( )PrivateSubForm_Click()Caption="鼠标单击"Picture=LoadPicture(App.Path+"\window.jpg")Print"欢迎使用VB"EndSubPrivateSubForm_DblClick()Caption="鼠标双击"Picture=LoadPicture("")Print"结束使用VB"EndSubA.单击窗体时窗体的标题为"鼠标单击"，窗体上显示"结束使用VB"B.双击窗体时窗体的标题为"鼠标双击"，窗体上显示"结束使用VB"C.双击窗体时窗体的图片还在D.单击窗体时窗体的图片删除

参考答案和解析
正确答案：A
更多“执行下列程序后,鼠标单击窗体,输出结果为。 PrivateSubForm_Click() Print"Click"; EndSu ”相关问题

  • 第1题：

    执行下列程序后，鼠标单击窗体，输出结果为

    A．DownUpCliek

    B．CliekDownUp

    C．DownCliekUp

    D．UpDownClick


    正确答案：A
    鼠标单击时，依次引发MouseDown、MouseUp、Click事件，即Click事件包含鼠标按下和放开事件。

  • 第2题：

    执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print"Click"： End Sub Private Sub Form_MouseDown(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Donw" End Sub Private Sub Form_MouseUp(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Up" End Sub

    A．DownUpClick

    B．CfickDownUp

    C．DownClickUp

    D．UpDownClick


    正确答案：A

  • 第3题：

    运行下列程序，单击窗体后显示结果为（）。 Private Sub Form_Click（) Dim k As Integer For k = 1 To 2 Print "3" + k; "3" & k; Spc（3); Next End Sub

    A．31 31 4 31

    B．31 31 32 32

    C．4 31 5 32

    D．32 32 5 32


    33

  • 第4题：

    执行下列程序后,鼠标单击窗体,输出结果为

    Private Sub Form_Click()

    Print "Click";

    End Sub

    Private Sub Form_mouseDown(Button As Integer,Shift

    As Integer, X As Single, Y As Single)

    Print "Donw"

    End Sub

    Private Sub Form_MouseUp(ButtonAsInteger,Shift

    As Integer, X As Single, Y As Single)

    Print "Up"

    End Sub

    A．DownUpClick

    B．ClickDownUp

    C．DownClickUp

    D．UpDownClick


    正确答案：A
    解析：鼠标单击时,依次引发MouseDown、MouseUp和Click事件,即Click事件包含鼠标按下和放开事件。

  • 第5题：

    执行下列程序后，鼠标单击窗体，输出结果为。 Private Sub Form_Click() Print“Click”； End Sub Private Sub Form_MouseDown(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print “Donw” End Sub Private Sub Form_MouseUp(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print“Up” End Sub

    A．DownUpClick

    B．ClickDownUp

    C．DownClickUp

    D．UpDownClick


    正确答案：A
    解析：鼠标单击时，依次引发MouseDown、MouseUp、Click事件，即Click事件包含鼠标按下和放开事件。

相关内容