首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码: Dim SaveAll As String Private Sub Command1 Click() Text1.Text=Left(UCase(SaveAl
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码: Dim SaveAll As String Private Sub Command1 Click() Text1.Text=Left(UCase(SaveAl
admin
2013-04-11
29
问题
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:
Dim SaveAll As String
Private Sub Command1 Click()
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是【 】。
选项
答案
ABCD
解析
每在Text1中输入一个字符,都将触发一次KeyPress事件,该事件的作用是将当前所输入的字符连接到字符串SaveAll的后面。故字符输入结束后,SaveAll中的内容为“abcdefg”,Ucase函数是将字符串所有的字母都转换成大写字符,执行Ucase(SaveAll)的结果为“ABCDEFG”,Left(S,4)是取字符串S的前四个字符,作为一个字符串返回。故Left(Ucase(SaveAll),4)=Left("ABCDEFG",4)="ABCD"。本空填:ABCD。
转载请注明原文地址:https://kaotiyun.com/show/wvhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程:PrivateSubCommand1_Click()A=
表达式“12+34”的值是【】,表达式“12”&“34”的值是【】。
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:PrivateSubCommand1_Click()StaticAAsIntegerStaticBAsIntegerB
假定有如下事件过程:PhvateSubForm_Click()DimXASInteger,nASIntegerx=1n=0DoWhilex<28x=x*
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。在考生文件夹下有工程文件sjt5.vbp及窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时
注意:下面出现的“考生文件夹”均为C:\wexam\25160002。请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个水平滚动条,其名称为HScroll1,然后通过属性窗
下述关于数据库系统的叙述中正确的是
VisualBasic逻辑运算符Xor、Or、Eqv、And中,级别最高的运算符是______。
以下关系表达式中,其值为假的是
下面关于完全二叉树的叙述中,错误的是______。
随机试题
简述科尔伯格的道德发展阶段理论。
当在使用轮廓功能连续绘制草图时,如何从直线功能切换至圆弧方式
药品调剂配发中药学人员的职业道德和责任是
下列属于电热张拉预应力筋常用锚固方法的是()。
B类不确定度评定的常用方法有()。
社会政策的对象是指社会政策行动的具体实施对象,由于( ),有些社会政策的对象是针对所有公民的,有些社会政策是针对特定公民的,表现出一定的排他性。
问卷的核心是()。
()是构建社会主义和谐社会的领导核心和依靠力量。
在考生文件夹下存在一个数据库文件“samp2.accdb”,里面已经设计好三个关联表对象“tStud”、“tCourse”、“tScore”和一个空表“tTemp”,试按以下要求完成设计:(1)创建一查询,查找并输出姓名是三个字的男女学生各自的人
SpeakerA:IfIamnotmistaken,yourbirthdayiscomingup.Hasyourbrothersentyouanything?SpeakerB:Notyet.______.
最新回复
(
0
)