首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下通用过程: 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
28
问题
设有如下通用过程:
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全国计算机二级
相关试题推荐
运行以下程序,输出结果是()。ForI=1To3clsPrint"I=",I;Next
有如下SUB过程:Subs(xAsSingle,yAsSingle) t=x x=t/y y=tModyEndSub在窗体上添加一个命令按钮,然后编写如下事件过程:PrivateSu
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Crick()DimIAsInteger,nAsIntegerForj=0T
在窗体上画一个文本框,其名称为Text1,然后编写如下事件过程:PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimstrAsString,nAsIntegerStr=UCas
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger a=3:b=4:c=5 PrintSec
通常,将软件产品从提出、实现、使用维护到停止使用退役的过程称为______。
表达式Str(Len"123’))+Str(77.7)的值是()。
通用对话框中能打开“颜色对话框”的方法是()。
假设变量intVar是一个整型变量,则执行赋值语句intVar="2"+3之后,变量intVar的值是()。
在窗体上画一个文本框(其Name属性为Text1),然后编写如下事件过程:PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFori=1To9Sum=Sum+
随机试题
Windows中,打开Windows系统的“开始”菜单,可使用快捷键()
什么是自动节律性?
下列哪些药品不可以由国务院药品监督管理部门规定的药品批发企业经营
药物经济学研究中应注意的问题有
当平曲线半径()不设超高最小半径时,在平曲线范围内应设超高。
在高温环境下,建筑物防水卷材宜选用()。
在下列各类错账中,应采用红字更正法进行更正的错账有()。
在VisualFoxPro中,表中如果有备注型字段,则磁盘上还会有一个对应扩展名为______的文件。
在考生文件夹下完成如下综合应用:①首先将books.dbf中所有书名中含有“计算机”3个字的图书复制到表books_bak中,以下操作均在booksbak表中完成。②复制后的图书价格在原价格基础上降价5%。③从图书均价高于25元(含25)的出版社
有如下类定义:classBag{public:Bag(strings,stringcr);//①~Bag();//②
最新回复
(
0
)