首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有以下程序代码: Private Sub Command1_Click() a=Array(1,2,7,10,6) b=Array(5,4,7,8,2) i=0 j=0 Do If i
设有以下程序代码: Private Sub Command1_Click() a=Array(1,2,7,10,6) b=Array(5,4,7,8,2) i=0 j=0 Do If i
admin
2019-06-20
35
问题
设有以下程序代码:
Private Sub Command1_Click()
a=Array(1,2,7,10,6)
b=Array(5,4,7,8,2)
i=0
j=0
Do
If i<=UBound(a)And j<=UBound(b)Then
If a(i)
Print a(i);
i=i+1
Else
Print b(j);
j=j+1
End If
Else
If i<=UBound(a)Then
Print a(i);
i=i+1
End If
If j<=UBound(b)Then
Print b(j);
j=j+1
End If
End If
Loop Until i>UBound(a)And j>UBound(b)
End Sub
上面事件过程执行后产生的输出是( )。
选项
A、1 5 2 4 7 7 10 8 6 2
B、1 2 2 4 5 6 7 7 8 10
C、1 2 7 10 6 5 4 7 8 1
D、1 2 5 4 7 7 8 2 10 6
答案
D
解析
程序中变量a和变量b分别为数组变量,并且使用Array函数给两个数组进行了初始化,变量i和j初始值均为0,程序进入Do……Loop Until循环结构,程序执行过程如下所示:
第一次循环,变量i=0,j=0,if i<=uBound(a)andj<=UBound(b)条件为真,执行判断语句if a(i)
UBound(a)And j>uBound(b),条件为假,继续执行循环。
第二次循环,变量i=1,j=0,ifi<=UBound(a)andj<=UBound(b)条件为真,执行判断语句if a(i)
uBound(a)And j>UBound(b),条件为假,继续执行循环。
第三次循环,变量i=2,j=0,if i<=UBound(a)and j<=UBound(b)条件为真,执行判断语句if a(i)
UBound(a)And j>UBound(b),条件为假,继续执行循环。
第四次循环,变量i=2,j=l,ifi<=UBound(a)and j<=UBound(b)条件为真,执行判断语句if a(i)
UBound(a)And j>L/Bound(b),条件为假,继续执行循环。
第五次循环,变量i=2,j=2,ifi<=UBound(a)andj<=UBound(b)条件为真,执行判断语句if a(i)
UBound(a)And j>UBound(b),条件为假,继续执行循环。
第六次循环,变量i=2,j=3,ifi<=UBound(a)andj<=UBound(b)条件为真,执行判断语句if a(i)
UBound(a) And j>UBound(b),条件为假,继续执行循环。
第七次循环,变量i-3,j=3,if i<=UBound(a)and j<=UBound(b)条件为真,执行判断语句if a(i)
UBound(a) And j>UBound(b),条件为假,继续执行循环。
第八次循环,变量i=3,j=4,ifi<=uBound(a)and j<=UBound(b)条件为真,执行判断语句if a(i)
UBound(a)And j>UBound(b),条件为假,继续执行循环。
第九次循环,变量i=3,j=5,if i<=uBound(a)and j<=uBound(b)条件为假,执行判断语句If i<=UBound(a)条件为真,执行语句print a(i),i=i+1输出10,变量i的值为4;执行循环判断语句i>uBound(a)And i>UBound(b),条件为假,继续执行循环。
第十次循环,变量i=4,j=5,if i<=UBound(a)and j<=UBound(b)条件为假,执行判断语句If i<=UBound(a)条件为真,执行语句print a(i),i=i+1输出6,变量i的值为5;执行循环判断语句i>uBound(a)And i>UBound(b),条件为真,循环结束。
所以程序输出的结果为1 2 5 4 7 7 8 2 10 6,D选项正确。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/RSUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个数据库文件“samp2.accdb”,里面已经设计好了表对象“tCourse”、“tGrade”和“tStudent”,请按以下要求完成设计。(1)创建一个查询,查找并显示“姓名”、“政治面貌”和“毕业学校”等3个字段的内容,
在考生文件夹下的“samp1.acedb”数据库文件中已建立了表对象“tEmployee”。请按以下操作要求,完成表的设计。(1)判断并设置“tEmployee”表的主键。(2)设置“性别”字段的默认值为“男”。(3)删除表中
在考生文件夹下有一个数据库文件“samp2.accdb”,里面已经设计好3个关联表对象“tCourse”、“tGrade”、“tStudent”和一个空表“tTemp”,请按以下要求完成设计。(1)创建一个查询,查找并显示含有不及格成绩学生的“姓
在考生文件夹下有数据库文件“samp1.accdb”和Excel文件“Stab.xlsx”,“samp1.acedb”中已建立表对象“student”和“grade”,请按以下要求,完成表的各种操作。(1)将考生文件夹下的Excel文件“Stab
从键盘上输入一个浮点数asingle,利用字符串函数对该数进行处理后,如果输出的内容不是“非浮点数”,则对程序输出的内容分析正确的是()。asingle=InputBox("请输入一个浮点数:")str1$=Str$(asingle):p=In
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Fori=1To4X=4Forj=1To3X=3Fork=1To2X=X+6NextkNextj,iPrintxEnd
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsString)AsInteger…EndFunction若已有变量声明:Dimx(5)AsInteger,nAsInteger,chA
要使菜单项MenuOne在程序运行时失效,应使用的语句是()。
以下程序在文本框Text1中输入任一字符串,并按相反的次序显示在文本框Text2中,在横线处应填写()。DimNAsString,CAsString,DAsStringN=Text1.TextM=______________F
设x为一整型变量,且语句的开始为:SelectCasex,则不符合语法规则的Case子句是
随机试题
证券投资和其他投资属于
α测试
A.特发性血小板减少性紫癜B.再生障碍性贫血C.缺铁性贫血D.溶血性贫血E.慢性粒细胞白血病
下列不属于现场组装大型设备各运动部件之间的相对运动精度的是()。
基金财产的债务由基金财产本身承担,基金份额持有人以其()为限对基金财产的债务承担责任。基金合同依法另有约定的,从其约定。
某企业为增值税一般纳税人,主要生产甲、乙两种产品,适用增值税税率为17%,消费税税率为8%,2004年3月份有关会计资料如下:(1)销售甲产品1000件,每件不含税价格为800元,同时负责运输并收取运输费1000元。(2)将甲产品50件用于职工福利,已
对国家规定或者经营者与消费者约定包修的商品,在保修期内()修理仍不能正常使用的,经营者应当负责更换或者退货。
刘老师讲析一篇初中课文时,在网络上搜索到一组关于该课文的动画,该组动画的格式最有可能是()。
鲁班受到了丝草叶子边缘细齿划破手指的启发发明了刀锯,瓦特受到了蒸汽顶起壶盖的启发发明了蒸汽机,这两件事例说明了定向思维的作用。()
下列说法中错误的是()。
最新回复
(
0
)