首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click() Dim m As String m=InputBox("请输入字符串") Print pick_str(m) En
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click() Dim m As String m=InputBox("请输入字符串") Print pick_str(m) En
admin
2015-10-23
73
问题
窗体上有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/vJLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下程序:PrivateSubForm_Click()DimiAsInteger,SumAsIntegerSum=0Fori=2To10IfiMod2=0AndiMod
如果将PassWordChar属性设置为一个字符,如星号(*),运行时,在文本框中输入的字符仍然显示出来,而不显示星号,原因可能是()。
在窗体上添加一命令按钮,名称为Command1,然后为该命令按钮编写如下事件过程,该过程的执行结果为OptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(1,2,3,
以下合法的变量名是
下列关于文件的叙述中,错误的是()。
下列叙述中正确的是()。
将E-R图转换到关系模式时,实体与实体间的联系可以表示成()。
将E-R图转换到关系模式时,实体与联系都可以表示成
一个教师可讲授多门课程,一门课程可由多个教师讲授。则实体教师和课程间的联系是
一名学生只能住一间宿舍,一间宿舍可住多名学生,则实体“宿舍”与实体“学生”的联系属于______________的联系。
随机试题
请你讲述一下监狱民警职业的特殊性。
脉搏强而大常可见于下列疾病,但除外( )
男孩,2岁,生后4个月出现发绀,哭吵甚时有抽搐史。查体:发育差,发绀明显,心前区可闻及Ⅲ级左右收缩期的喷射音。X线胸片示:肺血少,右心室增大,心腰凹陷,呈靴形心。此患儿的诊断应是
上海证券交易所和深圳证券交易所连续竞价期间的即时行情内容包括( )。
旅行社A向桂林某地接社发出要约,想以1300元/人发团。而后,地接社又向旅行社A发函,声明1350元/人方可接团。地接社的这种行为属于()
虐待罪,是指对共同生活的家庭成员,经常以打骂、冻饿、禁闭、强迫过度劳动,有病不给治疗或者其他方法进行摧残、折磨的行为。根据定义,下列不构成虐待罪的是()。
在今年的某国际物理学奖获得者中,有一位美国人、一位中国人、一位日本人;有三位获得者之间有相互合作的关系,其中有一位是女性获得者;美国的获得者从不与他人合作。据此,可以推出:
损失规避原则,是指大多数人对损失和获得的敏感程度不对称,面对损失的痛苦感要大大超过面对获得的快乐感。根据以上定义,下列没有体现出损失规避原则的是()。
下列各项中对“信息”理解不正确的一项是:本文说明的主旨是:
Poetrydoesn’tmattertomostpeople.Onehastowonderifpoetryhasanyplaceinthe21stcentury,whenmusicvideosandsat
最新回复
(
0
)