首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中添加一个名称为C1的命令按钮,然后编写如下事件代码: Private Sub C1_Click() str=“ABAABAAABABBA” For i=6 To 2 Step-2 x=Mid(str,i,i)
在窗体中添加一个名称为C1的命令按钮,然后编写如下事件代码: Private Sub C1_Click() str=“ABAABAAABABBA” For i=6 To 2 Step-2 x=Mid(str,i,i)
admin
2010-03-22
60
问题
在窗体中添加一个名称为C1的命令按钮,然后编写如下事件代码: Private Sub C1_Click() str=“ABAABAAABABBA” For i=6 To 2 Step-2 x=Mid(str,i,i) y=Left(str,,i) z=Right(str,i) Next i Msg Box x&y&z End Sub 单击命令按钮,则消息框的输出结果是( )。
选项
A、ABBAAB
B、ABBABA
C、BABABA
D、BAABBA
答案
D
解析
本题考查VBA中循环和取子串函数的知识。在VBA中有3种取子串函数:Left函数用于从字符串左端开始取n个字符;Right函数用于从字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同);Mid函数实现在任何位置取任何长度的子串。在本题中由于循环每次都会给x、y。z重新赋值,所以只有最后一次循环才有意义。最后一次循环时i=2,则x为BA,y为AB,z为BA。
转载请注明原文地址:https://kaotiyun.com/show/jvwp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
下面选项中不是关系数据库基本特征的是()。
要建立文件流并打开当前目录下的文件file.dat用于输入,下列语句中错误的是()。
有如下类定义:classMyBase{intk;public:NyBase(intn=0):k(n){}intvalue()coast{returnk;}};classMyDefived:NyBase{intj;public
在一棵二叉树上,第5层的结点数最多是()。
下列程序中横线处正确的语句是()。#includeusingnamespacestd;classTestClass{public:voidfunO{cout
以下程序中调用cin函数给变量a输人数值的方法是错误的,其错误原因是()。#includevoidmain(){int*p,*q,a,b;P=&a;coutp;}
请打开考生文件夹下的解决方案文件proj1,该工程中包含程序文件main.cpp,其中有类Door(“门”)和主函数main的定义。程序中位于每个“//ERROR****found****”之后的一行语句有错误,请加以改正。改正后程序的输出结果应为:
下列关于运算符重载的叙述中,正确的是
使用VC6打开考生文件夹下的源程序文件modi1.cpp,使它能得出正确的结果。本程序要求屏幕输出:n=99注意:不要改动main函数,不能增行或删行,也不能更改程序的结构,错误的语句在//********error********的
请使用VC6或使用【答题】菜单打开考生文件夹proj2下的工程proj2,其中定义了Employee类和Nanager类。Employee用于表示某公司的雇员,其属性包括姓名(name)和工作部分(dept)。Manager是Employee的公有派生类,
随机试题
生地黄的主治证是()
此时用下列哪种处理为妥病人需急症手术,下面哪一条不是护士要做的
关于PC片,下面错误的是
某乙型脑炎患者,于病程第4天入院,体温40℃,下午突然神志不清,反复抽搐,呼吸节律不规则,瞳孔两侧大小不等大,此时应采取的措施为
A.蛋白管型B.白细胞管型C.红细胞管型D.细胞管型E.脂肪管型急性药物过敏性间质性肾炎可有
温病后期,神倦痪疯,脉气虚弱,舌绛苔少,有时时欲脱之势。方剂选用
甲、乙级资质设备监理单位的经营范围()。
一架飞机从北京飞往乌鲁木齐,用3.5个小时,而从乌鲁木齐返航北京时,飞行速度不变,却只需要3小时,原因是()。
茶花(camellia)的自然花期在12月至翌年4月,以红色系为主,另有黄色系和白色系等,花色艳丽。本届花展充分展示了茶花的品种资源和科研水平,是近三年来本市规模最大的一届茶花展。为了使广大植物爱好者有更多与茶花亲密接触的机会,本届茶花展的布展范围延伸至整
SydneyOperaHousemustbeoneofthemostrecognizableimagesofthemodernworld—uptherewiththeEiffelTowerandtheEmpire
最新回复
(
0
)