首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr=“” strL=Len(xStr)
设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer tStr=“” strL=Len(xStr)
admin
2018-09-19
64
问题
设有如下通用过程:
Public Function Fun(xStr As String)As String
Dim tStr As String,strL As Integer
tStr=“”
strL=Len(xStr)
i=strL/2
Do While i<=strL
tStr=tStr&Mid(xStr,i+1,1)
i=i+1
Loop
Fun=tStr&tStr
End Function
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Commandl_Click()
Dim S1 As String
S1=”ABCDEF”
Text1.Text=LCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,文本框中显示的是( )。
选项
A、ABCDEF
B、abcdef
C、defdef
D、defabc
答案
C
解析
程序中过程Fun的Do循环的功能是从参数字符串中依次取出后半部分的字符组成一个字符串,然后这个字符串再重复一次由函数返回。函数kn用于返回字符串的长度,过程中字符串的长度做为Do循环的结束条件。Mid是字符串中部截取函数,用来从指定位置开始截取指定个数的字符。过程中使用Mid(xStr,i+1,1),通过循环依次取出字符串后半部分的字符。函数返回的字符串经Lcase函数转换为小写然后显示在文本框中。程序中做为Fun过程参数的字符串为“ABCDEF”,经处理返回并转为小写后为“defdef”。
转载请注明原文地址:https://kaotiyun.com/show/GIFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
VB工程文件的扩展名是
语句x=x+1的正确含义是
下面属于系统软件的是
若实体A和B是一对一的联系,实体B和C是多对一的联系,则实体A和C的联系是
以下关于变量的叙述中,错误的是
对于语句DimVar1#,Var2AsInteger,下列说法中正确的是
某二叉树的前序序列为ABCDEFG,中序序列为DCBAEFG,则该二叉树的深度(根结点在第1层)为
VisualBasic控件一般都规定一个默认属性,在引用这样的属性时,只写对象名而不必给出属性名。默认属性为Caption的控件是( )。
窗体上有一个名称为Timer1的计时器控件,一个名称为Shape1的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubForm_Load() Shape1.Top=0 Timer1.Interval=100
下列运算符中,优先级别最低的是
随机试题
《张中丞传后叙》中,刻画南霁云的形象时,主要运用了()
去大脑僵直的猫,其主要表现有()
原发性闭经是指下列哪项
鹿茸的化学成分有
中国某公司与甲国Rerp公司因一宗投资项目产生争议,Rerp公司向甲国法院起诉中国某公司并获得胜诉判决。中国某公司败诉后就同一案件向我国法院提起诉讼。Rerp公司以该案件已经甲国法院判决生效为由对中国法院提出管辖权异议。依据我国法律、司法解释以及我国缔结的
船舶海上航行定位方法,按照参照目标可分为()两种。
民事诉讼中的地域管辖主要包括()。
某企业对一条生产线进行改扩建,该生产线原价1000万元,已计提折旧300万元,扩建生产线发生相关支出800万元(不考虑增值税),且满足固定资产确认条件,不考虑其他因素,则该生产线改建后的入账价值为()万元。
()是预估的最终目的。
Inthedigitalrealm,thingsseemalwaystohappenthewrongwayround.WhereasGooglehashurriedtoscanbooksintoitsdigita
最新回复
(
0
)