首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp中的窗体如图2.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
考生文件夹下的工程文件sjt5.vbp中的窗体如图2.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
admin
2020-07-22
68
问题
考生文件夹下的工程文件sjt5.vbp中的窗体如图2.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
①请为“计算最大最小值”按钮编写Click事件过程,其功能是:读取文件中的记录,计算每人的总分,找出其中最大总分和最小总分,分别放入变量maxval,minval中(这两个变量已经给出,不得修改)。
②运行程序,单击“计算最大最小值”按钮后再单击“存盘”按钮。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须依次单击“计算最大最小值”、“存盘”按钮,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件中的本题工程文件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
解析
转载请注明原文地址:https://kaotiyun.com/show/1cHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设窗体上有一个列表框控件List1,含有若干列表项。以下能表示当前被选中的列表项内容的是()。
设窗体上有1个名称为List1的列表框,程序运行时,如果选中了第3个列表项(最上面的列表项为第0个列表项),则下面不成立的是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。以下程序的功能是从顺序文件中读取数据:PrivmeSubCommand1_Click()DimslAsString,s2AsString
为了使文本框只具有垂直滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为
在标准模块中用Public关键字定义的变量,其作用域为
以下关于VB对象属性的叙述中,错误的是
软件生存周期中,解决软件“做什么”的阶段是()。
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat文件中的
在考生文件夹下有一个工程文件sjt5.vbp,在该工程文件中已经定义了一个学生记录类型数据StudType。(1)在考生文件夹下有一个工程文件sjt3.vbp,其功有三个标题分别为“学号”、“姓名”和“平均分”的标签;三个初始内容为空,用于接收学
关系的实体完整性要求关系中不能为空的属性是()。
随机试题
总成本是指全部产品的生产费用总和或全部菜点的成本之和。()
Onhernextanniversaryshe______marriedfor25years.
在编制预算定额人工消耗量时,已知其必需消耗的技术工种用工为30工日,超运距用工2工日,辅助用工3工日,人工幅度差率为10%,则预算定额的人工消耗量为()。
下列各项表述中,正确的有()。
如果服务对象对某物或某事感到害怕、恐惧、不敢接近,就可以运用( )的行为治疗技巧。
在经济运行过程中,阻碍互惠交换不能实现的主要障碍包括()。[2012年11月三级真题]
有医学研究显示,食用抗氧化剂对延长寿命没有显著帮助,有时甚至会对人体造成伤害。研究结果指出,不要再吃抗氧化剂了,而应该通过均衡的饮食和适当的运动来延长寿命。下列哪项如果为真,最能削弱上述研究成果?
网络故障管理的目的是保证网络能够提供连续、可靠的服务,主要是(60)。
Mostpeoplefeelstressatsometimeintheirlives.Somepeoplelikethispressureandworkbetterbecauseofit.Otherpeople
Thinkbeforeyoupost.Youmightnotbeawareofhowmuchinformationyou’re【C1】______.That’sthemessagefromthefounders
最新回复
(
0
)