首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下通用过程: 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
47
问题
设有如下通用过程:
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://kaotiyun.com/show/G5Up777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如图2所示,在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每1s在文本框中显示一次当前的时间。PrivateSubTimer1__________TextTime.Text=Time
下面()不是VB的文件系统控件。
下列程序的执行结果为()。A="5":B="6"A=VaI(A)+VaI(B)B=Vaf("56")IfABThenPrintA-BElsePrintB-A
检查软件产品是否符合需求定义的过程称为()。
设有下列语句:x=5Ifx>0Theny=1y=5程序运行后,则下列叙述中正确的是()。
在窗体上有一个名称为List1的列表框和一个名称为Command1的命令按钮,并编写有如下事件过程:PrivateSubForm_Load()List1.Addltem"Iteml":List1.Addltem"Item2":
程序调试的任务是
在软件开发中,需求分析阶段产生的主要文档是
负责数据库中查询操作的数据库语言是
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下:PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)DimcAsStringC=UC
随机试题
某种化工材料进口数量激增,已经导致国内生产同类产品及与其直接竞争的产品的化工厂受到严重损害。根据对外贸易法律制度的规定,下列说法正确的是()。
用哇巴因抑制钠泵活动后,细胞功能发生的变化有()(2008年)
医师最先采取的步骤是为鉴别与妊娠有关的疾病,最可靠的检查为
虚开增值税专用发票骗取出口退税,数额特别巨大,情节特别严重,给国家利益造成特别重大损失,依照
“杂施而不孙,则坏乱而不修”违背了()教学原则。
四人年龄为相邻的自然数列且最年长者不超过30岁,四人年龄之乘积能被2700整除且不能被81整除。则四人中最年长者多少岁?
更衣:游泳:洗澡
左边给定的是纸盒外表面的展开图,右边哪一项能由它折叠而成?
证明:当χ>0时,χ2>(1+χ)ln2(1+χ).
设f(x)在[a,b]上连续,在(a,b)内二阶可导,f(a)=f(b)=0,且f′+(a)>0.证明:存在ξ∈(a,b),使得f″(ξ)<0.
最新回复
(
0
)