首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt.in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。 窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt.in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。 窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a
admin
2018-09-19
33
问题
考生文件夹下有工程文件sjt5.vbp和数据文件in5.txt.in5.txt中有多条记录,每条记录占一行,含4个数据项,数据项的含义依次是:姓名、数学成绩、语文成绩、英语成绩。
窗体上按钮“读取数据”的功能是把in5.txt中的所有记录读到数组a中(每个数组元素中有一条记录);按钮“排序”的功能是按总分从大到小排序,结果仍放在数组a中;按钮“保存"的功能是存盘,其代码已经给出,不能修改。
请将事件过程中的注释符去掉,把“?”改为正确的内容,并编写“排序”按钮的事件过程。
注意:考生不得修改窗体文件中已经存在的控件和程序,必须运行程序,并依次按下“读入数据”、“排序”、“保存”按钮,否则无成绩,最后将程序按原文件名存盘。
选项
答案
步骤1:打开考生文件夹中的工程文件sjt5.vbp,在代码编辑窗口中,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Do While Not EOF(1) num=k-1 Private Sub Command2 Click() ’=========考试编写============ Dim k As Integer,j As Integer Dim temp As rec For i=1 To num-1 k= i For j =i + 1 To num If sum(k) < sum(j) Then k=j End If Next j temp=a(i):a(i)=a(k) a(k)=temp Next i For k=1 To num Print a(k).name;a(k).Math; a(k).Chinese;a(k).English Next k ’--------------------------------- 步骤2:按
键运行程序,单击各个按钮测试验证。 步骤3:按要求将文件保存至考生文件夹中。
解析
题目要求从in5.txt读出数据,然后丰非序并保存到输出文件。程序已经完成保存命令按钮的事件代码,需要补充排序代码和修改读取数据代码。
第一个“?”处判断循环的结束条件,如果文件没有结束则继续读取,EOF函数检查文件是否到文件尾,参数是文件号;第二个“?”处是计算记录的数量,由于循环变量k的初值为1,每次循环记录数增加1,因此循环结束之后k比记录数多1。
数据排序可以使用多种排序方法,比如选择法排序,其方法是:(1)从n个数的数序列中选出最大的数,与第1个数交换位置;除第1个数外,其余n-1个数再按(1)的方法选出次大的数,与第2个数交换位置;(3)重复(1)步n-1遍,最后构成递减序列。
转载请注明原文地址:https://kaotiyun.com/show/S6Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于栈的叙述中,正确的是
窗体上有一个名为List1的列表框和一个名为Command1的命令按钮,并有下面的事件过程:PrivateSubCommand1_Click() n%=List1.ListIndex Ifn>0Then ch$=List1.Lis
如果要在窗体上使用2组单选按钮,每组都可以有一个被选中,则应该做的是( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp,含有两个窗体,名称分别为Form1、Form2。其中Form1上有两个控件(图像框和计时器)和一个菜单项“操作”,含有三个子菜单(如图1所示)。Form2上有一个名称为Command1、标题为“返回”的命
对于计时器控件,下列叙述错误的是
编写如下程序:DimxAsInteger,yAsInteger,zAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2:y=3:z=10
下面说法中错误的是
若实体A和B是一对一的联系,实体B和C是多对一的联系,则实体A和C的联系是
某二叉树共有13个结点,其中有4个度为1的结点,则叶子结点数为
随机试题
冲击试验的标准试样横截面尺寸一般为()。
关于正常人二尖瓣口血流频谱的描述,不正确的是()。
苯丙酮尿症的临床特点有()。
在担保贷款中,担保企业作为第三者要以其财产对借款企业的还贷能力予以担保,但不可以用信誉来担保。()
下列关于一般公司债券发行的表述中,正确的有()。
2×20年12月31日,甲公司因以公允价值计量且其变动计入当期损益的金融资产和以公允价值计量且其变动计入其他综合收益的金融资产的公允价值变动,分别确认了20万元的递延所得税资产和40万元的递延所得税负债。甲公司当期应交所得税的金额为200万元。假定不考虑其
促进学习迁移的有效教学措施有()。
某地发生了学生饮用豆奶中毒事件,当地政府采取“捂”的方式,且不允许家长到外地治疗,导致上百家长到北京求医,后在媒体介入下,发现了有上千学生中毒,引起社会广泛关注。请据此回答问题:如果让你负责此事,你会如何去处理善后工作?
(1)计入黑名单(2)利用信用卡网上套现(3)拒绝提供服务(4)引起网上支付公司重视(5)媒体新闻报道
HighintheMojavedesert,130milesnortheastofLosAngeles,liesavastfieldofmirrors.Crisscrossingrowsofglassandmet
最新回复
(
0
)