首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有窗体的Form_MouselVlove事件过程如下: Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y A8 Single) If(B
设有窗体的Form_MouselVlove事件过程如下: Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y A8 Single) If(B
admin
2020-07-22
17
问题
设有窗体的Form_MouselVlove事件过程如下:
Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y A8 Single)
If(Button And 3)=3 Then
Print"检查按键"
End If
End Sub
关于上述过程,以下叙述中正确的是( )。
选项
A、按下鼠标左键时,在窗体上显示“检查按键”
B、按下鼠标右键时,在窗体上显示“检查按键”
C、同时按下鼠标左、右键时,在窗体上显示“检查按键”
D、不论做何种操作,窗体上都不会显示
答案
C
解析
MoseMove事件中的Button表示鼠标所有按键的状态。用0、1、2三个位表示左、右、中键,当按下某个键时。相应位是1,否则是0。三位的二进制数也可转换为十进制数,作为Button的值。如表:
本题中当Button值为011或111时,(Button And 3)=3,条件才成立,窗体上显示“检查按键”。这说明只要同时按下鼠标的左右键时,在窗体上就显示“检查按键”。故选C。
转载请注明原文地址:https://jikaoti.com/ti/0wS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
从键盘上输入一个浮点数asingle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asingle=InputBox("请输入一个浮点数:")str1$=Str$(asing
以下叙述中错误的是()。
对关系S和关系R进行集合运算,结果中既包含关系S中的所有元组也包含关系R中的所有元组,这样的集合运算称为()。
执行下列语句:strInput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击"确定"按钮,则变量strInput的内容是( )。
以下关于图片框、图像框的叙述中,正确的是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivateSubCommand1_Click() Dims1AsString,s2AsString Open"
在窗体上建立三个菜单(名称分别为Read、Calc和Save,标题分别为“读入数据”、“计算并输出”和“存盘”),然后添加一个文本框(名称为Text1,可显示多行,ScrollBars属性设置为2)(如图所示)。程序运行后,如果执行“读人数据”命令,则读入
考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”,同时还设计出窗体对象“fStud”和子窗体对象“fDetail”。请在此基础上按照以下要求补充“fStud”窗体的设计。(1)将窗体标题改为“学生查询”
请根据以下各小题的要求设计Visua,Basic应用程序(包括界面和代码)。(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“
随机试题
血浆胶体渗透压主要由下列哪项形成
压力蒸汽灭菌的消毒物品的包装要求,不正确的是
编制物资供应计划的实际工作中首先应考虑()的平衡。
浅滩疏浚弃土处理应充分利用于()。
根据《建设工程工程量清单计价规范》GB50500—2013,关于全额政府投资项目招标控制价的说法,正确的有()。
期货交易所的下列行为中不需要中国证监会批准的是( )。
下列关于存款利息计算的说法,正确的是()。
[2015年]设函数y=y(x)是微分方程y"+y’-2y=0的解,且在x=0处y(x)取得极值3,则y(x)=_______.
E-R图是数据库设计的工具之一,它一般适用于建立数据库的()。
1ThemenandwomenofAnglo-SaxonEnglandnormallyboreonenameonly.Distinguishingepithetswererarelyadded.Thesemigh
最新回复
(
0
)