首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下: Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下: Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String
admin
2019-03-14
62
问题
窗体上有两个名称分别为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/MOFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为CD1的通用对话框,一个名称为Command1的命令按钮,其事件过程如下:PrivateSubCommand1_Click()CD1.Filter="AllFile|*.*|Word|*.Doc|*.exe|*.ex
在窗体上画一个名为Commandl的命令按钮,然后编写如下代码:OptionBase1PrivateSubCommandl_Click()Dimaa=Array(1,2,3,4)j=1F
下面控件中,没有Caption属性的是( )。
如果要在图片框Picture1中输出文本"图片框",则正确的语句是
下列关于InputBox函数的叙述中,错误的是
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
表达式Sgn(0.25)的值是( )。
在考生文件夹下有一个工程义件sjt5.vbp,其窗体上有两个标题分别是“读数据”和“统计”的命令按钮。请添加两个标签,其名称分别是Label1和Label2,标题分别为“最长单词的长度”和“以该长度最后一次出现的单词是”;再添加两个名称分别为Text1和T
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件灾下的in5.dat文件中
编写如下程序:PrivateSubCommand1_Click() DimiAsInteger,jAsInteger n=InputBox("输入一个大于1的正整数") Fori=2Ton Forj=2To
随机试题
A.百会、神门B.肾俞C.印堂D.气海、肺俞、足三里遗尿肾阳虚者加
左肾上腺解剖描述中,下列哪一项最确切
患者女,67岁。发现乳腺包块1个月余,伴乳头溢液,X线图像如下,最有可能的诊断是
试戴时,可采用如下方法判断颌位关系是否正确,除了
王某过世后留下的6间房屋应由哪些人分配?各自应分得多少?为什么?如王乙要求以自己的名义代位请求孙某支付车祸致人损害的赔偿金,其主张能否得到支持?为什么?
以下属于准公共产品的是()。
你是一个工作组的组长,你们组的小马性格直爽。只对组里很有才能的同事非常尊敬,对其他同事则爱答不理。请问你如何与他沟通?
A、正确B、错误B
Peoplefrommanyplacesweredrawntothecitybyitsgrowingeconomy.
It’spossibletoadmireOprahWinfreyandstillwishHarvardhadn’tawardedheranhonorarydoctoroflawdegreeandthecommenc
最新回复
(
0
)