首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在窗体上有个文本框,然后编写如下的事件过程: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Const Alt=4 Const Key_F2=&H71 altdown%=(S
设在窗体上有个文本框,然后编写如下的事件过程: Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Const Alt=4 Const Key_F2=&H71 altdown%=(S
admin
2010-11-20
53
问题
设在窗体上有个文本框,然后编写如下的事件过程:
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt)>0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text="BBBBB"
End If
End Sub
上述程序运行后,如果按“Shift+F2”组合键,则在文本框中显示的是
选项
A、Alt+F2
B、BBBBB
C、随机出几个数
D、文本框内容无变化
答案
D
解析
此题是有关KeyDown事件的题目,KeyDown是当一个键被按下时所产生的事件,而KeyUp是松开被按键时产生的事件。如果要判断是否按下了某个转换键,可以用逻辑运算符And。例如,先定义了下面3个符号常量:Const Shift=1,Const Ctrl=2,Const Alt=4,然后用下面的语句判断是否按下“Shift”、“Ctrl”、“Alt”键。
如果Shift And Shift>0,则按下了Shift键。
如果Shift And Ctrl>0,则按下了Ctrl键。
如果Shift And Alt>0,则按下了Alt键。
这里的Shift是KeyDown的第2个参数;此事件过程中的If后的条件语句如果为真,则是按下了Alt+F2,而本题中是按下了Shift+F2,所以不执行Then语句,即文本框的内容无变化。
转载请注明原文地址:https://www.kaotiyun.com/show/mOmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不属于Java条件分支语句结构的是()
return语句从当前方法中退出,返回到调用该方法的语句处,并从紧跟该调用语句的【】继续程序的运行。
数据库管理系统常见的数据模型有层次模型、网状模型和【】3种。
下面程序定义了一个类,关于该类说法正确的是()。abstractclassabstractClass{}
某二叉树由5个度为2的结点以及3个度为1的结点,则该二叉树中共有______个结点。
一个applet标记中,必须出现的属性项有【】、WIDTH、HEIGHT。
向文件对象写入字节数据应该使用______类,而向一个文件里写入文本应该使用FileWriter类。
冒泡排序算法在最好的情况下的元素交换次数为【】。
在程序的空白处填写适当的语句(一个空白处只能填写一条语句),使程序完成相应的数据处理。Form_Load事件过程给数组赋初值35,48,15,22,67。Form_Click事件过程对数组元素进行处理。DimArr(1To5)Priv
下列4项对InputBox函数的使用说明,不正确的是()。
随机试题
A.感染灶质地坚韧,表面有多个黄色脓点B.有波动感和压痛C.红肿病灶与正常组织无明显界限D.全身不同部位有多个毛囊和皮脂腺的炎症符合疖病特点的是
关于桂枝的性味归经
危险和可操作性研究方法可按()个步骤来完成。
下列关于《中华人民共和国环境保护法》的主要环境监测标准和制度,说法错误的是()。
有围护结构的(),应按其围护结构外围水平面积计算。
根据《建设工程质量管理条例》规定,()应当建立质量责任制,确定工程项目的项目经理、技术负责人和施工管理负责人。
在证券交易所上市交易的基金,基金管理人均应编制并披露基金上市交易公告书。( )
下列关于考虑企业所得税条件下的MM理论的观点表述正确的有()。
一般资料:求助者,女性,48岁,公司职员。案例介绍:求助者的儿子在市重点中学读书,学习成绩一直非常优秀。高考前,儿子自己放弃了某名牌大学提前录取的机会,坚持参加高考,但发挥失常,只被普通院校录取。求助着非常生气,怨自己的孩子不争气,不给自己长面子
编写如下程序:PrivateSubCommand1_Click()DimnumAsIntegerDimkAsInteger,nAsIntegernum=InputBox("请输入一个正整数:")k
最新回复
(
0
)