首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click() Dim m As String m=InputBox("请输入字符串")
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click() Dim m As String m=InputBox("请输入字符串")
admin
2015-08-13
26
问题
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下:
Private Sub Command1_Click()
Dim m As 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)
i=i+1
Loop
pick_str=temp
End Function
运行程序,单击命令按钮,并在输入对话框中输入“basic”,则在窗体上显示的内容为( )。
选项
A、bcai
B、cbia
C、bcais
D、cbias
答案
A
解析
过程pick_str的功能是对输入的字符串的字符重新组合,通过Do循环从原字符串中头尾开始各取一个字符重新组合,循环次数小于等于原字符串长度整除2的值。当输入字符串是“basic”时,字符串长度为5,循环次数为5/2=2次,因此取出的字符依次是“b”,“c”,“a”,“i”。即“bcai”,因此答案为A。
转载请注明原文地址:https://kaotiyun.com/show/LqQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为______。A="abcd"B="bcdc"E=Right(A,3)F=Mid(B,2,3)IfE<FThenPrintE+FElsePtintF+E
下面叙述中不正确的是______。
在用菜单编辑器设计菜单时,必须输入的项是______。
要把一个命令按钮设置成无效,应设置属性______的值为False。
可以产生30一50(含30和50)之间的随机整数的表达式是
下面控件中,没有Caption属性的是
(1)在考生文件夹下有一个工程文件sjt3.vbp,请在窗体上画两个框架,其名称分别为F1和F2,标题分别为“交通工具”和“到达目标”。在Fl中画两个单选按钮,名称分别为Opl和Op2,标题分别为“飞机”和“火车”。在F2中画两个单选按钮,名称分别为Op3
结构化分析方法是面向______进行分析的方法。
表达式Abs(-5)+Len("ABCDE")的值是______。
设x=4,y=8,z=7,下列表达式的值是()。x>zOrz<x
随机试题
下列哪项与地方性甲状腺肿的发生有关
[2016年第15题]若D是由x=0,y=0,x2+y2=1所围成在第一象限的区域,则二重积分x2ydxdy等于()。
某新建办公建筑物,地上共29层,层高均为5m,地下共2层,其中地下二层为汽车库,地下一层机电设备备用房井设有电信进线机房,裙房共4层,5~29层为开敞办公间,每层开敞办公间为1200m2,各层平面相同,各层弱电竖井位置均上下对应,请分别回答下列问题。在
《建设工程安全生产管理条例》第14条第1款规定,工程监理单位应当审查施工组织设计中的安全技术措施或者专项施工方案是否符合工程建设()。
保管期限为3年的会计档案有( )。
2019年度财政部门经审核后,以财政授权支付方式给甲事业单位下达了180万元用款额度。截至12月31日,该事业单位零余额账户用款额度下达数为150万元。2020年1月8日,甲事业单位收到财政部门批复的2019年度未下达的零余额账户用款额度30万元。甲事业单
根据《中华人民共和国劳动争议调解仲裁法》的规定,下列选项中,()属于造成劳动仲裁时效中断的情形。
【2016下】下列选项中,不能作为超链接插入演示文稿的是()。
中国汽车工业协会发布的2009年4月份中国汽车产销数据显示,在其他国家汽车销售进一步疲软的情况下,国内乘用车销量却持续上升,当月销量已达83.1万辆,比3月份增长7.59%,同比增长37.37%。乘用车细分为基本型乘用车(轿车)、多功能车(MPV
已知一抛物线通过x轴上的两点A(1,0),B(3,0)计算上述两个平面图形绕x轴旋转一周所产生的两个旋转体体积之比.
最新回复
(
0
)