首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(Key Ascii As Integer) Dim char As String char=Chr(KeyAscii)
在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(Key Ascii As Integer) Dim char As String char=Chr(KeyAscii)
admin
2013-01-23
68
问题
在窗体上画一个文本框,然后编写如下事件过程: Private Sub Text1_KeyPress(Key Ascii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char)) TextText=String(6,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则文本框中显示的内容为 ______。
选项
A、a
B、A
C、aaaaaaa
D、AAAAAAA
答案
8
解析
该事件过程中首先用Chr函数记录下输入的字符,然后用UCase函数将其转化为大写,再用Asc函数记录下其码值。最后使用String函数将其重复6遍并输出到文本框中。当文本框中的文本内容发生变化的时候,会触发文本框的Change事件,而KeyPress事件是在Change事件之前触发的,在发生KeyPress事件之前,尚未触发Change事件。在KeyPress事件中,改变了文本框的Text属性,所以会触发Change事件,之后,键盘输入的信息“a”才在变为大写之后输入文本框,文本框中最终显示的是7个“A”。
转载请注明原文地址:https://kaotiyun.com/show/rwhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,名称为Command1。然后编写如下程序:PrivateSubCommand1_Click()DimjAsInteger,sAsIntegers=1Dos=s+j
在窗体上画一个命令按钮,然后编写如下代码:PrivateTypeRecordIDAsIntegerNameAsString*20EndType
在窗体上有一个名为Image1的图像框,现在要把“D:”盘根目录下的图片文件“Fox.bmp”在其中显示出来,使用的语句是【】。
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0
下列程序实现的功能是:当在窗体上单击时,把C盘根目录下的文件a1.txt复制到D盘,并取名为a2,txt。PrivateSubForm_Click()DimChAsStringOpen"c:\a1.txt"
关于随机文件,下列说法错误的是()。
下面程序运行时,内层循环的循环总次数是ForM=1To3ForN=0TOM—1NextNNextM
在窗体模块的通用部分有一条语句"PublicAAsInteger",则变量A的作用域是()。
以下叙述中,正确的一条是______。
设a=2,b=3,c=4,d=5,下列表达式的值是______。Nota<=cOr4*c=b^2Andb<>a+c
随机试题
面粉中所含的淀粉种类、数量不同,产生主坯的特性是相同的。()
外斐反应属于
毒物中毒的严重程度与后果往往取决于作用毒物的剂量、作用的时间以及诊断和救治是否准确与及时等。对于急性中毒者,必须迅速做出准确判断,及时果断地采取有效的救治措施。皮肤接触腐蚀性毒物,须用中和液或解毒液冲洗,且冲洗要达()
男性,60岁。行前列腺增生摘除术,术后膀胱冲洗时应选择的溶液是()。
财务分析方法中,采用()可以分析变化的原因和性质,并预测企业未来的发展前景。
对于同一个消费者来说,同样数量的商品总是提供同量的效用。()
我国水资源的人均占有量仅为世界人均占有量的()。
306,206,137,79,46,()
每个人的生命只有一次,即使在人生的道路上,事业、前途、爱情、家庭都如泡沫一样破灭了,也不必悲观,不要绝望。要知道,生存本身就是一种资本,一种幸运。一种对不公命运勇敢的挑战。感谢生命,赋予我像杨絮一样纯洁而质朴,异常珍贵而不懈追求的存在。作者要表达的观点是
Natalie,MichelleandAnthonyhavetobeatschoolby8:45a.m..Michelleisneverlateforschool.OnMondayAnthonywaslate
最新回复
(
0
)