首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程Sort将数组进行降序排序。程序运行后,分别向四个文本框中各输入一个整数(如图1所示),然后单击命令按钮,即可使数组按降序排序,并显示在文本框中(如图2
在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程Sort将数组进行降序排序。程序运行后,分别向四个文本框中各输入一个整数(如图1所示),然后单击命令按钮,即可使数组按降序排序,并显示在文本框中(如图2
admin
2016-06-30
31
问题
在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm),其功能是通过调用过程Sort将数组进行降序排序。程序运行后,分别向四个文本框中各输入一个整数(如图1所示),然后单击命令按钮,即可使数组按降序排序,并显示在文本框中(如图2所示)。这个程序不完整,请把它补充完整,并能正确运行。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Sort(a()As Integer) Dim Start As Integer,Finish As Integer Dim i As Integer,j As Integer,t As Integer ’Start=?(a) Tinish=?(a) ’For i=?To 2 Step一1 ’For j=1 To? ’If a(j)?a(j+1)Then t=a(j+1) a(j+1)=a(j) a(j)=t End If Next j Next i End Sub Private Sub Commandl_Click() Dim arr1 Dim art2(4)As Integer arr1=Array(Val(Text1.Text),Val(Text2.Text),Vaj (Text3.Text),yal(Text4.Text)) For i=1 To 4 art2(i)=CInt(arrl(i)) Next i Sort art2() Text1.Text=an2(1) Text2.Text=an2(2) Text3.Text=arr2(3) Text4.Text=arr2(4) End Sub 程序结束 第1个?处填入:LBound 第2个?处填入:UBound 第3个?处填入:4 第4个?处填入:3 第5个?处填入:< 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Array(arglist)函数用于返回一个以arglist参数中用逗号隔开的值为元素的数组。UBound函数用于返回数组某一维的最大下标(上界),LBound函数用于返回数组某一维的最小下标(下界)。
在本题Sort过程中,源程序利用一个嵌套的For循环对数组a中的元素按从大到小进行排序。
转载请注明原文地址:https://kaotiyun.com/show/ivLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的运行结果是()。s=0:t=0:u=0Forx=1To3Fory=1ToxForz=yTo3 s=s+1Nextzt=t+1Nextyu=u+1
为了使图像框适应图片的大小,下列哪个属性设置正确
能够获得一个文本框中被选取文本的内容的属性是
表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是
下列不属于软件工程的3个要素的是
下列程序运行时输出的结果是PrivateSubForm_Click()Dimx x=Array("天天向上","清华大学","天上人间","程序设计") Fori=LBound(a,1)toUBound(a,1
某二叉树中度为2的结点有n个,则该二叉树中有______个叶子结点。
定义过程语句中的〈参数表列〉可以是()。
在窗体上用复制、粘贴的方法建立了一个命令按钮数组,数组名为M1。设窗体Form1标题为“myform1”,双击控件数组中的第3个按钮,打开代码编辑器,写下如下代码:PrivaeSubM1_Click(IndexAsInteger)F
设A="123456",则表达式Val(Left(A,4)+Mid(A,4,2))的值为
随机试题
患者男,33岁。因1小时前扭伤致右踝肿痛,不能行走来诊。经X线检查排除骨折,治疗上需要采取的措施有
A、Five.B、Twelve.C、Nine.D、Fourteen.D
Earthquakesaresomethingthatmostpeoplefear.Therearesomeplacesthathave【71】ornoearthquakes.Mostplacesintheworld,
Canadaisthesecondlargestcountryintheworldinarea,althoughits【1】isonlysome25million,most【2】ina200-milestrip【3】
A.四逆汤B.四逆散C.当归六黄汤D.当归四逆汤E.大建中汤方中当归与桂枝配伍以养血通脉的方剂是
抗生素治疗牙周病的原则是
患者,男,40岁。2天前发现下颌部有两处粟粒状疹,麻痒微痛,未予治疗。现红肿灼热,痛剧,体热。可用以下哪种针灸方法
根据民事诉讼法的规定,申请执行的期限,双方是法人或其他经济组织的为多长时间?
用友报表系统中,QM()函数的含义是,取()数据。
乘坐沿海和长江客轮,持全价票旅客可随身携带免费行李()千克。
最新回复
(
0
)