首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下通用过程: 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
59
问题
设有如下通用过程:
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/iyUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面哪个属性不是框架控件的属性()。
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的代码如下:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=Val(InputBox("输入整数"))y=Val
已知a=6,b=15,c=23,则语句PrintSgn(a+bMod6-c\a)&a+b的输出结果为
某二叉树有5个度为2的结点,则该二叉树中的叶子结点数是
在设计阶段,如果双击窗体上的一个文本框控件,则在代码窗口中显示该控件的事件过程所对应的事件是
如下关于变体类型变量的叙述中,错误的是
窗体上有一个名称为VScroll1的垂直滚动条,要求程序运行时,滚动块的初始位置在最下端,应该使VScroll1.Value的值等于
在窗体上有一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化
8.6787E+8写成普通的十进制数是()。
检查软件产品是否符合需求定义的过程称为()。
随机试题
下列哪些绦虫的中绦期幼虫基本不寄生于人体内
A.咯血B.窒息C.声音嘶哑D.音调低沉E.高热、脉快一侧喉返神经损伤表现
中医学认为,肾病综合征的主要病因病机是
从口内取出可摘局部义齿印模时,一般先
男,7岁。右下后牙疼痛1周,脸肿3天检查,大面积龋坏,Ⅱ度松动,叩疼(++),龈颊沟变浅,扪及波动感,扪疼(++),温度测试同对照牙。X线显示:根分歧大面积低密度影,远中根吸收2/3,恒牙胚牙囊不连续,上方骨板模糊不清。诊断是
投资项目“代建制”的核心是代建单位按照()代理项目建设的法人职责。
新时期教育发展需把握的指导原则是什么?
()是苏德战争中历时最长、最为激烈的一次战役,是苏德战场根本转折的开始。
A、 B、 C、 D、 B
DVDCustomerProfileExampleOccupation:studentWhatisthemaximumyouwanttospendonaDVDplayer?【L1】________Howofte
最新回复
(
0
)