首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下通用过程: 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
2018-10-15
24
问题
设有如下通用过程:
Public Function Fun(xStr As String)As String
Dim tStr As String,strL As Integer
tStr="":strL=Len(xStr)
i=strL/2
Do While i<=strL
tStr=tStr&Mid(xStr,i+1,1)
i=i+1
Loop
Fun=tStr&tStr
End Function
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮。然后编写如下的事件过程:
Private Sub Commandl_Click()
Dim S1 As String
S1=”ABCDEF”:Textl.Text=LCase(Fun(S1))
End Sub
程序运行后,单击命令按钮,文本框中显示的是
选项
A、ABCDEF
B、abcdef
C、defdef
D、defabc
答案
C
解析
本题考查的考点是有关字符串处理的。本题中过程中的循环变量i的初值是字符串长度的一半,终值是字符串长度,结合循环中的取子串函数,整个循环的功能是取得字符串的后一半放入tstr中,然后连接上自身的值返回到调用程序。
转载请注明原文地址:https://jikaoti.com/ti/Zym0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
标准模块中用Private声明的过程属于私有过程,只能被它所在的模块中的其他过程调用,不能被工程中其他模块调用,用Public声明的全局变量属于公用变量,可以被工程中的任何模块引用。标准模块的文件扩展名是.bas。可以产生30~50(含30和50)之间
现有语句:y=IIf(x>0,xMod3,0)设x=10,则y的值是( )。
窗体上有一个名称为Command1的命令按钮,其单击事件过程如下:OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsIntegerFori=1To4
要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是( )。
窗体上有Check1、Check2两个复选框,标题分别为"下划线"、"加粗",还有一个Text1文本框和一个Command1命令按钮。程序的功能是:单击Command1按钮,则根据复选框选中的情况对文本框中的文字做相应的修饰,如图所示。下面为Command
下面叙述中错误的是
在VisualBasic中,不能关闭的窗口是
以下合法的VB变量名是
设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为
如果一个顶级菜单项的访问键为D,则以下等同于单击该菜单项的操作为
随机试题
水曜日の________、応募者は八人だった。
电子支付的基本方式有()
麻疹早期特殊体征是
影响挖泥船时间利用率的因素有()。
用人单位安排女职工在怀孕期间从事国家规定的第三级体力劳动强度的劳动的,劳动保障行政部门应责令改正,并按照受侵害的劳动者每人()的标准计算,处以罚款。
在劳动者提供正常劳动的情况下,用人单位应支付劳动者的工资在剔除()后,不得低于当地最低工资标准。
甲公司为增值税一般纳税人,该企业购进固定资产相关的增值税额可以抵扣,适用的增值税税率为17%。甲公司20×0年至20×3年与固定资产有关的业务资料如下:(1)20×0年11月1日,甲公司以自营方式建造一条生产线。购入工程物资,取得的增值税专用发票上注明的
()是指引起或增加风险事故的机会或扩大损失幅度的条件。
MoveoverMethuselah.FuturegenerationscouldbelivingwellintotheirsecondcenturyandstilldoingSudoku,iflifeexpectan
Thenonprofiteconomicanalysisinstitution,settoconvenenextweekinDavos,Switzerland,foritsyearlymeeting,haslabeled
最新回复
(
0
)