单选题窗体的MouseUp事件过程如下:Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)……End Sub关于以上定义,以下叙述中错误的是(   )。A 根据Shift参数,能够确定使用转换键的情况B 根据X、Y参数可以确定触发此事件时鼠标的位置C Button参数的值是在MouseUp事件发生时,系统自动产生的D MouseUp是鼠标向上移动时触发的事件

题目
单选题
窗体的MouseUp事件过程如下:Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)……End Sub关于以上定义,以下叙述中错误的是(   )。
A

根据Shift参数,能够确定使用转换键的情况

B

根据X、Y参数可以确定触发此事件时鼠标的位置

C

Button参数的值是在MouseUp事件发生时,系统自动产生的

D

MouseUp是鼠标向上移动时触发的事件


相似考题
更多“单选题窗体的MouseUp事件过程如下:Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)……End Sub关于以上定义,以下叙述中错误的是(   )。A 根据Shift参数,能够确定使用转换键的情况B 根据X、Y参数可以确定触发此事件时鼠标的位置C Button参数的值是在MouseUp事件发生时,系统自动产生的D MouseUp是鼠标向上移动时触发的事件”相关问题
  • 第1题:

    要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是

    A.Private Sub P1_MouseMove(Button As Integer,Shift As Integer,x As Single,Y As Single) Print X,Y End Sub

    B.Private Sub P1_M0useDown(Button As Integer,Shift As Integer,X As Single,Y As Single) Picture.Print X,Y End Sub

    C.Private Sub P1_MouscMove(Button As integer,Shift As Integer,X As Single,Y As Single) P1.Print X.Y End Sub

    D.Private Sub Form_MouseMove(Button As Integer,Shift As Integer,x As Single,Y As Single) P1.Print X.Y End Sub


    正确答案:C
    解析:鼠标在图片框中移动,对象应为图片框控件,而不是窗体,选项D)是错误的;鼠标移动触发的是MouseMove事件,选项B)是错误的;在图片框内显示坐标,Print的对象名为图片框,如果没有对象名,则默认输出到窗体上,所以正确的答案为C)。

  • 第2题:

    下面程序是由鼠标事件在窗体上画图,如果按下鼠标可以画图,双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量:

    Dim PaintStart As Boolean

    编写如下事件过程:

    Private Sub Form_Load()

    DrawWidth=2

    ForeColor=vbGreen

    End Sub

    Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X AS Single,Y AS Single)

    PaintStart=True

    End Sub

    Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)

    If PaintStart Then

    PSet(X,Y)

    End If

    End Sub

    Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)

    End Sub

    Private Sub Form_DblClick()

    Cls

    End Sub


    正确答案:PaintStart=False
    PaintStart=False 解析:上述过程定义了一个布尔型变量PaintStart,当按下鼠标左键(触发MouseDown事件)时,由题意按下鼠标键表示能画图,所以该变量的值为Tine,而松开鼠标左键(触发MouseUp事件)时,该变量为False;如果变量PaintStart为True,则移动鼠标 (触发MouseMove事件),将在窗体上绘出一个点;除鼠标事件外,上述程序还含有一个Load事件过程和一个DblClick事件过程,其中Load事件过程用来设置画点的大小和颜色,DblClick事件过程用来清除所画的图形,函数Pset是画点语句,用它可以在(x,y) 处画一个点。

  • 第3题:

    假定有如下事件过程: Private Sub Form. MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu popForm End if End Sub 则以下描述中错误的是______。

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

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

    C.参数X、Y指明鼠标的当前位置

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


    正确答案:D
    解析:VisualBasic中没有提供专门的鼠标右击事件,但是在窗体的MouseDown事件里面,通过Button的值可以判断以后单击鼠标的键,当Button=1时,表示用户单击了鼠标左键。当Button=2时,表示用户单击了鼠标右键。因此应该选择D。VisualBasic中常常在MouseDown事件过程中调用PopupMenu方法弹出菜单。

  • 第4题:

    编写如下代码:

    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,则应执行的操作为______。


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

  • 第5题:

    窗体的MouseDown事件过程如下: Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) 有4个参数,关于这些参数,正确的描述是 ______。

    A.通过Button参数判定当前按下的是哪一个鼠标键

    B.Shift参数只能用来确定是否按下Shift键

    C.Shift参数只能用来确定是否按下Alt和Ctrl键

    D.参数x和y用来设置鼠标当前位置的坐标


    正确答案:A
    解析:Button参数可以确定用户是否按下Ctrl、Alt、Shift键。参数x和y只能读取当前鼠标的位置,不能用来设置鼠标当前位置的坐标。

  • 第6题:

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

  • 第7题:

    假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单的名称为al,其“可见”属性为False。程序运行后,单击鼠标左键或右键都能弹出菜单的事件过程是( )。

    A.Private Sub Form_MouseDown(Button As Integer,_Shift As Integer,X As Single, Y As Single) If Button=1 And Blltton=2Then PopupMenu a1 End If End Sub

    B.Private Stlb Form_MouseDown(Button As Integer,_Shift As Integer,X As Single, Y As Single) PopupMenu a1 End Sub

    C.Private Sub Form—MouseDown(Button As Integer,_Shift As Integer,X As Single, Y As Single) If Button=1 Then PopupMenu a1 End If End Sub

    D.Private Sub Form. MouseDown(Button As Integer,_Shift As Integer,X As Single, Y As Single) If Buttcn=2 Then PopupMenu a1 End If End Sub


    正确答案:B
    B。【解析】表示窗体的弹出式菜单使用PopupMerm,而单击鼠标的左键或者右键都能弹出菜单,使用的是MoseDown,并且使用Button控制按下的鼠标键Button=1表示的是单击左键,Button=2表示的是单击右键,所以当Button=1或者Button=2时才能实现此功能,所以答案选择B。

  • 第8题:

    执行下列程序后,鼠标单击窗体,输出结果为 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

  • 第9题:

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

    • A、AAAAA
    • B、BBBBB
    • C、AAAAA CR BBBBB(其中CR表示回车和换行)
    • D、BBBBB CR AAAAA

    正确答案:C

  • 第10题:

    假定有如下事件过程: Private Sub Form_MouseDown(Button as Integer,Shift as Integer, X as Single,Y as Single) If Button=2 Then PopupMenu PopForm End Sub 则以下描述中错误的是( )。

    • A、该过程的功能是弹出一个菜单
    • B、popForm是在菜单编辑器中定义的弹出式菜单的名称
    • C、参数X、Y指明鼠标的当前位置
    • D、Button=2表示按下的是鼠标左键

    正确答案:D

  • 第11题:

    单选题
    以下说法正确的是(  )。
    A

    MouseUp事件是鼠标向上移动时触发的事件

    B

    MouseUp事件过程中的X、Y参数用于修改鼠标位置

    C

    在MouseUp事件过程中可以判断用户是否使用了组合键

    D

    在MouseUp事件过程中不能判断鼠标的位置


    正确答案: D
    解析:
    MouseUp事件是当鼠标释放时触发的。鼠标事件的语法是:Private Sub对象_鼠标事件(Button As Integer,Shift As Integer,X As Single,Y As Single)。鼠标释放事件,可以通过X、Y参数获取当前鼠标光标位置。其中,Shift参数表示当鼠标键被按下或被释放时,Shift、Ctrl、Alt键的按下或释放状态。通过Shift值判断Shift、Ctrl、Alt组合键的状态。

  • 第12题:

    单选题
    窗体的MouseUp事件过程如下:Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)……End Sub关于以上定义,以下叙述中错误的是(   )。
    A

    根据Shift参数,能够确定使用转换键的情况

    B

    根据X、Y参数可以确定触发此事件时鼠标的位置

    C

    Button参数的值是在MouseUp事件发生时,系统自动产生的

    D

    MouseUp是鼠标向上移动时触发的事件


    正确答案: B
    解析:
    MouseUp事件是鼠标按键松开时触发的事件过程,事件过程的Button参数值由系统产生,为被按下的键,Shift参数表示Shift、Ctr1和Alt键的状态,X、Y参数表示光标的当前位置。鼠标移动时触发的事件是MouseMove。

  • 第13题:

    在以下事件过程中,可以在用户按下鼠标右键时,显示一个上边框,以鼠标当前位置为心的弹出式菜单,而且这个弹出式菜单还可以识别右键对菜单命令的选择,相应的选项;

    A.Private Sub Form. _ Mouse Up(Button As Integer,Shift AS Integer,_ X As Single,Y As Single) If Button=2 Then PopupMenu mnuEdit,vbPopupMenuCenterAlign Or_ vbPopupMenuRightButton,X,Y,mnuEditOpen End If End Sub

    B.Private Sub Form. _ MouseUp(Button AS Integer,Shift AS Integer,_ X As Single,Y As Single) If Button=2 Then PopupMenu mnuEdit, End If End Sub

    C.Private Sub Form. _ MouseUp(Button AS Integer,Shift AS Integer,_ X As Single,Y As Single) PopupMenu mnuEdit,vbPopupMenuCenterAlign Or_ vbPopupMenuRightButton End Sub

    D.Private SUb Form. _ MouseUp(Button AS Integer,_ Shift As Integer,X As Single,Y As Single) If Button=2 Then PopupMenu mnuEdit,2 End If End Sub


    正确答案:A
    解析:在VisualBasic中,允许出现快捷菜单,对用户来说,提供了很大的方便,一般来说,菜单都在窗口的顶部,有时,用户需要执行菜单中的某一命令,就得把鼠标移动到窗口顶部,然后打开菜单选择命令,这对用户来说,会觉得麻烦。而快捷菜单并不需要到窗口的顶部来打开,只要单击鼠标右键,就会弹出菜单。PopupMenu方法的使用形式如下:[对象]:PopupMenu菜单名,flags,x,y其中,x,y是提供菜单显示的位置;标志:指定快捷菜单的行为,当标志为0时,快捷菜单中的项只能对鼠标左键起反应,当标志为1时,快捷菜单中的项对鼠标右键和左键都反应;标志为2时,PopupMenu方法只能用在MouseDown事件过程中。如果指定一个flags参数,可以从分组中选择一个常数,用or连接起来即可。

  • 第14题:

    设已经在菜单编辑器中设计了窗体的快捷菜单,其顶级菜单为Bt,取消其“可见”属性,运行时,在以下事件过程中,可以使快捷菜单相应鼠标右键菜单的是

    A.Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_ X As Single, Y As Single) If Button=2 Then PopupMenu Bt, 2 End Sub

    B.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bt End Suh

    C.Private Sub Form. MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bt,0 End Sub

    D.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If (Button=vbLeftButton) Or ( Button=vbRightButton) Then PopupMenu Bt End Sub


    正确答案:A
    解析:在VisualBasic中,允许出现快捷菜单,对用户来说,提供了很大的方便,一般来说,菜单都在窗口的顶部,有时,用户需要执行菜单中的某一命令,就得把鼠标移动到窗口顶部,然后打开菜单选择命令,这对用户来说,会觉得麻烦。而快捷菜单并不需要到窗口的顶部来打开,只要单击鼠标右键,就会弹出菜单。设计快捷菜单仍然可以用VisualBasic中提供的菜单编辑器,只要把某个菜单设置成隐藏就可以了,实际上,不管是在窗口顶部菜单条上显示的菜单还是隐藏的菜单,都可以用PopupMenu方法把它们作为快捷菜单在运行时显示出来。PopupMenu方法的使用形式如下:[对象].PopupMenu菜单名,标志,x,y其中,x,y是提供菜单显示的位置;标志:指定快捷菜单的行为。当标志为0时,快捷菜单中的项只能对鼠标左键起反应;当标志为2时,快捷菜单中的项对鼠标右键和左键都反应;标志为2时,PopupMenu方法只能用在MouseDown事件过程中。

  • 第15题:

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

    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(ButtonAs Integer,Shift As Integer,X As Single,Y As Single)

    Print "Up"

    End Sub

    A.DownUpClick

    B.ClickDownUp

    C.DownClickUp

    D.UpDownCliek


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

  • 第16题:

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

  • 第17题:

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

  • 第18题:

    假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单的名称为a1,其“可见”属性为False,则程序运行后,可以同时响应鼠标左键单击和右键单击的事件过程是 ______。

    A.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 1 And Button = 2 Then PopupMenu al End If End Sub

    B.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)PopupMenu a1 End Sub

    C.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 1 Then PopupMenu a 1 End If End Sub

    D.Private Sub Form_ MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)If Button = 2 Then PopupMenu a 1 End If End Sub


    正确答案:B

  • 第19题:

    设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为al,且取消其"可见"属性。运行时,可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是

    A.Private Sub Form_Mouse Down(Button As Integer, Shift As Integer,_X As Single,Y As Single If Button=2 Then PopupMenu al,2 End Sub

    B.Private Sub Form_Mouse Down(Button As Integer, Shift As Integer,_X As Single, Y As Single PopupMenu al,0 End Sub

    C.Private Sub Form_Mouse Down(Button As Integer, Shift As Integer,_X As Single,Y As Single PopupMenu al End Sub

    D.Private Sub Form_Mouse Down(Button As Integer, Shift As Integer,_X As Single,Y As Single If(Button=vbLetfButton) Or (Button=vbRightButton) Then PopupMenu al End Sub


    正确答案:C
    解析:MouseDown事件用来响应鼠标单击,其中Button的参数用来确认鼠标按钮(1:左键;2:右键),PopupMenu 方法用以在指定坐标位置显示弹出式菜单,语法如下:[对象].PopupMenu 菜单名,标志,x,y。其中中x,y提供菜单显示位置;标志:指定快捷菜单的行为。

  • 第20题:

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

  • 第21题:

    对窗体编写如下事件过程: Private Sub Form_MouseDown(Button As Integer,Shif tAs 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
    • B、BBBBB
    • C、AAAAA CR BBBBB(其中CR表示回车和换行)
    • D、BBBBB CR AAAAA

    正确答案:C

  • 第22题:

    单选题
    对窗体编写如下事件过程: Private Sub Form_MouseDown(Button As Integer,Shif tAs 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

    B

    BBBBB

    C

    AAAAA CR BBBBB(其中CR表示回车和换行)

    D

    BBBBB CR AAAAA


    正确答案: A
    解析: 暂无解析

  • 第23题:

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

    AAAAA

    B

    BBBBB

    C

    AAAAA CR BBBBB(其中CR表示回车和换行)

    D

    BBBBB CR AAAAA


    正确答案: D
    解析: 暂无解析

  • 第24题:

    单选题
    假定有如下事件过程: Private Sub Form_MouseDown(Button as Integer,Shift as Integer, X as Single,Y as Single) If Button=2 Then PopupMenu PopForm End Sub 则以下描述中错误的是( )。
    A

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

    B

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

    C

    参数X、Y指明鼠标的当前位置

    D

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


    正确答案: D
    解析: 暂无解析