首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有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
2020-07-22
33
问题
窗体上有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/kcHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下程序:PrivateSubForm.Click()num=InputBox("请输入一个实数"):p=InStr(num,"")Ifp>0ThenPrintMid(num,p+1)Else
窗体上有名称为Commandl的命令按钮和名称为Textl的文本框PrivateSubCommand1_Click()Textl.Text=”程序设计”Text1.SetFocus
下面关于VB应用程序的叙述中正确的是
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>d)Ord>c的值是
下面程序的功能是输出100以内所有素数:PrivateSubCommand1_Click()Forn=2To100isprime=True:k=2DoWhilek
设x是小于10的非负数。对此陈述,以下正确的VB表达式是
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。(1)设置表对象“tEmp”中“聘用时间”字段的有效性规
在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件,如图2-65所示。运行时,单击”发射”按钮,航天飞机图标将向上运动,速度逐渐加快,全部进入云中后则停止,并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签Labell和L
在学生管理的关系数据库中,存取一个学生信息的数据单位是
随机试题
斜Y坡口焊接裂纹试验时,焊后试件需放置()后,才能做裂纹检验。
肋膈隐窝()
普济消毒饮中配伍升麻、柴胡的用意是
2003年1月9日,某县人民检察院以贪污、受贿嫌疑将某国有企业总经理乔某逮捕,后向县人民法院提起公诉。8月16日,县人民法院作出一审判决。以贪污罪、受贿罪数罪井罚,判决乔某有期徒刑8年。乔某不服,上诉至市中级人民法院。市中级人民法院经审理维持原判.并将乔某
租售期延长会增加房地产开发项目的融资成本和管理费用等项支出,特别是在贷款利率较高的情况下,会给开发商带来沉重的财务负担。()
由建设单位主持,检查施工合同的执行情况,评价工程质量是否符合技术标准及设计要求,是否可以移交下一阶段施工称为()。
土方工程施工定位桩采用( )进行检查。
领导让你负责一项工作。需要其他两个部门的配合。但是这两个部门和你所在部门关系不太融洽。你怎么处理?
1,2,7,2,5,16,2,3,( )
函数z=x2+y2在条件=1下的极值为().
最新回复
(
0
)