首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设有以下程序代码: 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
29
问题
设有以下程序代码:
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中数组元素的个数是
设变量x中的值是395,则下面语句的输出是Printx\100+((xMod100)\10)*10+(xMod10)*100
用语句Open”C:\teac.txt”ForInputAs#打开文件后,就可以编程序
设有窗体的FormMouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If
下列选项中不属于结构化程序设计方法的是
设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
设在一个工程的窗体中有如下代码:PublicxAsIntegerPrivateSubForm_Load()DimYAsIntegerEndSub在该工程的标准模块的声明部分有代码:PublicaAsInteger:P
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivmeSubCommand1_Click()DimslAsString,s2AsString
阅读程序:OptionBase1PrivateSubFormClick()DimArr(3,3)AsIntegerFori=1To3Fori=1To3Ifj=iOrj=3一i+1ThenArr(i,j)=
设有如下程序:PrivateSUbFormClick().num=InputBox(“请输入一个实数”):P:InStr(num,“.”)Ifp>0ThenPrintMid(num,P+1)Prim“END”EndIf运行程序单击窗
随机试题
张仲景对八纲辨证的贡献是
A.血酸性磷酸酶升高B.血酸性糖蛋白升高C.血CEA升高D.血AFP升高E.血VCA-IgA抗体升高鼻咽癌患者
患者,男性,34岁,因外伤瘫痪导致尿失禁,留置导尿,尿液出现浑浊、色黄,护理时应注意
下列关于市场准入负面清单的说法,不正确的是()。
下列各种风险应对措施中,能够转移风险的是()。(2013年)
1697年洛克为英国贸易和殖民地事务委员会拟写过一份报告,在这份报告中,他主张开办
A、 B、 C、 D、 A
Inearlytimes,bookconsistedofinscribedclaytablets,rollsofpapyrus,(1)______sheetsofparchment,orothermaterials.
昨天看电影我没有买到好票。
Whendoestheconversationprobablytakeplace?
最新回复
(
0
)