首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹卜有一个工程义件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他
在考生文件夹卜有一个工程义件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他
admin
2018-07-11
21
问题
在考生文件夹卜有一个工程义件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他数据的排列顺序不变,并将移动后的结果显示在Ifist2列表框中。单击“保存”按钮,则保存移动后的结果。
要求:“显示数据”和“保存”按钮的Click事件过程已经给出,请编写“移动”按钮的Cliek事件过程实现上述功能。程序窗体界面如图所示。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前必须单击“移动”按钮,并单击“保存”按钮保存结果,否则无成绩。最后程序按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗扣,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim i,max,maxindex As Integer max=a(1) For i=2 To UBornd(a) If a(1)>max Then max=a(1) maxindex=i End If Next i List2.AddItem(a(maxindex)) For i=1 To UBound(a) If i<>msxindex Then List2.AddItem (a(i)) End If Next i 步骤3:渊试并运行程序,关闭程序后按题目要求存盘。
解析
本题考查数组的使用,通过循环结构找出数组中的最大值及对应的下标,并将值分别保存起来。然后利用For循环和List.addltem方法将数组元素值添加到列表框中显示。
转载请注明原文地址:https://jikaoti.com/ti/WZm0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为Command1的命令按钮,其事件过程如下:PrivateSubCommand1_Click()X="VisualBasicProgramming"a=Right(x,11)b=Mid(x,7,5)C=MsgB
设计窗体时,双击窗体上没有控件的地方,打开的窗口是
以下关于VB特点的叙述中,错误的是
窗体上有1个Timerl计时器,1个Shapel形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubTimer1Timer()PrivateSubForm_Load()
窗体上有一个名称为Command1的命令按钮,一个名称为Text1的文本框。编写如下程序:PrivateSubCommand1_Click()DimxAsIntegerX=Val(InputBox("输入数据")):Text1=Str(
在软件开发中,需求分析阶段可以使用的工具是( )。
下面的程序是利用公式:π=4-4/3+4/5-4/7+4/9-4/11+…计算机π的近似值PvivateSubCommand1_Click() DimPIAsDouble,xAsDouble,kAsLong,signAsI
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是( )。
某二叉树共有13个结点,其中有4个度为1的结点,则叶子结点数为
算法的空间复杂度是指( )。
随机试题
休克时引起微循环无复流现象的素
塑料基托的厚度约
一台容量为20kVA的单相变压器,电压为3300/220V。若变压器在满载运行,二次侧可接40W,220V,cosφ=0.44,则需要日光灯()盏。(忽略镇流器损耗)
在对基础货币产生影响的诸多因素中,由商业银行决定的因素是()。
一般而言,禀赋优异儿童的智商应在()
根据下表回答136~140题:2003年,广东第三产业占GDP比重比2002年增长了几个百分点?()
民风∶淳朴
Signhasbecomeascientifichotbutton.Onlyinthepast20yearshavespecialistsinlanguagestudyrealizedthatsignedlangu
Couldyoursmartphonepreventacarfromhittingyou?GeneralMotorsandotherresearchersthinkthat’sapossibility【C1】______a
ACross-CulturalContext:Americans,Germans,andEnglishTheAmericans,theGermans,andtheEnglishsharesignificantport
最新回复
(
0
)