首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click() Dim m As String m=InputBox("请输入字符串") Print pick
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下: Private Sub Command1_Click() Dim m As String m=InputBox("请输入字符串") Print pick
admin
2017-07-28
34
问题
窗体上有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、beais
D、cbias
答案
A
解析
过程pick_str的功能是对输入的字符串的字符重新组合,通过Do循环从原字符串中头尾开始各取一个字符重新组合,循环次数小于等于原字符串长度整除2的值。当输入字符串是“basic”时,字符串长度为5,循环次数为5/2=2次,因此取出的字符依次是“b”,“c”,“a”,“i”。即“bcai”,因此答案为A。
转载请注明原文地址:https://kaotiyun.com/show/HRGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
编写如下程序:PrivateSubForm_Click()a$="54321":b$="abcde"Forj=1To5PrintMid$(a$,6-j,1)+Mid$(b$,j,1);
为了把焦点移到某个指定的控件,所使用的方法是
VisualBASIC应用程序通常由3类模块组成,即窗体模块、【】和类模块。
已知x=5,y=2,z=6。表达式x>yAndz>xOrx<yAndNotz>y的值是()。
用二维表结构表示实体以及实体间联系的数据模型称为
在Selectcase结构中,使用“To表达式”来指定一个范围时,必须把【】的值写在前面。
建立一个通讯录的随机文件phonBook.txt,内容包括姓名、电话、地址和邮编,用文本框输入数据。单击“添加主记录”按钮command1时,将文本框数据写入文件,单击“显示”按钮Command2时,将文件中所有记录内容显示在立即窗口。PrivateT
算法的时间复杂度是指()。
在E-R图中,用来表示实体的图形是
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
随机试题
f(x)=e-x,则=________.
下列哪项不是消化道的癌前病变
患者男性,60岁,体重60kg,体温40℃,每天输液时需多补充多少液体
男性,50岁,收缩压为21.3kPa(160mmHg),舒张压在12.0kPa(90mmHg),血脂偏高,劳累后感到心前区疼痛,休息后可缓解,心电图检查不正常,诊断为冠心病收入心内科。在其用药护理中错误的是
不属于组织城市空间的重要手段的是()。
国际金融市场的动荡对( )上市公司的业绩影响最大,对其股价的冲击也最大。
道氏理论是完美的分析方法。()
甲与货车司机某乙关系很好,一天甲带着心爱的小狗闲逛,见乙开着货车慢慢过来,抱着小狗搭乘该车。两人在车上边谈边笑,当车行至某铁路交叉口时,该交叉口看守工人A瞌睡刚醒,发现一列火车马上经过,慌忙放下栅栏,不料该栅栏竟然发生故障无法放下,此时乙的货车已经开上铁轨
设n元线性方程组Ax=b,其中(1)证明行列式|A|=(n+1)an;(2)当a为何值时,该方程组有唯一解,并求x1;(3)当a为何值时,该方程组有无穷多解,并求通解.
LatinAmericanandChineseofficialshaveopenedtwodaysoftalksontradeandinvestment.ThefirstChina/LatinAmericaand
最新回复
(
0
)