首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他
admin
2016-06-30
21
问题
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动”按钮,则将数组a中的最大值移动到数组的最前面,其他数据的排列顺序不变,并将移动后的结果显示在List2列表框中。单击“保存”按钮,则保存移动后的结果。
要求:“显示数据”和“保存”按钮的Click事件过程已经给出,请编写“移动”按钮的Click事件过程实现上述功能。程序窗体界面如图所示。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前必须单击“移动”按钮,并单击“保存”按钮保存结果,否则无成绩。最后程序按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Explicit Option Base 1 Dim a(10)As Integer Private Sub Commandl_Click() Dim i As Integer Listl.CIear Open App.Path&”\in5.dat”For Input As#1 For i=1 To 10 Input#1,a(i) Listl.Addltem(a(i)) Next i Close#1 End Sub Private Sub Command2_Click() ’=======考生编写的程序======== ,======================== End Sub Private Sub Command3_Click() Dim i As Integer Open App.Path&”\out5.dat”For Output As#1 For i=0 To 9 Print#1,List2.List(i) Next i Close#1 End Sub 程序结束 考生编写部分填: Dim i,max,mflxindex As Integer max=a(1) For i=2 To UBound(a) If a(i)>max Then max=a(i) maxindex=i End If Next i List2.AddItem(a(maxindex)) For i=1 To UBound(a) If i<>maxindex Then List2.AddItem(a(i)) End If Next i 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
本题考查数组的使用,通过循环结构找出数组中的最大值及对应的下标,并将值分别保存起来。然后利用For循环和List.addltem方法将数组元素值添加到列表框中显示。
转载请注明原文地址:https://kaotiyun.com/show/YvLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定有如下的Sub过程:SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSub
已知数据表A中每个元素距其最终位置不远,为节省时间,应采用的算法是
若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是()。
在文本框中,当用户键入一个字符时,能同时引发的事件的是()。
下列不属于软件工程的3个要素的是
设有如下的记录类型:TypeStudentnumberAsStringnameASStringageAsIntegerEndType则正确引用该记录类型变量的代码是()。
以下叙述中正确的是()。
需求分析的最终结果是产生______。
产生[10,37]之间的随机整数的VisualBasic表达式是()。
在窗体上有一个名称为Drivel的驱动器列表框,一个名称为Dirl的目录列表框,一个名称为Filel的文件列表框,两个名称分别为Labell、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化
随机试题
下列关于锤造术的描述中,错误的是
A.每搏输出量 B.心输出量 C.心指数 D.射血分数 E.心力储备心率与每搏输出量的乘积
下列财产应当认定为共同共有的是()。
顶推施工是桥梁施工的重要方法之一。顶推的方法又可分为单点顶推和多点顶推,下列说法正确的有()。
纳税人办理税务登记后,如发生下列()情形时,应当办理注销税务登记。
关于基尼系数的正确说法包括( )。
根据近代世界各国发生通货紧缩的情况进行分析,通货紧缩的原因有()。
甲公司向乙公司购买价值100万元的彩电,合同约定甲公司先预付20万元货款,其余80万元货款在提货后3个月内付清,并由丙公司提供连带保证担保。但未约定保证范围。提货1个月后,甲公司在征得乙公司同意后,将80万元债务转移给尚欠其80万元货款的丁公司。对此,丙公
Ifsweets______badfortheteeth,Iwillstopeatingthem.
Goodevening,ladiesandgentlemen!Firstofall,letmethankyoufor【T1】_____ustosuchagreatChristmasparty.We【T2】_____the
最新回复
(
0
)