首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设在窗体上有个文本框,然后编写如下的事件过程: 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
70
问题
设在窗体上有个文本框,然后编写如下的事件过程:
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全国计算机二级
相关试题推荐
有如下程序段if(x>0){System.out.println("first");}elseif(x>-4){System.out.println("second");{else{System.out.println("thir
顺序执行下列程序语句后,则b的值是Stringa="Hello";Stringb=a.substring(0,2);
Java语言的各种数据类型之间提供两种转换:自动转换和______。
为了区分类中重载的同名的不同的方法,要求()。
数据流图的类型有______和事务型。
自定义表格类中model部分应实现的接口是( )。
下列关于栈的叙述中不正确的是()。
一个applet标记中,必须出现的属性项有【】、WIDTH、HEIGHT。
在下列AWT的基本构件中,哪一个为下拉式菜单组件的名称?
软件开发离不开系统环境资源的支持,其中必要的测试数据属于
随机试题
Cultureshockisanoccupationaldisease(职业病)forpeoplewhohavebeensuddenlytransplantedabroad.Cultureshockiscaus
阅读《再别康桥》中的一段文字,并回答下列小题:悄悄的我走了,正如我悄悄的来;我挥一挥衣袖,不带走一片云彩。《再别康桥》最后一节诗与第一节略有重复,主要表现了诗人什么样的思想感情?
健康素养是维持和促进健康的一种
洋地黄中毒常见的心律失常有
根据技术分析理论,葛兰威尔法则可以用来判断是否出现( )。
“十个手指有长短”这句话表明,在学生发展过程中存在()。
()可以依法对公民的通信内容进行检查。
设D={(x,y)|x2+y2≥1,(x—1)2+y2≤1},求。
•Readtheadvertisementbelow.•ChoosethebestwordorphrasetofilleachgapfromA,B,C,orDontheoppositepage.•Forea
Customhasnotbeencommonlyregardedasasubjectofanygreatmoment.Theinnerworkingsofourownbrainswefeeltobeuniqu
最新回复
(
0
)