首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下通用过程: 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
2019-01-17
54
问题
设有如下通用过程:
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 Command1_Click()
Dim S1 As String
S1="ABCDEF":Text1.Text=LCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,文本框中显示的是
选项
A、ABCDEF
B、abcdef
C、defdef
D、defabc
答案
C
解析
本题考查的考点是有关字符串处理的。本题中过程中的循环变量i的初值是字符串长度的一半,终值是字符串长度,结合循环中的取子串函数,整个循环的功能是取得字符串的后一半放入tstr中,然后连接上自身的值返回到调用程序。
转载请注明原文地址:https://kaotiyun.com/show/7cFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于菜单项的描述中,错误的是()。
命令按钮Command1的单击事件过程如下:PrivateSubCommand1_Click() Dima(10,10)AsInteger x=0 Fori=1To3 Forj=1To3 a(i,j
窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码:DimrAsSingle,flagAsIntegerPrivateSubForm_Load()
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:PrivateSubCommand1_Click()Fori=3To1Step-1Sum=0Forj=1Toi
窗体上有一个名称为Label1的标签;一个名称为Timer1的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:DimnAsIntegerPrivateSubTimer1_Timer() ch=Chr(
如果把程序的启动对象设置为:SubMain,则SubMain过程
以下关于框架的叙述中,错误的是
下面表达式的值不为5的是()。
(1)考生文件夹下有一个工程文件sjt3.vbp,其中的窗体上有一个命令按钮控件数组,名称为Cmd;有一个图像框,名称为Image1。请添加一个名称为Timer1的计时器,时间间隔为3秒,初始状态为不可用,如图所示。程序功能如下:①单击
一个教师可讲授多门课程,一门课程可由多个教师讲授。则实体教师和课程间的联系是( )。
随机试题
A.麻黄素B.普鲁卡因C.利多卡因D.肾上腺素E.丁卡因加入局麻药注射液中,可以延缓局麻药的吸收,减少吸收中毒的可能性,同时又可延长局麻药作用时间的是
A.吸血昆虫B.空气、飞沫C.饲料、水D.鼠E.伤口牛流行热的主要传播媒介是
城镇土地使用税的特点包括()。
依据《工伤保险条例》规定,享有工伤保险权利的主体是()
H股的发行方式是“公开发行”加“国际配售”。( )
根据营业税法律制度的规定,下列应税行为中,不属于增值税征收范围的是()。
新闻出版署批准设立互联网出版机构的申请后,申请者应该()。
假设检验是解决问题的首要环节。()
结合材料回答问题材料1“从许多方面来说,现在我们还是把毛泽东同志已经提出、但是没有做的事情做起来,把他反对错了的改正过来,把他没有做好的事情做好。今后相当长的时期,还是做这件事。当然,我们也有发展,而且还要继续发展。”这是邓小平1980年10月25日同
FarewellSpeech1."Specialneeds"Commonlydefinedbywhatachildcan’tdoBymilestonesunmetBy【T1】______【T1】______Byexper
最新回复
(
0
)