首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下过程: Private Sub Form_KeyDown(KeyCode As Integer, ShiftAs Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode
设有如下过程: Private Sub Form_KeyDown(KeyCode As Integer, ShiftAs Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyUp(KeyCode
admin
2020-02-27
37
问题
设有如下过程:
Private Sub Form_KeyDown(KeyCode As Integer, ShiftAs Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode+2)
End Sub
若把窗体的KeyPreview属性设置为True,程序运行后,如果按”A”键,则输出结果为( )。
选项
A、
B、
C、
D、
答案
C
解析
考查窗体的键盘事件。当按下键盘上某个键时,触发KeyPress事件;按下键盘某个键过程中,触发事件KeyDown事件;当松开键盘某个键时,触发事件KeyUp。KeyDown和KeyUp事件返回的是键盘的直接状态(返回的是”键”),KeyCode参数是用户按下的那个键的扫描码,而KeyPress返回的是”字符”的ASCⅡ码,两者不同。当窗体的KeyPreview设置为True时,如果焦点从控件上跳到窗体上,则该控件的键盘事件也会被触发。
题中只有窗体的KeyDown和KeyUp事件,因此当按下”A”键时,触发KeyDown事件执行”Print Chr(KeyCode)”语句,其中Chr函数的功能是将ASCⅡ码转换成相应的字符,因此输出字母”A”;当松开”A”键时,触发KeyUp事件执行”Print Chr(KeyCode+2)”语句,因此输出字母”C”。
转载请注明原文地址:https://kaotiyun.com/show/ntTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("请输入一个整数"))fun(x)EndSubPrivateSubf
下面程序的执行结果是()。PrivateSubCommand1_Click()a=0k=1DoWhilek<4x=k^k^ak=k+1Printx;LoopEndSub
现有语句:y=IIf(x>0,xMod3,0)设x=10,则y的值是()。
软件测试用例包括()。
下面描述中不属于软件需求分析阶段任务的是()。
以下叙述中,错误的是()。
在窗体上画一个水平滚动条,其属性值满足Min<Max。程序运行后,如果单击滚动条右端的箭头,则Value属性值()。
表达式Sgn(15.6)+Int(-16.8)的值是
数据字典(DD)所定义的对象都包含于
在E—R图中,用来表示实体联系的图形是()。
随机试题
肾交感神经兴奋可引起
这个标志指示高速公路交通广播和无线电视频道。
香港、澳门回归祖国以后实行()
女,30岁,反复发热,咳嗽,咳黄脓痰1年,偶有脓血痰,体检:T37.5℃消瘦,右肺下部有干湿啰音,杵状指(+),X线胸片示右下肺背段空洞内有液平面,痰涂片结核菌(-),痰菌培养:绿脓杆菌(+)。下列治疗方案哪种最好
股骨及胫腓骨的内、外髁与髌骨组成的关节称
外商投资企业作为公司发起人时,其在公司中所占股本的比例,按照下列( )规定执行。
Jonny:Hey!I’mjustpracticingTaiChi(太极).Wouldyouliketojoinme?Peter:Iknownothingaboutit.Isitdifficult?Jonny:
Hewillcomeback______nextmonth.
Anumberoffactorsrelatedtothevoicerevealthepersonalityofthespeaker.Thefirstisthebroadareaofcommunication,
Thefunnythingabouthowabankworksisthatitfunctionsbecauseofourtrust.Wegiveabankourmoneytokeepitsafeforu
最新回复
(
0
)