首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下: Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Dim c As Stri
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下: Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Dim c As Stri
admin
2020-04-18
32
问题
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:
Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)
Dim c As String
c=UCase(Chr(KeyCode))
Text2.Text=Chr(Asc(c)+2)
End Sub
当向文本框Text1中输入小写字母a时,文本框Text2中显示的是( )。
选项
A、A
B、a
C、C
D、c
答案
C
解析
KeyDown和KeyUp事件的KeyCode参数返回的是“键”,即按字母“A”和“a”时得到的KeyCode的值是相同的,都是&H41。因此程序中对输入“a”时得到的KeyCode,经Chr函数转为字符后为“A”,经UCase函数转换仍为“A”,所以变量c中的字符为“A”。Asc(c)将返回变量c中的第一个字符的ASCII,加2后,再由Chr函数转为字符即为“A”后面的第2个字符,即“C”。所以答案应为选项C。
转载请注明原文地址:https://kaotiyun.com/show/7uTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,放入一个数组中,然后输出这20个整数中小于500的所有整数之和。程序运行后,单击命令按钮(名称为Command1,标题为“输出小
开发大型软件时,产生困难的根本原因是()。
设有如下事件过程:PrivateSubCommand1_Click() Fori=1To5 j=i Do Print"*" j=j-1 LoopUntilj=0 NextiEnd
下面说法中错误的是
设在工程文件中有一个标准模块,其中定义了如下记录类型TypeBooks NameAsString*10 TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Com
为了在Form_Load事件过程中用Print方法在窗体上输出指定的内容,首先应执行的操作是
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt.in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a
有如下语句序列:Dima,bAsIntegerPrintaPrintb执行以上语句序列,下列叙述中错误的是( )。
窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程:PrivateSubText1_Change(IndexAsInteger) SelectCaseIndex Case0 Text1(1).
下面不属于软件设计阶段任务的是
随机试题
溶剂法常用载体为
办公区、生活区设置时,宜避开()等区域。
“待摊费用”账户如有余额,其余额只能在借方。()
银行汇票持票人向银行提示付款时,必须同时提交银行汇票和( )。
心理评估要求心理咨询师确定求助者在()方面的问题。
有些老年人因怕死而感到压抑。
患者,女性,52岁。因半年来右侧后牙咬合痛。冷热刺激痛,要求治疗。检查:17、46、47重度磨损,不均匀,探敏感点,冷热测敏感。16面可疑隐裂纹,探(-),叩(±),冷热刺激可引起疼痛,去除可缓解。引起该患者主诉牙最可能的原因为()。
邓小平说:“美好的前景如果没有切实的描施和工作去实现它,就有成为空话的危险。”这说明
Nospecieshasdevelopedacloserrelationshipwithhumanitythanthedog,thoughcat-loversmaydisagree.Butthatrelationship
A.removeB.judgeC.intelligenceD.indicateE.concerningF.consistsG.distinguishe
最新回复
(
0
)