首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程: Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程: Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(
admin
2012-09-07
142
问题
在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程:
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写),运行程序,如果按“A”键,则程序输出的是( )。
选项
A、A
a
B、a
A
C、A
A
D、a
a
答案
A
解析
本题考查键盘事件。KeyPreview属性用于设置是否在控件的键盘事件之前激活窗体的键盘事件。KeyPress(KeyAscii As Integer)事件是在对象具有焦点时,按下键盘上的键时触发的事件,其中的KevAscii参数是所按键的AscII的代码,每个字符的大、小写形式都是不同的键代码。而chr()可返回ASCII码对应的字符。KeyDown(Keycode As Integer,Shift as Integer)事件有两个参数,其中,Keycode参数是表示所按键的位置信息的代码,只要按下键,就返回该键的位置信息,不区分大小写,一律作为大写字符解释。本题的功能为输入A时,KeyDown事件输出大写字符A,而KeyPress事件则输出小写字符a。
转载请注明原文地址:https://kaotiyun.com/show/mDhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程: SubBTC(oldCopy()AsInteger,newCopy()AsInteger) DimiASInteger Fori=LBound(oldCopy())T
当双击窗体Form1时,要将窗体Form1隐藏起来、将窗体Form2以模式方式显示出来的事件过程,正确的是
一个关系中属性个数为1时,称此关系为
最简单的交换排序方法是
下面程序是由鼠标事件在窗体上画图,如果按下鼠标将可以画图,双击窗体可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量:DimPaintStartAsBoolean编写如下事件过程:PrivateSubForm_Load()
为了改变计时器控件的时间间隔,应该修改该控件的【】属性。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionM(xAsInteger,yAsInteger)AsIntegerM=IIf(x>y,x,y)EndFunction
单击命令按钮时,下列程序的执行结果为 PrivateSubCommand1Click() DimxAsInteger,yAsInteger x=12:y=32 CallPCS(x,y) Printx;y
下列说法错误的是
随机试题
业务库存现金可用量的匡算不取决于()。
若x→0时,(1一ax2)一1与xsinx是等价无穷小,则a=________.
男,48岁,突然发作上腹部疼痛,并放射至右肩部,疼痛难忍,疼痛持续2小时,体检右上腹明显压痛和反跳痛,肌紧张,体温38.5℃,脉搏110次/分,白细胞15×109/L为鉴别诊断,下列哪组检查帮助最大
缺铁性贫血患者经铁剂治疗至血红蛋白正常后,仍需继续服用铁剂多长时间
女,33岁。婚后7年未孕,痛经逐年加重。妇科检查:宫底韧带处可触及2个黄豆大小的结节,触痛明显,右侧附件区可触及一5cm×6cm大小的包块,活动差,半囊半实性。为明确诊断,最有效的检查方法是
下列关于嵌体洞斜面的描述中,错误的是()
产权产籍管理资料所提供的各种信息对()等城市建设和管理都是不可缺少的依据。
()之于学校相当于士兵之于()
下列关于磁道的说法中,正确的是
Readthearticlebelow.Choosethebestsentencefromthelistonthenextpagetofilleachofthegaps.Foreachgap(1
最新回复
(
0
)