首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下通用过程: 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
2016-08-24
42
问题
设有如下通用过程:
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 Funotion
在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程:
Private Sub Command1_Click()
Dim S1 As String
S1="abcdef"
Print gcase(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(“afbeed”)结果为“AFBECD”,这就是输出结果。
转载请注明原文地址:https://kaotiyun.com/show/GYLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当数据的物理结构(存储结构)改变时,不影响数据库的逻辑结构,从而不致引起应用程序的变化,这是指数据的______。
在KeyPress事件过程中,KeyAscii是所按键的______值。
使图像(Image)控件中的图像自动适应控件的大小应()。
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubForm
下列程序的执行结果为()。n=0j=1DoUntiln>2 n=n+1 j=j+n*(n+1)LoopPrintn;j
在用通用对话框的ShowOpen显示“打开”文件对话框时,若要指定其中的文件类型为文本文件,正确的描述格式是()。
以下关于变量作用域的叙述中,正确的是()。
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
随机试题
可能诊断为下列处理中错误的有
FIDIC道德准则,从( )等方面规定了监理工程师在“公正性”方面的行为准则。
通常私人股权不包括()。
下列关于《证券投资基金法》对基金管理人有关规定的说法,错误的是()
村民委员会除基本任务外,《村民委员会组织法》还赋予了它一些其他任务,包括( )。
一般资料:求助者,女,18岁,高二学生,肤色白净、体态正常,家中独女,父母为私营企业主,父母均为初中文化,家庭基本和睦。求助者主诉:马上又要考试了,不想读书,又怕父母失望;不想看书,也没什么精神,干什么都没有兴趣,觉得自己没用。早上醒来时最难受,晚
政治经济制度是如何制约教育的?
人口迁移受许多因素影响,有些来自迁出地,有些来自迁入地,还有些是中间障碍因素。读“影响人口迁移的主要因素示意图”,完成问题。导致美国老年人口从东北部向西部、南部迁移的主要原因是()。
违约金的约定中,一般可以认定为过分高于造成的损失的比例为()
(1)在考生文件夹下有一个名为formone.scx的表单文件,如下图所示,其中包含一个文本框、一个表格和两个命令按钮。请按下列要求完成相应的操作:①通过“属性”窗口将文本框Text1的。Value属性值设置为当前系统日期(日期型,不
最新回复
(
0
)