违法和不良信息举报 联系客服
免费注册 登录

窗体的MouseUp事件过程如下：Private Sub Form_MouseUp（Button As Integer,

题目
单选题
窗体的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是鼠标向上移动时触发的事件

参考答案和解析
正确答案： C
解析：
MouseUp事件是鼠标按键松开时触发的事件过程，事件过程的Button参数值由系统产生，为被按下的键，Shift参数表示Shift、Ctr1和Alt键的状态，X、Y参数表示光标的当前位置。鼠标移动时触发的事件是MouseMove。
如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" Text1.SetFocus End Sub Phvate Sub Form_MouseUp(Buuon As Integer,Shift As Integer,X As Single，Y As Single) Phnt“程序设计” End Sub Private Sub Textl_KeyDow

A．Visual Basic

B．程序设计

C．A程序设计

D．VisualBasic程序设计


正确答案：D

第2题：

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

第3题：

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

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．ClickDownUp

C．DownClickUp

D．UpDownClick


正确答案：A

第4题：

设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为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事件过程中。

第5题：

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

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连接起来即可。

第6题：

在窗体上画1个命令按钮，名称为Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“请输入：”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X＜10 Then Y=X Else Y=X＋10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为______。

A．0

B．5

C．15

D．无任何输出


正确答案：B
解析：单击窗体在释放鼠标时，将会触发Form_MouseUp事件，将Flag值置True，从而允许输出。在Command1的Click事件中，通过输入框输入5，并在窗体上输出f(5)，函数f的作用是，如果自变量x10，则直接返回 x，否则返回x＋10。故本题应输出5。

第7题：

设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load() Show Text1.Text="" Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer，_Shift As Integer,X As Single,Y As Single） Print"程序设计"End SubPrinvate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print "Visual Basic";End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是。A．Visual BasicB．程序设计C．Visual Basic 程序设计D．a程序设计


正确答案：C
【解析】本题考查鼠标和键盘的事件过程。题目程序实现的功能是，当在文本框中有输入时，触发Text1_KeyDown事件，在窗体中输出“Visual Basic”，如果单击窗体，则会触发Form_MouseUp事件，在窗体中输出“程序设计”，所以正确答案为选项C。如果在文本框一直输入，则在窗体上会一直输出“Visual Basic”，同样，如果不停单击窗体，则在窗体上会一直输出“程序设计”。

第8题：

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

A．Private Sub Form_MouseUp（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

第9题：

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

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) 处画一个点。

第10题：

在窗体上画—个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text==" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print "VisualBasic"； End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是 ______。

A．Visual Basic

B．程序设计

C．A程序设计

D．Visual Basic程序设计


正确答案：D
解析：因为程序一运行，文本框Text1获得焦点，按下A键后，执行Text1_KeyDown事件，在窗体上显示“Visual Basic”；这时再单击窗体，则触发Form_MouseUp事件，在窗体上显示“程序设计”。

更多相关问题
相关内容