首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Commandl的命令按钮,事件过程及函数过程如下: Private Sub Command1 Click() Dim mAs String m=InputBox(“请输入字符串”) Print pick_str(m) End Sub P
窗体上有1个名称为Commandl的命令按钮,事件过程及函数过程如下: Private Sub Command1 Click() Dim mAs String m=InputBox(“请输入字符串”) Print pick_str(m) End Sub P
admin
2015-11-24
40
问题
窗体上有1个名称为Commandl的命令按钮,事件过程及函数过程如下:
Private Sub Command1 Click()
Dim mAs String
m=InputBox(“请输入字符串”)
Print pick_str(m)
End Sub
Private Function pick_str(s As String)As String
temp="":i=1:sLen=Len(s)
Do While i<=sLen/2
temp=temp+Mid(s,i,1)+Mid(s,sLen-i+1,1
选项
A、bcai
B、cbia
C、bcais
D、ebias
答案
A
解析
本题的函数中使用了Do循环,循环条件是i<=sLen/2:由于字符串的长度为5,所以循环会执行两次;在每次循环中使用Mid函数依次取得字符串的第一个字符、最后一个字符、第二个字符、倒数第二个字符。
转载请注明原文地址:https://kaotiyun.com/show/ZxLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:PrivateSubCommand1_Click()a=InputBox("请输入日期(1~31)")t="旅游景点:"&IIf(a>0Anda<
在窗体上画4个文本框,并用这4个文本框建立一个控件数组,名称为Text1(下标从0开始,自左至右顺序增大),然后编写下列事件过程:PrivateSubCommand1_Click()ForEachTextBoxInText1Text1(i
在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:OptionBase1PdvateSubCommand1_Click()DimcAsInteger,dAsIntegerd=0c=6X=Array(2,4,6
在窗体上有文本框Text1和命令按钮Command1,并有下列事件过程:PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>1
某程序列表框中有许多项,现在用Timer控件控制时间,0.1秒删除一项,直到删完为止,用一滚动条来显示删除的项目,请选择合适的语句,完成此程序()。PrivateSubCommand2_Click()HSeroll1.Min=0HScro
在随机文件中使用用户自定义数据类型时,要注意它的成员的要求,它的成员不能是()。
程序的3种基本控制结构是______。
测试的目的是暴露错误,评价程序的可靠性,而______的目的是发现错误的位置,并改正错误。
滚动条的最小值属性是______,最大值属性是Max。
随机试题
绿色施工管理的内容主要包括组织管理、规划管理、实施管理、评价管理和()
交叉配血试验的目的是
【2014专业知识真题上午卷】在民用建筑中,关于高、低压电器的选择,下列哪项描述是错误的?()
泰国产鲜芒果
限定性集合资产管理计划投资于股票等权益类证券以及股票型证券投资基金的资产,不得超过该计划资产净值的()。
下列选项中,属于商业银行的资产的有()。
SometimebetweendigestingChristmasdinnerandputtingyourheadbackdowntowork,spareathoughtortwoforthecranberry.
A、 B、 C、 B由“我今天去看医生了。”可知图B符合题意。关键词为gotoseeadoctor。
Wherethereisnoproductyetmeetinganeed,theopportunitiesareunlimited.
A、Tofindthesimilarityofsoybeansintheworld.B、Toprotectsoybeansagainstdrycondition.C、Tocollectmaterialsfortheir
最新回复
(
0
)