首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名为Command1的命令按钮,并有下面的程序: Private Sub Command1_Click() Dim arr(5)As Integer For k=I To 5 art(k)=k Next
窗体上有一个名为Command1的命令按钮,并有下面的程序: Private Sub Command1_Click() Dim arr(5)As Integer For k=I To 5 art(k)=k Next
admin
2020-02-27
17
问题
窗体上有一个名为Command1的命令按钮,并有下面的程序:
Private Sub Command1_Click()
Dim arr(5)As Integer
For k=I To 5
art(k)=k
Next k
prog art()
For k=1 To 5
Print arr(k);
Next k
End Sub
Sub prog(a()As Integer)
n=UBound(a)
For i=n To 2 step—1
For i=1 To n一1
if a(j)
t=a(j):a(j)=a(j+1):a(j+1)=t
End If
Next j
Next i
End Sub
程序运行时,单击命令按钮后显示的是( )。
选项
A、1 2 3 4 5
B、5 4 3 2 1
C、0 1 2 3 4
D、4 3 2 1 0
答案
B
解析
程序对数组元素赋初值为1、2、3、4、5。Llbound函数返回数组可用的最大下标,过程prog的功能是遍历数组对数组中的元素进行排序,由条件a(j)
转载请注明原文地址:https://kaotiyun.com/show/tFTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对软件设计中应遵循的准则描述正确的是()。
为了使一个复选框被禁用(灰色显示),应把它的Value属性设置为()。
下面控件中,没有Caption属性的是()。
名称为List1的列表框中已有若干列表项,为了使选中的列表项重复出现在列表的最后,应使用的语句为()。
设在窗体模块中有如下类型定义:PublicTypeRecnumAsIntegernameAsStringEndType下面关于这一类型定义的叙述中正确的是()。
设窗体上有名称为Optionl的单选按钮,且程序中有语句:IfOptionl.Value=TrueThen下面语句审与该语句丕等俭的是()。
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:①单击“读数据”按钮,则将考生文件夹下in3.dat文件中的100个正整数读入数组a中。②单击“计算”按钮,则找出这100个正整数中的所有完全平方数(一个整数若是另一个整数的
(1)在名称为Form1的窗体上画一个标题为“直辖市”、名称为。Frame1的框架,在框架中画一个名称为Combo1的组合框,其编辑域为空,有如图所示的4个列表项,外观风格也与图中相同。注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.v
用树型结构表示实体之间联系的模型是()。
在学校里,教师可以讲授不同的课程,同一课程也可由不同教师讲授,则实体教师与实体课程间的联系是()。
随机试题
甲企业为增值税一般纳税人,适用的增值税税率为17%。材料采用实际成本核算。该企业委托外单位加工材料一批,原材料价款60万元,加工费用16万元,由受托方代收代缴的消费税1万元,材料已经加工完毕并验收入库,加工费用、增值税以及消费税都已经支付。(1)假设委托
投资盘点的核心人员应当是
社会主义初级阶段非公有制经济主要包括()
失血性休克
局域网(LocalAreaNetwork),简称LAN,是指在某一施工项目部由多台计算机互联成的计算机组,局域网可以实现文件管理、应用软件共享、打印机共享、扫描仪共享、工作组内的日程安排、电子邮件和传真通信服务等功能。下列属于局域网的特点的是(
企业编制的财务会计报告必须以人民币为本位币。()
失业率与物价上涨率存在()关系。
Ahalfhourbeforetesttime,Iwasafraidtolookinthemirror.ButIhadtoassessthedamages.Afterall,therewerecutegu
Lastyear,over700peoplewerekilledinKarachi’sviolence.Inthepastthreemonthsthefigurehas【C1】______300.Businessmen
Allhesaidwassofreefromeffortand______andwassaidwithsuchacaptivatingcharm.
最新回复
(
0
)