根据Shift参数,能够确定使用转换键的情况
根据X、Y参数可以确定触发此事件时鼠标的位置
Button参数的值是在MouseUp事件发生时,系统自动产生的
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
第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
第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表示按下的是鼠标左键
第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用来设置鼠标当前位置的坐标
第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
第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
第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
第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程序运行后,如果单击鼠标右键,则输出结果为()
第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 则以下描述中错误的是( )。
第11题:
MouseUp事件是鼠标向上移动时触发的事件
MouseUp事件过程中的X、Y参数用于修改鼠标位置
在MouseUp事件过程中可以判断用户是否使用了组合键
在MouseUp事件过程中不能判断鼠标的位置
第12题:
根据Shift参数,能够确定使用转换键的情况
根据X、Y参数可以确定触发此事件时鼠标的位置
Button参数的值是在MouseUp事件发生时,系统自动产生的
MouseUp是鼠标向上移动时触发的事件
第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
第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
第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
第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
第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
第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
第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
第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
第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 程序运行后,如果单击鼠标右键,则输出结果为()
第22题:
AAAAA
BBBBB
AAAAA CR BBBBB(其中CR表示回车和换行)
BBBBB CR AAAAA
第23题:
AAAAA
BBBBB
AAAAA CR BBBBB(其中CR表示回车和换行)
BBBBB CR AAAAA
第24题:
该过程的功能是弹出一个菜单
popForm是在菜单编辑器中定义的弹出式菜单的名称
参数X、Y指明鼠标的当前位置
Button=2表示按下的是鼠标左键