编写如下事件过程： Private Sub Form MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) If Shift=6 And Button=2 Then Print "BBBB" End If End Sub 程序运行后，为了在窗体上输出“BBBB”，应执行的操作为A．同时按下Shift键和鼠标左键B．同时按下Ctrl、Alt键和鼠标右键C．同时按下Shift键和鼠标右键D．同时按下Ctrl、Alt键和鼠标

题目

编写如下事件过程： Private Sub Form MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) If Shift=6 And Button=2 Then Print "BBBB" End If End Sub 程序运行后，为了在窗体上输出“BBBB”，应执行的操作为

A．同时按下Shift键和鼠标左键

B．同时按下Ctrl、Alt键和鼠标右键

C．同时按下Shift键和鼠标右键

D．同时按下Ctrl、Alt键和鼠标左键

相似考题

1.执行下列程序后，鼠标单击窗体，输出结果为 。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 As Single）Print " Up"End Sub（ ）。A．DownUpClickB．ClickDownUpC．DownClickUpD．UpDownClick

2.下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：Dim PaintStart As Boolean编写如下事件过程：Private Sub Form_Load()DrawWidth=2ForeColor=vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X AS Single，Y AS Single)PaintStart=TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)If PaintStart ThenPSet(X，Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single)End SubPrivate Sub Form_DblClick()ClsEnd Sub

3.在窗体上画一个名称为Command1的命令按钮，并编写如下过程： Private Sub Command1_Click() Dim x AS Integer Static y As Integer x=10 y=5 Call f1(x, y) Print x,y End Sub Private Sub f1(ByRef x1 As Integer, y1 As Integer) x1=x1+2 y1=y1+2 End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是______。A．10 5B．12 5C．10 7D．12 7

4.对窗体编写如下事件过程： Private Sub Form_ MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button =2 Then Print “AAAAA” End If End Sub Private Sub Form_ MouseUp (Button As Integer，Shift As Integer，X As Single，Y As Single) Print “BBBBB” End Sub 程序运行后，如果单击鼠标右键，则输出结果为______ 。A．AAAAA BBBBBB．BBBBBC．AAAAAD．BBBBB AAAAA

更多“编写如下事件过程:PrivateSubFormMouseDown(ButtonAsInteger,Shift AsInteger,X AsSingle, Y As ”相关问题

  • 第1题：

    对窗体编写如下事件过程： Private Sub Form_MouseDown(Button As Integer，Shift As Integer,X As Single， Y As Single) If Button=2 Then Print "AAAAA" End If End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) Print "BBBBB" End Sub 程序运行后，如果单击鼠标右键，则输出结果为 ______ 。

    A．AAAAA BBBBB

    B．BBBBB

    C．AAAAA

    D．BBBBB AAAAA


    正确答案：A
    解析：窗体的的MouseDown和MouseUp中，button参数是具有相应于左按钮(为0)，右按钮(为1)，以及中间按钮(为2)的一个位字段。这些位的值分别等于1，2，和4。其中仅有一位被设置，指示出引起该事件的那个按钮。本题中MouseDown事件会首先判断按下的是哪个鼠标键，如果是右键则输出AAAAA。然后在MouseUp事件中输出BBBBB。

  • 第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. MouseDown(Button As Integer，Shift As Integer, _ x As Single, Y As Single) If Button=2 Then Print "AAA" End If End Sub Private Sub Form. MouseUp (Button As Integer，Shift As Integer，_ x As Single，Y As Single) Print "BBB" End Sub 程序运行后，如果单击鼠标右键，则输出结果为 ______。

    A．AAA BBB

    B．BBB

    C．AAA AAA

    D．BBB


    正确答案：A
    解析：窗体的MouseDown和MouseUp中，Button参数是具有相应于左按钮(位0)、右按钮(位1)，以及中间按钮(位2)的一个位字段。这些位的值分别等于1、2和4。其中仅有一位被设置，指示出引起该事件的那个按钮。本题中MouseDown事件会首先判断按下的是哪个鼠标键，如果是右键则输出AAA。然后在MouseUp事件中输出BBB。

  • 第4题：

    对窗体编写如下事件过程： Private Sub Form_ Mouse Down(Button As Integer，Shift As Integer，X AS Single，Y As Single) If Button=2 Then Print "AAAAA" End if End Sub Private Sub Form. _ MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) Print "BBBBB" End Sub 程序运行后，如果单击鼠标右键，则输出结果为 ______。

    A．AAAAA BBBBB

    B．BBBBB AAAAA

    C．AAAAA

    D．BBBBB


    正确答案：A
    解析：在窗体上单击鼠标右键时，实际上先后触发了两个事件，即先触发MouseDown事件，执行Print方法输出AAAAA；当释放鼠标键时，触发MouseUp事件，再次执行Print方法，输出BBBBB。其实在Visual Basic中类似的还有DblCtick事件，也是先后触发了两个事件，即当双击鼠标时，先触发Click事件，再触发 DblClick事件。

  • 第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事件包含鼠标按下和放开事件。

相关内容