首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有两个名称分别为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
2015-08-28
44
问题
窗体上有两个名称分别为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/PbLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,下划线处应填()。SubEnSure()DimyearAsIntegeryear=Val(InputBox("请输入年份:"))If(yearMod
下列子过程语句的说明正确的是()。
在窗体上有一个命令按钮Command1,通用过程fun和命令按钮的事件过程如下:PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun
要使一个文本框具有水平和垂直滚动条,则应先将其Mu1tiLine属性设置为True,然后再将Scro11Bars属性设置为()。
下列选项中不属于结构化程序设计方法的是()。
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To
以下能够触发文本框Change事件的操作是______。
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程;PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)
有如下事件过程:PrirateSubForm_Click()A$="123":B$="456"x=Val(A$)+Val(B$)Printx\100EndSub程序运行后,单
若要添加CommonDialog控件,则应从“工程”菜单中选定“部件”,在“部件”对话框的“控件”选项卡中选择______,将控件添加到工具箱中。
随机试题
推理是从一组具体事物经过分析综合得出一般规律,或者从一般规律推出新的具体结论的思维活动。前者叫演绎推理,后者叫归纳推理。()
细菌培养的前列腺标本必须做到
从某乡人口资料中得,全乡2005年年初人口数为15400人,年末人口数为17200人,全年活产数为174人。死亡总数为87人,其中新生儿死亡1人。计算该乡粗出生率的正确公式为
中毒型痢疾多见于
《建筑基坑支护技术规程》规定的一般土质地层是指我国范围内第四纪()沉积土。
桥梁上部结构的主要施工技术有()。
某市一帆风顺运输公司和北京方圆商业贸易公司签订一运输合同,将甲的货物运往乙地,合同列明运费20万元,保险费5万元,装卸费4万元,一帆风顺运输公司按“运输合同”缴纳的印花税为1000元。()
()是影响储存商品质量变化的主要因素。
从理论和一般常识上来检查资料内容是否合理,指标之间是否矛盾的数据审核方法是()。
"Howfarisittothenextvillage?"TheAmericanasksamansittingbythesideoftheroad.Insomecountries,becausetheman
最新回复
(
0
)