首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
75
问题
窗体上有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全国计算机二级
相关试题推荐
编写如下两个事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubForm_KeyPress(K
下列程序的功能是:找出给定的12个数中最大的一个数,然后输出这个数以及它在原来12个数中的位置。请填空。OptionBase1PrivateSubForm_Click()Dimxx=Array(57,-9,17,42,-31,46,11,
设有下列程序,查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dimarr1DimMinAsInteger,iAsIntegera
鼠标移动经过控件时,将触发控件的______事件。
程序的3种基本控制结构是______。
下列程序功能是,产生10个0~100的随机数,输出其中的最大值。请将程序补充完整。PrivateSubForm_Click()Diman(10)AsIntegerDimmaxAsIntegerRandomizeFori%=1T
设有命令按钮Command1的单击事件过程,代码如下,请填空。PrivateSubCommand1_Click()Dima(30)AsIntegerFori=1To30a(i)=iNextForEacharrItem__
下列程序的执行结果是()。FunctionP(NAsInteger)Fori=1ToNSum=Sum+iNextiP=SumEndFunctionPrivateSubCommand1_Click()S=P(1)+
滚动条的最小值属性是______,最大值属性是Max。
随机试题
属于功能位的颈椎摄影体位是
吴雁于5月9日收到人民法院的离婚判决书。吴雁准备提起上诉。但第二天便被单位派到黄山去学习,到5月13日学习结束后又因山洪暴发,交通中断,直到5月30日才回来。吴雁还能否对判决提起上诉?
【背景资料】某业主投资一建设工程项目,通过招标选择了一家施工单位,并与之签订了合同。合同约定,在施工过程中,若由于业主原因造成窝工,则机械的停工费用和人工窝工费按台班费和工日费的40%结算支付。该工程按如下计划进行。在计划执行过程中,
国际标准化组织推荐的标准运输标志,应包括的内容是()
B公司是北京一家集团上市公司,公司的管理者追求动态的环境,一直致力于开发新产品,开拓新市场。由于要适应灵活多变的市场,所以该公司在工程技术以及行政管理上具有很大的灵活性。该公司采用的组织结构类型是()。
冬虫夏草有“百草之王”、“中药之王”和“药中之宝”的美誉。()
下列选项中,属于法律关系客体的有()。(2010年多选48)
宽带综合业务数字网B-ISDN的数据通信服务主要采用______。
SummaryListentothepassage.Forquestions26—30,completethenotesusingnomorethanthreewordsforeachblank.Superr
Whatwillwww.163.comdo?Whydidmoststudentsbuildtheirpages?
最新回复
(
0
)