首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有以下程序代码: 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
2020-08-10
54
问题
设有以下程序代码:
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)Andj<=UBound(b)Then
If a(i)<b(j)Then
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 l
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,Ifi<=UBound(a)andj<=UBound(b)条件为真,执行判断语句if a(i)<b(j)条件为真,执行语句print a(i),i=i+1输出1,变量i的值为1;执行循环判断语句i>UBound(a)And j>UBound(b),条件为假,继续执行循环。
第二次循环,变量i=1,j=0,ifi<=UBound(a)andj<=UBound(b)条件为真,执行判断语句if a(i)<b(j)条件为真,执行语句print a(i),i=i+1输出2,变量i的值为2;执行循环判断语句i>UBound(a)And j>UBound(b),条件为假,继续执行循环。
第三次循环,变量i=2,j=0,ifi<=UBound(a)aIldj<=UBound(b)条件为真,执行判断语句if a(i)<b(j)条件为假,执行语句Print(j),j=j+1输出5,变量j的值为1;执行循环判断语句i>UBound(a)And j>UBound(b),条件为假,继续执行循环。
第四次循环,变量i=2,j=1,ifi<=UBound(a)andj<=UBound(b)条件为真,执行判断语句if a(i)<b(j)条件为假,执行语句Print(j),j=j+1输出4,变量j的值为2;执行循环判断语句i>UBound(a)And j>UBound,条件为假,继续执行循环。
第五次循环,变量i=2,j:2,ifi<=UBound(a)andj<=UBound(b)条件为真,执行判断语句if a(i)<b(j)条件为假,执行语句Print b(j),j=j+1输出7,变量j的值为3;执行循环判断语句i>UBound(a)And j>UBound(b),条件为假,继续执行循环。
第六次循环,变量j=2,j=3,ifii<=UBound(a)andji<=UBound(b)条件为真,执行判断语句if a(i)<b(j)条件为真,执行语句print a(i),i=i+1输出7,变量i的值为3;执行循环判断语句i>UBound(a)And j>UBound(b),条件为假,继续执行循环。
第七次循环.变i=3.j=3,ifi<=UBound(a)and j<=UBound(b)条件为真,执行判断语句if a(i)<b(j)条件为假,执行语句蹦nt b(j),j=j+1输出8,变量j的值为4;执行循环判断语句i>UBound(a)And j>UBound(b),条件为假,继续执行循环。
第八次循环,变量i=3,j=4,ifi<=UBound(8)andj<=UBound(b)条件为真,执行判断语句if a(i)<b(j)条件为假,执行语句Print b(j),j=j+1输出2,变量j的值为5;执行循环判断语句i>UBound(a)And j>UBound(b),条件为假,继续执行循环。
第九次循环,变量i=3,j=5,ifi<=UBound(a)andj<=UBound(b)条件为假,执行判断语句If i<=UBound(a)条件为真,执行语句print a(i),i=i+1输出10,变量i的值为4;执行循环判断语句i>UBound(a)Andj>UBound(b),条件为假,继续执行循环。
第十次循环,变量i=4,j=5,ifi<=UBound(a)andj<=UBound(b)条件为假,执行判断语句Ifi<=UBound(a)条件为真,执行语句print a(i),i=i+1输出6,变量i的值为5;执行循环判断语句i>UBound(a)Andj>UBound(b),条件为真,循环结束。
所以程序输出的结果为1 2 5 4 7 7 8 2 10 6,D选项正确。本题选择D选项。
转载请注明原文地址:https://kaotiyun.com/show/uSHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下声明语句OptionBase1Dimarr(2,-1To5)AsInteger则数组arr中数组元素的个数是
在窗体上画一个名称为List1的列表框,然后编写如下程序:PrivateSubForm_Click0Fori=1To10Item=”Item”&i:Listl.Addltem
用语句Open”C:\teac.txt”ForInputAs#打开文件后,就可以编程序
下列选项中不属于结构化程序设计方法的是
设在一个工程的窗体中有如下代码:PublicxAsIntegerPrivateSubForm_Load()DimYAsIntegerEndSub在该工程的标准模块的声明部分有代码:PublicaAsInteger:P
在窗体上画一个通用对话框,程序运行中用ShowOpen方法显示“打开"对话框时,希望在该对话框的“文件类型”栏中只显示扩展名为DOC的文件,则在设计阶段应把通用对话框的Filter属性设置为
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivmeSubCommand1_Click()DimslAsString,s2AsString
设有下面程序代码:PrivateSubCommand1_Click()DimstrAsString,chAsStringstr="VisualBasicProgramming"ch="a"n=fun(ch,st)Prints
随机试题
甲乙两班学生的跳高成绩的情况如下表,请问这两班学生在跳高成绩达标率上的人数比例之间是否有显著的差异。(α=0.05)成绩班级达标未达标甲班4862乙班5238(χ2=n(ad-bc)2(a+b)(c+d)(a+c)(b+d))
张某,26岁。干咳日久,痰少黏白,痰中夹血,声哑,口干咽燥,潮热盗汗,日渐消瘦,舌红少苔,脉细数。宜诊为
难溶电解质BaCO3在下列溶液中溶解度最大的是:
从工程地质的角度,根据地下水的埋藏条件可将地下水分为上层滞水,(),承压水。
某商品流通企业为扩大销售额制定了四种方案,四种方案的所需费用和可能得到的销售额预计数如下表所示。用价值分析法选择出的比较满意的方案是()。
根据《公司法》的规定,股份有限公司股东大会所作的下列决议中,必须经出席会议的股东所持表决权的2/3以上通过的有()。
老师穿了一套新衣服,课前一进班级,所有学生的眼光都盯着老师。有几个淘气的男同学就凑在一起,用调侃的语调大声喊道:“老师,我爱你。”下列处理方式,最恰当的一项是()。
下图示意北半球某区域2012年1月5日14时和6日8时海平面气压(单位:百帕)分布,读图完成下面各题。5日14时~6日8时,①地()。
小轩和小宇两个人都参加了学校组织的数学竞赛,这次竞赛共有n道试题,两个人都答错的题占题目总数的,小宇答对了题目总数的,小轩答错了3道题,则两个人都答对的题为()道。
Housedustamountsofjustthreemicrogramswereshowntoaffectthecells—farlowerthanthemassofdustchildrenareexposed
最新回复
(
0
)