首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读下面程序代码: Private Sub Command1_Click() Dim tem pAs Integer a=Array(2,7,4,10,0,1,8,5,3,9,6) For i=7 To 4 Step-1 For j=3 To i-1 If
阅读下面程序代码: Private Sub Command1_Click() Dim tem pAs Integer a=Array(2,7,4,10,0,1,8,5,3,9,6) For i=7 To 4 Step-1 For j=3 To i-1 If
admin
2016-06-22
25
问题
阅读下面程序代码:
Private Sub Command1_Click()
Dim tem pAs Integer
a=Array(2,7,4,10,0,1,8,5,3,9,6)
For i=7 To 4 Step-1
For j=3 To i-1
If a(j)>a(j+1)Then
temp=a(j)
a(j)=a(j+1)
a(j+1)=temp
End If
Next j
Next i
For i=0 To 10
Print a(i);
Next i
End Sub
此程序代码运行后的输出是( )。
选项
A、2 7 4 0 1 5 8 10 3 9 6
B、0 1 23 4 5 6 7 8 9 10
C、2 7 0 1 4 5 8 10 3 9 6
D、2 7 4 10 0 1 3 5 8 9 6
答案
A
解析
Array函数用来为数组元素赋值,即把一个数据集读入某个数组。本题利用Array函数,将一组整型数据读入到数组变量a中。利用二重For循环对数组中的部分元素进行排序,循环执行过程中,各变量的值如下表所示。
循环结束后数组中各元素的值依次为:(2,7,4,0,1,5,8,10,3,9,6);所以A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/g0Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
阅读程序:PrivateSubCommandl一Click()DimarrDimiASIntegerarr=Array(0,1,2,3,4,5,6,7,8,9,10)Fori=0To2
假定用下面的语句打开文件:Open“Filel.txt”forInputAs#1则不能正确读文件的语句是
阅读程序:Functionfac(ByValnAsInteger)AsIntegerDimtempAsIntegertemp=1Fori%=1Tonte
设有如下程序:PrivateSubForm_Click()Dimary(1To5)AsIntegerDimiAsIntegerDimsumAsIntegerFori=1To5
下列叙述中正确的是
以下关于过程及过程参数的描述中,错误的是
下列各选项说法错误的一项是
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为
下列叙述中,不属于测试的特征的是
随机试题
工程师设计蓝图主要是一种()。A.再造想象B.幻想C.表象D.创造想象
A.囊内压升高B.肾小球毛细血管血压降低C.血浆胶体渗透压升高D.血浆晶体渗透压降低E.肾小管内溶质浓度增加糖尿病患者产生多尿的主要机制是
经络主要包括()
在监理合同的履行过程中,因委托人的过失给监理人造成经济损失8万元,该合同中发包人向监理人约定支付监理酬金总额15万元,监理人已缴纳税金2万元,委托人应承担的赔偿金额为( )万元。
来自疫区列车的入境旅客应填写( ),检验检疫人员视其情况检阅预防接种证书和健康证书。发现病情按规定对其进行隔离留验。
对每一提单上的货物按起码收费标准收取运费所签发的提单是()。
“同里杯”第十六届中国围棋天元战在北京举行。首次获得天元挑战权的湖南新秀黄奕中在对刘世振、董彦、王磊三盘棋的激战中闯关成功,获得胜利。______。填入划横线部分不恰当的一项是:
【2014年北京第12题】王某不服工商所对其依法作出的300元罚款的决定,应向()提出复议。
Youwillhearaspeakergivingabriefintroductionaboutafamouscompany,Henkel.Asyoulisten,forquestions1-12,compl
Completethenotesbelow.WriteNOMORETHANONEWORDAND/ORANUMBERforeachanswer.
最新回复
(
0
)