编写如下事件过程：Private Sub Form_MouseDown（Button As Integer, Shift As Integer, _X As Single, Y As Single）If Shift＝6 And Button＝2 ThenPrint "PC"End IfEnd Sub程序运行后，为了在窗体上输出"PC"，应执行的操作为（ ）。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 "PC"

End If

End Sub

程序运行后，为了在窗体上输出"PC"，应执行的操作为（ ）。

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

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

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

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

相似考题

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 BBBBBB．BBBBBC．AAAAAD．BBBBB AAAAA

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

3.编写如下事件过程：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 IfEnd Sub程序运行后，为了在窗体上输出“BBBB”，应执行的操作为______。A．同时按下Shift键和鼠标左键B．同时按下Shift键和鼠标右键C．同时按下Ctrl、Alt键和鼠标左键D．同时按下Ctrl、Alt键和鼠标右键

4.下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：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

参考答案和解析
正确答案：B
更多“编写如下事件过程: PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_ XAsSi ”相关问题

  • 第1题：

    编写如下代码：

    Dim Flag As Boolean

    Private Sub Form. MouseDown (Button As Integer,

    Shift As Integer, X As Single, Y As Single)

    Flag = True

    End Sub

    Private Sub Form. MouseMove (Button As Integer,

    Shift As Integer, X As Single, Y As Single)

    Flag = False

    End Sub

    Private Sub Form_ MouseUp (Button As Integer,

    Shift As Integer, X As Single, Y As Single)

    If Flag = False Then

    Print "DDDD"

    End If

    End Sub

    程序运行后，如果想在窗体上输出DDDD，则应执行的操作为______。


    正确答案：按下鼠标左键或右键同时松开
    按下鼠标左键或右键同时松开

  • 第2题：

    对窗体编写如下事件过程： 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事件。

  • 第3题：

    假定编写了如下事件过程： Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) If Button=2 Then Print "aaaa" End If End Sub 程序运行后，为了在窗体上输出“AAAA”，应按下的鼠标键为

    A．左键

    B．右键

    C．同时按下左、右键

    D．按什么键都不显示


    正确答案：B
    解析：在窗体上压下鼠标键，触发Form_MouseDown事件。参数Button标识鼠标的信息，1表示按下鼠标左键；2表示按下鼠标右键：4表示按下鼠标中间键。当按下鼠标右键时，程序能在窗体上显示字符串“AAAA”。

  • 第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 BBBBB

    B．BBBBB

    C．AAAAA

    D．BBBBB AAAAA


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

  • 第5题：

    对窗体编写如下事件过程： Private Sub Form. _ MouseDown(BuRon 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。

  • 第6题：

    对窗体编写如下事件过程： 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。

相关内容