首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在窗体上有个文本框,然后编写如下的事件过程: 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
49
问题
设在窗体上有个文本框,然后编写如下的事件过程:
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://kaotiyun.com/show/mOmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
InputStreamReader类是以字节输入流作为数据源的【】。
下列代码中,将引起编译错误的行是1)publicclassExercise{2)publicstaticvoidmain(Stringargs[]){3)floatf=0.0;4)f+=1.
下面______不是创建数组的正确语句。
下列程序的运行结果为______。classA{intb=0;}publicclassex35pub
若按功能划分,软件测试的方法通常分为白盒测试方法和【】测试方法。
线程的______方法只给具有与当前线程相同优先级的线程运行的机会。
冒泡排序算法在最好的情况下的元素交换次数为【】。
如果将PasswordChar属性设置为一个字符,如星号(*),运行时,在文本框中输入的字符仍然会显示出来,而不显示星号,原因可能是
随机文件以【】为单位读写,随机文件的记录是【】记录。
随机试题
在操作Z8612型热芯盒射芯机时,必须保证各阀门的密封不漏气。()
下列各组词语没有错别字的一项是()
土壤有机质包括非腐殖质和__________两大类。
定期考核不合格的医师暂停执业活动期满,再次考核仍不合格的
下列哪一种属胺类激素
关于循证医学的三个要素,下列说法正确的是
港口与航道工程安全生产要求中,施工用电应严格执行国家、地方、企业的有关标准和规定,确保施工现场用电的安全、可靠、有效的运行,(),明确各级用电安全负责人和管理人员。
ATorontomanisofferingafreeround-the-worldairtickettotherightwoman.But【C1】________apply.YoumustbenamedElizabet
(Established)in1948,theStateUniversityofNewYorkisthe(singly)(largest)University(system)intheUnitedStates.
Inrecentdecades,theeconomicchangescreatedbyglobalizationandthenew,flexiblerequirementsofjobmarketsarethoughtt
最新回复
(
0
)