首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有两个名称分别为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
21
问题
窗体上有两个名称分别为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全国计算机二级
相关试题推荐
在新建一个VisualBasic工程时,将新建窗体的Name属性设置为TheFirst,则默认的窗体文件名为()。
为了使模块尽可能独立,要求______。
下列程序要求用户输入一个年份,并能够判断用户输入的年份是否是闰年,下划线处应填()。SubEnSure()DimyearAsIntegeryear=Val(InputBox("请输入年份:"))If(yearMod
下列程序的功能是;将数据1,2,…,8写入顺序文件Num.txt中,请选择正确的程序段()。PrivateSubForm_Click()DimiAsIntegerOpen"Num.txt"ForOut
设有如下过程:Subff(x,y,z)x=y+zEndSub下列选项中所有参数的虚实结合都是传址方式调用的是()。
要使一个文本框具有水平和垂直滚动条,则应先将其Mu1tiLine属性设置为True,然后再将Scro11Bars属性设置为()。
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To
假设在窗体Form1画一个通用对话框控件CommonDialogl,要建立“打开文件”对话框,为了使得该对话框的标题显示为“打开文件”,那么可以实现该功能的语句是______。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommaadl_Click()Dimarrayl(10,10)AsIntegerDimi,
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()aS="VisualBasic"
随机试题
某饮品企业通过市场调查,对碳酸饮料未来的市场前景进行了研判和推断,根据市场调查的目的进行分类,该企业进行的这种市场调查属于()。
微机调节机械运动位置属于微机应用中的()。
一个高质量的WBS应具有哪些特征?
烧伤后补充液体分配正确的方法是
常与麦角胺配伍治疗偏头痛的药物是
丹毒治疗的重要环节是
患者,男,67岁。脑梗死后言语不利15天。查体:张口困难,舌运动困难,发音不清,吞咽障碍,听理解、阅读理解、书写正常。应进行的评定是
金泰土地综合开发公司以出让方式获得大连市中心一块黄金地段的土地使用权。双方在出让合同中约定,金泰公司将该土地用于公共娱乐设施及公园建设。1998年7月,由于商品房市场行情看涨,该公司决定将该黄金地段土地用于商品房开发建设。下列表述正确的是:
涂料涂覆方法中,电泳涂装法的特点有()。
行政处罚是行政主体依法对违反行政法律规范的管理相对人的惩罚。()
最新回复
(
0
)