首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下通用过程: 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
18
问题
设有如下通用过程:
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/jcFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Label1的标签;一个名称为Timer1的计时器,其Enabled和Interval属性分别为True和1000。编写如下程序:DimnAsIntegerPrivateSubTimer1_Timer() ch=Chr(
设窗体上有一个水平滚动条HScroll1和一个命令按钮Command1,及下面的事件过程:PrivateSubForm_Load() HScroll1.Min=0 HScroll1.Max=100EndSubPrivateSubCo
下列事件的事件过程中,参数是输入字符ASCII码的是( )。
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码:PrivateSubText1_KeyPress(KeyAsciiAsInteger)If"A"
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*y
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(c))Fori=1To4 Print NextEndSub程序
下面关于直线控件的叙述中正确的是
在窗体模块的声明部分声明变量时,不能使用的关键字是
随机试题
肝性脑病时,患者氨生成过多的最常见原因是
什么是公务员的工资制度、福利制度和保险制度?
Faces,likefingerprints,areunique.Didyoueverwonderhowitispossibleforusto【C1】______people?Evenaskilledwriterpr
女性,35岁,甲状腺肿大、突眼、心慌、失眠,心率100次/分,血压140/90mmHg,诊断为甲亢。
患者恶寒发热,头身疼痛,无汗,鼻塞流涕,脉浮紧,其舌苔应是()
关于工程项目的目标控制方法,下列表述正确的是()。
预制构件接缝混凝土浇筑完成后可采取洒水、覆膜、喷涂养护剂等养护方式,养护时间不应少于()d。
划分固定资本和流动资本的根据是生产资本不同部分在剩余价值生产中的作用不同。()
Language,culture,andpersonalitymaybeconsidered______ofeachotherinthought,buttheyareinseparableinfact.
TheImportanceofQuestionsFornon-nativespeakersofEnglishwhowanttoparticipateingroupdiscussions,itis’important
最新回复
(
0
)