首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有两个名称分别为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
29
问题
窗体上有两个名称分别为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
为了在窗体上画一个文件列表框,应先在工具箱窗口中选中的图标是
(1)在名称为Form1的窗体上添加一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图所示。要求:程序中不得使用变量,每个事件过程
在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下程序:FunctionFun(xAsInteger,yAsInteger)AsIntegerFun=IIf(x
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是( )。
(1)在考牛文件灾下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文
如果要将一个窗体从内存中清除,应使用的语句是
编写如下程序:PrivateSubCommand1Click()n=InputBox(“输入一个数”)DoWhilen0Printn\10MOd10;:PrintnMod10;:11=n\100LoopPrintsE
表达式4+5\6*7/8Mod9的值是()。
已知二叉树后序遍历序列是CDABE,中序遍历序列是CADEB,它的前序遍历序列是()。
随机试题
关于Χ线产生条件的叙述,错误的是
对患者人格的尊重主要在于维护患者的
我围现行困家统一的会计制度包括()。
“备案号”栏应填:“用途”栏应填:
2015年12月10日,甲民间非营利组织按照与乙企业签订的一份捐赠协议,向乙企业指定的一所贫困小学捐赠电脑50台,该组织收到乙企业捐赠的电脑时进行的下列会计处理中,正确的有()。
战国时,各派学者大量集中之地是()。
个体难以清楚陈述、只能借助于某种作业形式间接推测其存在的,主要用来解决“做什么”和“怎么做”问题的知识称为()。
胡夫金字塔:埃及
设f(x)在[a,b]上连续,在(a,b)内存在二阶导数,且f(a)=f(b)=0,∫abf(x)dx=0.证明:存在c∈(a,b),使得f(c)=0。
ZinédineZidane______lapersonnalitépréféréedesFran?ais,selonleTop50despersonnalités,réaliséparl"IfoppourleJour
最新回复
(
0
)