首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过程: Private Sub Text1_Keyaress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(C
在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过程: Private Sub Text1_Keyaress(KeyAscii As Integer) Dim str As String,n As Integer str=UCase(C
admin
2020-02-27
113
问题
在窗体上有一个文本框Text1,Text属性值为空,然后编写如下事件过程:
Private Sub Text1_Keyaress(KeyAscii As Integer)
Dim str As String,n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1.Text=String(n,str)
End Sub
程序运行后,如果在文本框中输入字母“p”,则在文本框中显示的内容为( )。
选项
A、pp
B、pP
C、PP
D、Pp
答案
B
解析
本题考查字符串函数的应用。在Text1中按下字母“p”,则首先显示字符“p”,接下来触发KeyPress事件,其中,UCase把字符“p”转化为大写字母,显示大写字母“P”。
转载请注明原文地址:https://kaotiyun.com/show/CxTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在程序运行时,下面的叙述中正确的是( )。
默认属性是某种控件最常用或最重要的属性,在VisualBasic中设置这样的属性时,不必给出属性名。下列中默认属性不是Value的控件是
为计算1+2+22+23+24+…+210的值,并把结果显示在文本框Text1中,若编写如下事件过程:PrivateSubCommand1_Click()Dimao/0,b%,i%s=1:a=2Fori=2
在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生20个0~1000的整数,将其放入一个数组中,然后输出这20个整数的平均值。程序运行后,单击命令按钮(名称为Command1,标题为“输出平均值”),即可求出其
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,shiftAsInteger)DimcAsStringc=UCa
某人编写了向随机文件中写一条记录的程序,代码如下:TypeRTypeNameAsString*10TelAsString*20EndTypePrivateSubCommand1_Click()DimpAsRTypep.N
用来设置文字字体是否斜体的属性是()。
以下关于菜单的叙述中,错误的是()。
名称为List1的列表框中已有若干列表项,为了使选中的列表项重复出现在列表的最后,应使用的语句为()。
软件生存周期中,解决软件“怎么做”的阶段是()。
随机试题
如果使用IE上网浏览网站信息,使用的是互联网的______________服务。
女,40岁。外阴轻度瘙痒2年,外阴皮肤黏膜逐渐变白、变薄、失去弹性、干燥。最有可能患
上消化道出血胃热壅盛证上消化道出血热伤营血证
房屋重置价格,包括建造它所需的一切合理、必要的()。
交易过程中。结算系统发生故障导致结算失败,可能造成交易成本上升,但不会银行信用风险。()
货币性项目是企业持有的货币和将以同定或可确定金额的货币收取的资产或者偿付的负债。()
A公司目前想对甲公司进行价值评估,甲公司2012年的有关资料如下:(1)营业收入1000万元,销售成本率(不含折旧与摊销)为60%,销售和管理费用(不含折旧与摊销)占销售收入的15%,折旧与摊销占销售收入的5%。资产减值损失为14万元(金融活动),公允价
Believeitornot,therearegoodreasonsforwearingaschooluniform.Itmakesyou【C1】______proudofyourschool.Itbuildsa
以下哪项将减少公司的净营运资本?()[中国人民大学2012研]
Manhasbeenstoringupusefulknowledgeabouthimselfandtheuniverseattheratewhichhasbeenspiralingupwardfor10,00
最新回复
(
0
)