首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp中的窗体如图1-215所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下: ①
考生文件夹下的工程文件sjt5.vbp中的窗体如图1-215所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下: ①
admin
2010-09-02
71
问题
考生文件夹下的工程文件sjt5.vbp中的窗体如图1-215所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
①请为“计算最大最小值”按钮编写Click事件过程,其功能是:读取文件中的记录,计算每人的总分,找出其中最大总分和最小总分,分别放入变量maxval,minval中(这两个变量已经给出,不得修改)。
②运行程序,单击“计算最大最小值”按钮后再单击“存盘”按钮。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须依次单击“计算最大最小值”、“存盘”按钮,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤l:打开考生文件中的本题工程文件sjt5.vbp,在代码编辑窗口的适当位置编写代码。 参考代码: Private Sub Commandl_Click() Dim S As Recordtype Open"in5.dat"For Random As#1 Len= Len(S) maxval=0 minval=300 For k=1 To 20 Get#1,,S sumval=s.a1+s.a2+s.a3 If sumval>maxval Then maxval= sumval If sumval
解析
①Type语句用于在模块级别中定义一个用户自己的数据类型,其本质上是一个数据类型集合,它含有一个或一个以上的成员,每个成员可以被定义为不同的数据类型。声明白定义类型变量后,可通过“变量名.成员名”来访问自定义变量中的元素。②用Open语句打开随机文件,其语法格式为:Open FileName for Random as#FileNumberLen=记录长度。记录长度是一条记录实际所占字节数,可用Len(记录变量名)函数获取:Get#语句用于从文件中读出某记录号的记录,格式为:Get撑FileNumber,[RecordNuber],Var;Put#语句用于把记录按指定记录号写入文件,格式为:Put#FileNumber,[RccordNuber],Var。
本题原程序设计思路:在“计算最大最小值”命令按钮的单击事件过程中,先用Open语句打开考生文件夹下的随机文件in5.txt;然后预定义最大值为O,最小值为3000门课程总成绩不可能超过300),在For循环中,依次使用Get语句取出记录内容到自定义数据类型变量s,然后将s的各元素累加起来,并将总分(s中各元素的累加和)和预定义的最大值以及最小值进行比较,如果总分大于最大值则将其存入最大值,如果总分小于最小值则将其存入最小值,然后进行下一次循环判断下一条记录。
转载请注明原文地址:https://kaotiyun.com/show/HUmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面的程序用“冒泡”法将数组a中的10个整数按升序排列,请在横线处将程序补充完整。publicclassSun{publicstaticvoidmain(Stringargs[]){int[]a={678,45,324,528,439,3
调用以下哪些方法可以使运行状态的线程进入阻塞状态?( )
数据库、数据库系统和数据库管理系统之间的关系是( )。
执行下面的程序段后i和j的结果为inti=1,j=10;do{if(i++>--j)continue;}while(i<5);
下列关于JavaApplication与JavaApplet程序的差别,描述正确的是______。
下列程序的输出结果是______。intx=3;inty=10;System.out.println(y%x);
下列程序的功能是在监控台上每隔一秒钟显示一个字符串"Hello!",能够填写在程序中下划线位置,使程序完整并能正确运行的语句是publicclassTestimplementsRunnable{publicstaticvoidmain(Strin
下列程序的功能是在监控台上每隔一秒钟显示一个字符串"Hello!",能够填写在程序中下划线位置,使程序完整并能正确运行的语句是publicclassTestimplementsRunnable{publicstatic
下列哪个命令是在当前主机的指定端口上启动远程对象注册服务程序?
通常使用哪一个方法来注册事件监听器______。
随机试题
慢性不规则上腹隐痛、嗳气、反酸的浅表性胃炎患者,最适宜的物理治疗是
挤压综合征主要是指伤后出现
甲性格孤僻,对性格开朗、学习成绩优秀的同宿舍室友乙怀恨在心,一次两人因琐事发生口角,并打了起来,后被同学劝开。甲的脸被乙一拳打肿。甲在日记中写到“要报复,干掉乙,让乙从世界上彻底消失掉”,并写下了详尽的杀人计划。此后,甲无任何异常行为。两个月后,甲的日记本
银行业金融机构应当突出合规经营和风险管理的重要性,()权重应当明显高于其他类指标。
下列属于风险偏好的收益类维度的是()。
某存款类金融机构向某公司发放贷款100万元,年利率为10%,半年复利。一次,该项借款的实际利率是()。
钱学森曾提出一个问题,后来被称为“钱学森之问”:为什么我们的学校总是培养不出杰出人才?虽然他当时只是针对科学研究而言,但这个问题可以推广到很多领域。比“钱学森之问”更为具体的问题是:相对于我们的人口规模,相对于我们的经济总量,相对于我们的教育投入,从我们的
19世纪60年代后,洋务派兴办洋务事业的指导思想是()
相互独立的随机变量X1和X2均服从正态分布N(0,),则D(|X1一X2|)=________。
Googleistalkingtoautomakersabouthowtobringitsself-driving-cartechnologytomarket,executivessaidTuesday.Project
最新回复
(
0
)