网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
单选题
窗体的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事件是鼠标按键松开时触发的事件过程，事件过程的Button参数值由系统产生，为被按下的键，Shift参数表示Shift、Ctr1和Alt键的状态，X、Y参数表示光标的当前位置。鼠标移动时触发的事件是MouseMove。
MouseUp事件是鼠标按键松开时触发的事件过程，事件过程的Button参数值由系统产生，为被按下的键，Shift参数表示Shift、Ctr1和Alt键的状态，X、Y参数表示光标的当前位置。鼠标移动时触发的事件是MouseMove。
更多 “单选题窗体的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是鼠标向上移动时触发的事件” 相关考题
考题
执行下列程序后，鼠标单击窗体，输出结果为 。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
考题
在以下事件过程中，可以在用户按下鼠标右键时，显示一个上边框，以鼠标当前位置为中心的弹出式菜单，而且这个弹出式菜单还可以识别右键对菜单命令的选择，相应的选项是（ ）。A．Private Sub Form_MouseUp（Button As Integer, Shift As Integer, _X As Single, Y As Single）If Button=2 ThenPopupMenu mnuEdit, vbPopupMenuCenterAlign Or _vbPopupMenuRightButton, X, Y, mnuEditOpenEnd IfEnd SubB．Private Sub Form_MouseUp（Button As Integer, Shift As Integer, _X As Single, Y As Single）If Button=2 ThenPopupMenu mnuEdit,End IfEnd SubC．Private Sub Form_MouseUp（Button As Integer, Shift As Integer, _X As Single, Y As Single）PopupMenu mnuEdit, vbPopupMenuCenterAlign Or _vbPopupMenuRightButtonEnd SubD．Private Sub Form_MouseUp（Button As Integer , _Shift As Integer, X As Single, Y As Single）If Button=2 ThenPopupMenu mnuEdit, 2End IfEnd Sub
考题
以下说法中正确的是A．MouseUp事件是鼠标向上移动时触发的事件B．MouseUp事件过程中的x，y参数用于修改鼠标位置C．在MouseUp事件过程中可以判断用户是否使用了组合键D．在MouseUp事件过程中不能判断鼠标的位置
考题
（ 25 ）要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A ）Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）Print X,YEnd SubB ）Private Sub P1_MouseDown （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）Picture.Print X,YEnd SubC ）Private Sub P1_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）P1.Print X,YE n d S u bD ）Private Sub Form_MouseMove （ Button AS Integer,Shift As Integer,X As Single,Y As Single ）P1.Print X,YEnd Sub
考题
要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A．Private Sub P1_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) Print X，Y End SubB．Private Sub P1_M0useDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Picture．Print X，Y End SubC．Private Sub P1_MouscMove(Button As integer，Shift As Integer，X As Single，Y As Single) P1．Print X．Y End SubD．Private Sub Form_MouseMove(Button As Integer，Shift As Integer，x As Single，Y As Single) P1．Print X．Y End Sub
考题
在以下事件过程中，可以在用户按下鼠标右键时，显示一个上边框，以鼠标当前位置为心的弹出式菜单，而且这个弹出式菜单还可以识别右键对菜单命令的选择，相应的选项；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 SubB．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 SubC．Private Sub Form. _ MouseUp(Button AS Integer，Shift AS Integer，_ X As Single，Y As Single) PopupMenu mnuEdit，vbPopupMenuCenterAlign Or_ vbPopupMenuRightButton End SubD．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
考题
下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：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
考题
设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为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 SubB．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bt End SuhC．Private Sub Form. MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bt,0 End SubD．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
考题
假定有如下事件过程： 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表示按下的是鼠标左键
考题
执行下列程序后，鼠标单击窗体，输出结果为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
考题
编写如下代码：Dim Flag As BooleanPrivate Sub Form. MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)Flag = TrueEnd SubPrivate Sub Form. MouseMove (Button As Integer,Shift As Integer, X As Single, Y As Single)Flag = FalseEnd SubPrivate Sub Form_ MouseUp (Button As Integer,Shift As Integer, X As Single, Y As Single)If Flag = False ThenPrint "DDDD"End IfEnd Sub程序运行后，如果想在窗体上输出DDDD，则应执行的操作为______。
考题
对窗体编写如下事件过程： 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
考题
窗体的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用来设置鼠标当前位置的坐标
考题
对窗体编写如下事件过程： 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 BBBBBB．BBBBB AAAAAC．AAAAAD．BBBBB
考题
对窗体编写如下事件过程： 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 BBBBBB．BBBBBC．AAAAAD．BBBBB AAAAA
考题
假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为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 SubB．Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As SinglE)PopupMenu a1 End SubC．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 SubD．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
考题
假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为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 SubB.Private Stlb Form_MouseDown(Button As Integer，_Shift As Integer，X As Single， Y As Single) PopupMenu a1 End SubC.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 SubD.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
考题
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为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 SubB．Private Sub Form_Mouse Down(Button As Integer, Shift As Integer,_X As Single, Y As Single PopupMenu al,0 End SubC．Private Sub Form_Mouse Down(Button As Integer, Shift As Integer,_X As Single,Y As Single PopupMenu al End SubD．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
考题
执行下列程序后，鼠标单击窗体，输出结果为 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 SubA．DownUpClickB．CfickDownUpC．DownClickUpD．UpDownClick
考题
对窗体编写如下事件过程： 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 BBBB．BBBC．AAA AAAD．BBB
考题
对窗体编写如下事件过程： 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、AAAAAB、BBBBBC、AAAAA CR BBBBB（其中CR表示回车和换行）D、BBBBB CR AAAAA
考题
对窗体编写如下事件过程： 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、AAAAAB、BBBBBC、AAAAA CR BBBBB（其中CR表示回车和换行）D、BBBBB CR AAAAA
考题
假定有如下事件过程： 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表示按下的是鼠标左键
考题
单选题对窗体编写如下事件过程： 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
AAAAAB
BBBBBC
AAAAA CR BBBBB（其中CR表示回车和换行）D
BBBBB CR AAAAA
考题
单选题以下说法正确的是（ ）。A
MouseUp事件是鼠标向上移动时触发的事件B
MouseUp事件过程中的X、Y参数用于修改鼠标位置C
在MouseUp事件过程中可以判断用户是否使用了组合键D
在MouseUp事件过程中不能判断鼠标的位置
考题
单选题对窗体编写如下事件过程： 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
AAAAAB
BBBBBC
AAAAA CR BBBBB（其中CR表示回车和换行）D
BBBBB CR AAAAA
考题
单选题假定有如下事件过程： 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表示按下的是鼠标左键
热门标签
最新试卷