单选题窗体的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关于以上定义，以下叙述中错误的是（　　）。

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

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

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

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

相似考题

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

2.在窗体上画一个名称为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_KeyDowA．Visual BasicB．程序设计C．A程序设计D．VisualBasic程序设计

3.在窗体上画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．0B．5C．15D．无任何输出

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

更多“窗体的MouseUp事件过程如下：Private Sub Form_MouseUp（Button As Integer,”相关问题

第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 BBBBB
B．BBBBB
C．AAAAA
D．BBBBB AAAAA

正确答案：A
第2题：

在以下事件过程中，可以在用户按下鼠标右键时，显示一个上边框，以鼠标当前位置为心的弹出式菜单，而且这个弹出式菜单还可以识别右键对菜单命令的选择，相应的选项；
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连接起来即可。
第3题：

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

设窗体上有一个名为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 "Visual Basic"； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗本上显示的内容是
A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．a程序设计

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

阅读下列程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击一次窗体，再单击命令按钮，将显示一个输入对话框，如果在对话框中输入20，则程序的输出结果为
A．0
B．20
C．40
D．无任何输出

正确答案：C
解析：上述程序由一个通用过程和3个事件过程组成，在命令按钮事件过程中调用通用过程，并将一个参数传送给通用过程。这里要注意，只有在一定的条件下，才能调用通用过程，这个条件就是，窗体的Boolean变量SW的值必须为True，否则不能调用。而为了使SW的值为True，必须执行Form.MouseUp事件过程，这只能通过单击窗体来实现。单击窗体时，按下鼠标左键执行FormMouseDown事件过程，使得SW=False，松开鼠标后执行Form.MouseUp事件过程，使得=True。程序运行后，由于单击了一次窗体，执行了Form_Mouseup事件过程，再单击命令按钮，因而SW的值为True，调用通用过程后，在窗体上显示的内容是40。若没有事先单击窗体，而直接单击按钮，窗体上就没有任何内容输出。
第6题：

执行下列程序后，鼠标单击窗体，输出结果为
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事件包含鼠标按下和放开事件。
第7题：

编写如下代码：
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，则应执行的操作为______。

正确答案：按下鼠标左键或右键同时松开
按下鼠标左键或右键同时松开
第8题：

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

在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Textl.Text="" Textl.Set Focus End Sub Private Sub Form_MouseUp(Button As Inateger,Shift As Integer,X As Single,Y As Single) Frint"程序设计" End Sub Private Sub Textl_KeyDown(KeyCode As InteSer,Shin As Integer) Print"VisualBasic"； End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是______。
A．Visual Bask
B．程序设计
C．A程序设计
D．ViualBasic程序设计

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

执行下列程序后,鼠标单击窗体,输出结果为
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(ButtonAsInteger,Shift
As Integer, X As Single, Y As Single)
Print "Up"
End Sub
A．DownUpClick
B．ClickDownUp
C．DownClickUp
D．UpDownClick

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

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

单选题
对窗体编写如下事件过程： 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
解析：暂无解析
第13题：

设窗体上有一个名为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”，同样，如果不停单击窗体，则在窗体上会一直输出“程序设计”。
第14题：

下面程序是由鼠标事件在窗体上画图，如果按下鼠标可以画图，双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量：
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) 处画一个点。
第15题：

在窗体上画—个名称为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事件，在窗体上显示“程序设计”。
第16题：

在窗体上画一个名称为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"Visual Basic"； End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容_________。
A．Visual Basic
B．程序设计
C．A程序设计
D．Visual Basic程序设计

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

设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为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 Sub
B．Private Sub Form_MouseDown(ButtonAsInteger，ShiftAsInteger，X As Single，Y As Single) PopupMenu a1，0 End Sub
C．Private Sub Form_Mouse Down(Button As Integer，Shift As Integer，X As Single，Y As Single) PopupMenu a1 End Sub
D．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

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

在窗体上画一个名称为Commana1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func = Y End Function Private Sub Form. MouseDown(Button As Integer,_ Shift As Integer,X As Single, Y As Single) SW = False End Sub Private Sub Form_MouseUp( Button As Integer,_ Shift As Integer ,X As Single, Y As Single) SW = True End Sub Private Sub Commandl_Click( ) Dim intNum As Integer intNum = InputBox(" ") If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为
A．输出0
B．输出25
C．输出45
D．无任何输出

正确答案：C
解析：本题考查的是鼠标事件，当压下鼠标左键(发生MouseDown时)SW的值为False，当松开鼠标左键(触发MouseUp时)SW的值为True。
第19题：

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

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

在窗体上画一个名称为Text1的文本框，并编写如下程序： Private Sub Form Load( ) Show Text1.Text="" Text1.SetFocus End Sub Pfivate Sub Form_MouseUp(BuHon 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"Visua1 Basic"； End Sub 程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是
A．VisualBasic
B．程序设计
C．A程序设计
D．Visual Basic程序设计

正确答案：D
解析：按“A”键，将执行“Print”VisualBasic”；”语句，单击窗体，执行“Print”程序设计“”语句。注意“Print”VisualBasic“；”后面以分号结束，则执行下面的Print语句输出的字符会以紧凑方式与之相连。
第22题：

设有如下程序； 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 "Visual Basic" End Sub程序运行后，如果在文本框中输入字母a(即直接按a键)，然后单击窗体，则在窗体上显示的内容是______。
A．Visual Basic
B．程序设计
C．Visual Basic程序设计
D．A程序设计

正确答案：C
第23题：

单选题
对窗体编写如下事件过程： 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
解析：暂无解析

题目

相似考题

更多“窗体的MouseUp事件过程如下：Private Sub Form_MouseUp（Button As Integer,”相关问题

相关内容