编写如下事件过程： Private Sub Form_MouseMove(ButtonAsInteger,ShiftAsInteger，X As Single,YAsSingle) Cls If(Button Andl)ThenPrint"你好" End Sub 程序运行后，为了在窗体上显示“你好”，应在窗体上执行以下( )操作。A．只能按下左按键并拖动B．只能按下右按键并拖动C．只能按下左按键D．只能按下右按键

题目

编写如下事件过程： Private Sub Form_MouseMove(ButtonAsInteger,ShiftAsInteger，X As Single,YAsSingle) Cls If(Button Andl)ThenPrint"你好" End Sub 程序运行后，为了在窗体上显示“你好”，应在窗体上执行以下( )操作。

A．只能按下左按键并拖动

B．只能按下右按键并拖动

C．只能按下左按键

D．只能按下右按键

相似考题

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.下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：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.设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为a1，且取消其“可见”属性。运行时，哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是A．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=2 Then PopupMenu a1，2 End SubB．Private Sub Form_MouseDown(ButtonAsInteger，ShiftAsInteger，X As Single，Y As Single) PopupMenu a1，0 End SubC．Private Sub Form_Mouse Down(Button As Integer，Shift As Integer，X As Single，Y As Single) PopupMenu a1 End SubD．Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If(Button=vbLetfButton) Or (Button=vbRightButton) Then PopupMenu a1 End Sub

4.编写如下事件过程:()Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button And 3) = 3 ThenPrint "AAAA"End IfEnd Sub程序运行后,为了在窗体输出“AAAA”,应按下的鼠标键为()A、左B、右C、同时按下左、右D、按什么键都不显示

参考答案和解析
正确答案：A
更多“编写如下事件过程:Private Sub Form_MouseMove(ButtonAsInteger,ShiftAsInteger,X As Single,YAs ”相关问题

  • 第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 AsSingle) If Button=2 Then PopupMenu popForm End If End Sub 则以下描述中错误的是

    A．该过程的功能是弹出一个菜单

    B．popForm是在菜单编辑器中定义的弹出式菜单的名称

    C．参数x、y指明鼠标的当前位置

    D．Button=2表示按下的是鼠标左键


    正确答案：D
    解析：Button参数用来标识该事件的产生是由按下(MouseDown)或者释放(MouseUp)按钮引起的具有相应于左键(位0)、右键(位1)、中键(位2)的一个位字段。这些位的值分别等于1、2和4。其中仅有一位被设置，指示出引起该事件的键。

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

相关内容