首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下通用过程: 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
2018-12-20
24
问题
设有如下通用过程:
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
在窗体上画一个名称为Commandl的命令按钮。然后编写如下的事件过程:
Private Sub Commandl_Click()
Dim S1 As String
S1="8bcdef".
Print UCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,输出结果是( )。
选项
A、ABCDEF
B、abedef
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/hAFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有2个文本框Text1和Text2,并有下面的事件过程:DimnPrivateSubText1_KeyPress(KeyAsciiAsInteger) If"A"
在窗体上画一个名称为Command1的命令按钮,编写如下事件过程:PrivateSubCommand1_Click() n=0 Fori=0To10 X=2*i-1 IfXMod3=0Thenn=n+1
设有如下事件过程:PrivateSubCommand1_Click() Fori=1To5 j=i Do Print"*" j=j-1 LoopUntilj=0 NextiEnd
下列数组定义中错误的是( )。
设有语句:Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是( )。
设x为一整型变量,且情况语句的开始为:SelectCasex,则不符合语法规则的Case子句是( )。
要计算x的平方根并放入变量y,正确的语句是( )。
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
某棵树的度为4,且度为4、3、2、1的结点数分别为1、2、3、4,则该树中的叶子结点数为
随机试题
在古代宫殿外的陈设中,象征着国家统一和强盛的是()。
肾结核最早的病灶位于
受理执业医师注册申请的卫生行政部门,对应当准予注册的,准予注册期限是自收到申请之日起
治疗中风中脏腑之痰火瘀闭证,应选用
根据我国有关规定,出口企业最迟于货物出运前3天,持签证机构规定的正本文件,向签证机构申请办理一般原产地证书,申领不需要的文件是()。
脾气急躁、行为勇敢有力的人属于________气质。
甲杯中有浓度17%的溶液400克,乙杯中有浓度为23%的同种溶液600克,现在从甲,乙取出相同质量的溶液,把甲杯取出的倒入乙杯中,把乙杯取出的倒入甲杯中,使甲,乙两杯溶液的浓度相同,问现在两杯溶液浓度是多少?
所谓规模经济,就是说工厂或公司的规模越大,单位成本就越低,收益就越大。()
carhire
A、Theconcertwasreallyatime-wastingone.B、Theconcertticketscouldbebookedonline.C、Therewerenotenoughchairsforpe
最新回复
(
0
)