首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
执行下面的程序,消息框里显示的结果是_________。 Private Sub Form_Click() Dim Str As String,S As String,k As Integer Str=“abC” S=Str
执行下面的程序,消息框里显示的结果是_________。 Private Sub Form_Click() Dim Str As String,S As String,k As Integer Str=“abC” S=Str
admin
2021-04-27
29
问题
执行下面的程序,消息框里显示的结果是_________。
Private Sub Form_Click()
Dim Str As String,S As String,k As Integer
Str=“abC”
S=Str
For k=Len(Str)To 1 Step-1
S=S&(Mid(Str,k,1))
Next k
MsgBox S
Fnd Sub
选项
A、abc
B、abccba
C、cbacba
D、abcabc
答案
B
解析
本题考查的是字符串函数和循环语句For…Next的使用。循环语句For…Next能够重复执行程序代码区域特定次数,使用格式如下:
For循环变量=初值T0终值[step步长]
循环体
[条件语句序列
ExitFOr
结束条件语句序列]
Next[循环变量]
在VBA中有三种取子串函数:LeR函数用于在字符串左端开始取n个字符;Right函数用于在字符串右端开始取n个字符(注意子串中字符的顺序与母串中相同);Mid函数可以实现在任何位置取任何长度的子串。字符串长度检测函数Len(<字符串表达式>或<变量名>1的作用是返回字符串所含字符数。本题中相当于每次循环从后向前取得Str中的一个字符连接到S的后面,即最后S的值为abccba。
转载请注明原文地址:https://jikaoti.com/ti/S2C0FFFM
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
学院的每个系都有一名系主任,且一个教师可同时担任多个系的系主任,则实体系主任和实体系间的联系是
设栈的顺序存储空间为S(1:m),初始状态为top=0。现经过一系列正常的入栈与退栈操作后,top=m+1,则栈中的元素个数为
设栈的存储空间为S(1:50),初始状态为top=0。现经过一系列正常的入栈与退栈操作后,top=51,则栈中的元素个数为
某系统总体结构图如下图所示,该系统结构图的最大扇出数、最大扇入数的总和是
在数据访问页的工具箱中,图标代表的是
在窗体中有一个命令按钮Command1,编写事件代码如下:PrivateSubCommand1Click()DimsAsIntegers=P(1)+P(2)+P(3)+P(4)debug.PrintsEndSubPublic
宏命令OpenBeport的功能是
要在报表的最后一页底部输出信息,应设置的是
将表“学生名单2”的记录复制到表“学生名单1”中,且不删除表“学生名单1”中的记录,可使用的查询方式是
如果有VBA的过程头部为:PrivateSubBstData(ByValabcAsInteger)则变量abc遵守的参数传递规则是()。
随机试题
女性,35岁,产后哺乳期,右乳红肿,1周来已扩展至全乳,体温36.8℃。右乳皮肤红肿、边界不清、乳房发硬、无压痛,未触到肿物,无波动感,右腋下触及直径约1cm大小的肿大淋巴结,尚活动、无压痛。(2007年)该病人明确诊断后,应采取的最恰当治疗是
同病毒无关的肿瘤是
哪项指标对不典型甲亢诊断最有意义
张某与王某依法签订合同,张某将所有的一辆别克汽车卖给王某,价款20万元,汽车已办理所有权转移登记手续但尚未交付;后李某表示愿以22万元的价格购买该汽车,张某同意,李某交付全款并提走汽车。下列说法正确的有()。
选择与求助者的谈话方式时,应当考虑的求助者自身因素包括()。
创造思维是指有创见的思维,创造思维包括发散思维和集中思维,而且更多地表现在发散思维上。()
危害国家安全的犯罪分子在刑罚执行完毕或者赦免以后,在任何时候再犯罪的,都以累犯论处。()
社会存在属于社会生活的物质方面,是社会实践和物质生活条件的总和。它主要包括()
Theinterview--about2minutesInthisparttheinterlocutorasksquestionstoeachofthecandidatesinturn.Youhavetogiv
Inthispartofthesection,youwillhear1conversationand2lectures.Youmustanswereachquestion.Afteryouanswer,c
最新回复
(
0
)