首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String, strL As Integer tStr="" strL=Len(xStr) i=
设有如下通用过程: Public Function Fun(xStr As String)As String Dim tStr As String, strL As Integer tStr="" strL=Len(xStr) i=
admin
2019-06-20
18
问题
设有如下通用过程:
Public Function Fun(xStr As String)As String
Dim tStr As String, strL As Integer
tStr=""
strL=Len(xStr)
i=1
Do While i<=strL / 2
tStr=tStr & Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1)
i=i+1
Loop
Fun=tStr
End Function
在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click()
Dim S1 As String
S1="abcdef"
Print UCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,输出结果是( )。
选项
A、ABCDEF
B、abcdef
C、AFBECD
D、DEFABC
答案
C
解析
通用过程Fun的主要功能在于
tStr=tStr & Mid(xStr, i, 1)& Mid(xStr, strL-i+1, 1)
这一句。其中Mid(xStr, i, 1)的意思是从字符串的左边开始依次取一个字符,Mid(xStr, strL-i+1, 1)的意思是从串的右边开始依次取一个字符。整个这条一语句的用意就是从一个字符串两端依次各取一对字符连成一个字符串。因此当Fun过程的参数为"abcdef"时,返回值为"afbecd",Ucase("afbecd")结果为"AFBECD",这就是输出结果。
转载请注明原文地址:https://jikaoti.com/ti/ycN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如图2所示,在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每1s在文本框中显示一次当前的时间。PrivateSubTimer1__________TextTime.Text=Time
窗体上有一个图片控件和一一个按钮控件,下.列程序执行的结果是()。PrivateSubCommand1Click()Picturel.Picture=LoadPicture("c:\picture.jpg")Pi
假定窗体上有一个标签,名为Label1,为了使该标签透明并且没有边框,则正确的属性设置为()。
以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数:是()。
结构化程序设计的3种结构是()。
如果在VisualBasic集成环境中没有打开属性窗口,下列可以打开属性窗口的操作是
已知a=6,b=15,c=23,则语句PrintSgn(a+bMod6-c\a)&a+b的输出结果为
下面有关标准模块的叙述中,错误的是
一般情况下,当对关系R和S进行自然连接时,要求R和S含有一个或者多个共有的
随机试题
A.唾液B.胃液C.胆汁D.胰液E.小肠液pH最高的消化液是
下列细菌为单鞭毛且悬滴法检查呈穿梭样运动的是
可沉淀胶液中泥沙等杂质,并能增加胶剂透明度的辅料是()。
下列关于钢管柱施工相关要求的说法中,错误的是()。
10年期贷款的1~9年累计违约概率18%,第10年的边际违约概率为9%,则1~10年的累计违约概率为()。
现存的山东曲阜孔庙大成殿建于()。
Onemorningmorethanthirtyyearsago,IenteredtheTrackKitchen,arestaurantwhereeveryonefromthehumblesttothemostp
【2014.北京】知识遗忘的发展进程是()。
在经济学中,外部性是指一个人的行为对旁观者福利的无补偿的影响。外部性分为正外部性和负外部性。下列生活中的事例与外部性的对应,错误的是:()
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextkNextjNext
最新回复
(
0
)