首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有如下程序: Private Sub Form_Click() Dim a As String a = InputBox("输入一个字符串") For i = Len(a) To 1 Step -1 Print M
设有如下程序: Private Sub Form_Click() Dim a As String a = InputBox("输入一个字符串") For i = Len(a) To 1 Step -1 Print M
admin
2015-09-23
62
问题
设有如下程序:
Private Sub Form_Click()
Dim a As String
a = InputBox("输入一个字符串")
For i = Len(a) To 1 Step -1
Print Mid(a, i, 2);
Next i
End Sub
运行程序,单击窗体,在输入对话框中输入ABCD,单击"确定"按钮,输出结果是
选项
A、DCBA
B、AABBCCDD
C、DDCCBBAA
D、DCDBCAB
答案
D
解析
a从对话框得到输入字符串"ABCD",Len(a)即a的字符串长度为4,在For循环中,i从4到1,步长为-1,Mid(a,i,2)从字符串变量a的第i个字符开始截取2个字符,故当i为4时,输出为"D",当i为3时,输出为"CD",当i为2时,输出为"BC";当i为1时,输出为"AB"。故4次循环合在一起,输出结果为"DCDBCAB",故选择D项。
转载请注明原文地址:https://www.kaotiyun.com/show/JQLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,其名称为Text1。为了在程序运行后Text1中的文本不可编辑,应当使用的语句是______。
模块独立性是软件模块化所提出的要求,衡量模块独立性的度量标准是模块的______。
要使文本框Text1不可用且文字居中,可通过______来实现。
下列叙述中正确的是______。
在考生文件夹中有一个工程文件execise32.vbp,相应的窗体文件为execise32.frm。在名为Form1的窗体上有一个名称为Cmd1,标题为“小于500的整数之和”的命令按钮。其功能是产生20个0~1000的随机整数,放入一个数组中,然后输出这
下列叙述中中正确的是()。
设A="345678",则表达式Val(Mid(A,4,2)+Right(A,4))的值为______。
某程序列表框中有许多项,现在用Timer控件控制时间,0.1秒删除一项,直到删完为止,用一滚动条来显示删除的项目,请选择合适的语句,完成此程序()。PrivateSubCommand2_Click()HSeroll1.Min=0HScro
深度为5的满二叉树中,叶子结点的个数为______。
软件工程研究的内容主要包括:软件开发技术和______________。
随机试题
男性,21岁。呼吸困难,咳嗽,汗出1小时而就诊。查体:端坐呼吸,呼吸急促,口唇微绀,心率114次份,律不齐,双肺满布哮鸣音。为迅速缓解症状,应立即采取的最佳治法是()
西南某一经济相对贫困、交通又不很发达的地区,已完成规定的勘探和部分矿井初步设计工作。其中新建一个1.2Mt矿井,因为井筒地质钻孔资料充分,且岩性条件也比较好,井筒施工工程很快就完成。根据井筒尚未到底前施工所揭示的岩层条件,设计单位选定了开拓水平的位置,并设
防范黑客的主要措施有()。
统计法是调整政府机关组织实施统计活动中所形成的()的行为规范的总称。
游客若无特殊原因要求中途退团,其未享用的综合服务费一般()
根据《中华人民共和国民法典》的规定,撤销权消灭的情况包括()。
根据以下资料。回答116~120题。注:我国该年度科学研究与试验发展经费支出总额为3003.1亿元。该年度我国研究机构用于基础研究部分的“科学研究与试验发展经费支出”约为企业用于应用研究部分的()。
莱布尼兹是17世纪伟大的哲学家。他先于牛顿发表了他的微积分研究成果。但是当时牛顿公布了他的私人笔记,说明他至少在莱布尼兹发表其成果的10年前已经运用了微积分的原理。牛顿还说,在莱布尼兹发表其成果的不久前,他在给莱布尼兹的信中谈起过自己关于微积分的思想。但是
Internet为人们提供许多服务项目,最常用的是各Internet站点之间漫游,浏览文本、图形和声音等各种信息,这项服务称为()。
OnehundredandthirteenmillionAmericanshaveatleastonebank-issuedcreditcard.Creditcardsgivetheirownersautomaticc
最新回复
(
0
)