首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有两个名称分别为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
53
问题
窗体上有两个名称分别为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全国计算机二级
相关试题推荐
单击命令按钮执行以下程序,则输出结果为()。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=14:y=48:CallProc(x,y)Printx;yEndSub
表达式Int(8*Sqr(36)*10^(-2)*10+0.5)/10的值是()。
线性表常采用的两种存储结构是()。
下面关于菜单的叙述中正确的是
在考生文件夹下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮,则把文件中的内容读入并
以下能够正常结束循环操作的程序段是
在窗体上建立一个命令控件数组Commandl,并双击第一个命令按钮,编写如下事件过程:PrivateSubCommandl_Click(IndexAsInteger)Commandl(Index).Caption=Format$(Now,"hh
在软件开发中,需求分析阶段可以使用的工具是( )。
设A、B、C是三角形的3条边,则以下表示"任意两边之和大于第三边"的布尔表达式是
设在工程文件中有一个标准模块,其中定义了如下记录类型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮
随机试题
下面描述中叙述错误的是
施工合同示范文本规定,当合同文件发生矛盾时,应按顺序进行解释。下列排序中正确的是()。
[背景资料]某综合利用水利枢纽工程位于我国西北某省,枯水期流量很少;坝型为土石坝,黏土心墙防渗;坝址处河道较窄,岸坡平缓。工程中的某分部工程包括坝基开挖、坝基防渗及坝体填筑,该分部工程验收结论为:“本分部工程划分为80个单位工程,其中合格30个,优良50
墙体节能工程,现场拉拔试验是检验保温板材与基层的()。
在进行标准成本差异分析时,通常把变动成本差异分为价格脱离标准造成的价格差异和用量脱离标准造成的数量差异两种类型。下列标准成本差异中,通常应由生产部门负责的有()。2010年
颁布《中华人民共和国教育法》的国家机关是()
历史和现实都告诉我们,只有社会主义才能救中国,只有中国特色社会主义才能发展中国。在当代中国,坚持中国特色社会主义,就是真正坚持()
设矩阵Am×n的秩r(A)=m
数据管理技术发展的三个阶段中,()没有专门的软件对数据进行管理。1.人工管理阶段Ⅱ.文件系统阶段Ⅲ.数据库阶段
Imagine,JohnLennon’smostfamoussong,wasrecentlyvoted"Britain’sfavouritesongofalltime".It’sanidealistsongabou
最新回复
(
0
)