首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下两个事件过程: Private Sub Form KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End SUb Private Sub
编写如下两个事件过程: Private Sub Form KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End SUb Private Sub
admin
2012-12-08
58
问题
编写如下两个事件过程:
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
解析
本题主要考查Key亡)own和KeyPress事件,Keyr30,hrn事件返回的是键盘的直接状态,即“键”,而KeyPress事件返回的是“字符”的ASCII码。第一个事件中的Key(:ode码以“键”为准,而不是“字符”为准,即大写字母与小写字母使用同一个键,它们的KeyCode相同(使用大写字母的ASCII码)。KeyAS(:ii是指所按键的ASCII码,本题按下“A”键,其实输入的是a,所以正确答案为选项A。
转载请注明原文地址:https://www.kaotiyun.com/show/73hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
一个工程中包含两个名称分别为Form1、Form2的窗体,一个名称为mdlFune的标准模块。假定在Forml、Form2和mdlFunc中分别建立了自定义过程,其定义格式为:Forml中定义的过程:PrivmeSubfrmFunc
在窗体上画一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2,标题分别为空白和“共有文件”的标签。编写程序,使得驱动器列表框与目录列表框、目录列表框与文件列表框同
在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Labet3的标签,然后编写如下代码:PrivatexASIntegerPrivateSubCommand1_Click(
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是
假定有以下函数过程:FunctionFun(SAsString)AsStringDims1AsStringFori=1ToLen(S)s1=UCase(Mid(S,i,1
表示滚动条控件取值范围最大值的属性是
在程序运行期间可以将图形装入窗体、图片框或图像框的函数是
计算z的值,当x大于y时,z=x;否则z=y。下列语句错误的是
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是_________。
随机试题
粗丝CO2焊时,熔滴过渡形式往往都是短路过渡。
采用直线移距分度进行较高精度刻线时,除选用精度较高的分度头外,还应选用工作台移动精度较高的铣床进行加工。()
A.聚山梨酯80B.三氯叔丁醇C.磷酸氢二钠D.硫代硫酸钠E.乙二胺四乙酸二钠可作为注射剂增溶剂的是()
A.乙酰半胱氨酸B.乙酰胺C.维生素K1D.依地酸钙钠E.纳洛酮为避免出血症状,长期服用头孢哌酮者可力口服
2007年3月,甲公司聘用乙为业务经理,委托其负责与丙公司的业务往来。2008年4月,甲公司将乙解聘,但未收回乙所持盖有甲公司公章的空白合同书,亦未通知丙公司。同年5月,乙以甲公司业务经理的身份,持盖有甲公司公章的空白合同书,与丙公司签订了一份买卖合同。下
我党保持先进性和增强创造力的决定性因素是()。
影响股利分配政策的公司因素主要有()。
试述完善人权司法保障制度的措施。
Somefuturologistshaveassumedthatthevastupsurgeofwomenintheworkforcemayportendarejectionofmarriage.Manywomen,
MrMurdochbelievedthathispromotioncameItisphysicallypossibleto
最新回复
(
0
)