首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp 中的窗体如图1-40 所示。考生文件夹下的随机文件in5.dat 中有20条记录,每条记录含姓名和三个分数(均为100 以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下
考生文件夹下的工程文件sjt5.vbp 中的窗体如图1-40 所示。考生文件夹下的随机文件in5.dat 中有20条记录,每条记录含姓名和三个分数(均为100 以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下
admin
2018-10-29
63
问题
考生文件夹下的工程文件sjt5.vbp 中的窗体如图1-40 所示。考生文件夹下的随机文件in5.dat 中有20条记录,每条记录含姓名和三个分数(均为100 以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
①请为“计算最大最小值”按钮编写Click事件过程,其功能是:读取文件中的记录,计算每人的总分,找出其中最大总分和最小总分,分别放入变量maxval,minval 中(这两个变量已经给出,不得修改)。
②运行程序,单击“计算最大最小值”按钮后再单击“存盘”按钮。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须依次单击“计算最大最小值”、“存盘”按钮,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件factsjt5.vbp,在代码编辑窗口的适当位置编写代码。 参考代码: Private Sub Command1_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 = sumval2i-1(i 为行号) If sumval < minval Then minval = sumval Next k Close #1 End Sub 步骤2:运行程序,单击“计算最大最小值”命令按钮,然后单击“存盘”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/S3Fp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
命令按钮Command1的事件过程如下:PrivateSubCommand1_Click() Dimarr(5,5)AsInteger DimiAsInteger,jAsInteger Fori=1To4
在面向对象的程序设计中,可被对象识别的动作称为( )。
为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为( )。
可以产生30~50(含30和50)之间的随机整数的表达式是( )。
支持子程序调用的数据结构是( )。
以下能接收焦点的控件是
能够用于标识对象名称的属性是( )。
以下关于文件的叙述中,错误的是( )。
能够产生1到50之间(含1和50)随机整数的表达式是( )。
设有如下事件过程:PrivateSubForm_Click() Sum=0 Fork=1To3 Ifk
随机试题
简述临床诊治工作的基本道德原则。
桩冠预备完成后,做以下哪种处理
可参与证券投资的金融机构包括()。Ⅰ.证券经营机构Ⅱ.银行业金融机构Ⅲ.保险经营机构Ⅳ.企业集团财务公司
对一种进口商品同时定有从价税和从量税两种税率,但征税时选择其税额较高的一种征税。这种税率称为()。
学校不得聘用受过处分的人担任工作人员。()
新月:满月:残月
论述赞科夫的发展性教学理论。(2020年陕西师大、2017年北京师大、2011/2012年华中师大)
Inadditiontotheestablishedenergysourcessuchasgas,coal,oilandnuclear,thereareanumberofothersourcesthatweou
在家所在的社区附近建一个购物中心,是否同意,并列举理由。DoYouNeedaShoppingCenterinYourNeighborhood
AccordingtoastudypublishedthisweekinthejournalEcologyLetters,thequantityofbirdsinEuropehasdeclinedbymoreth
最新回复
(
0
)