首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp中的窗体如图2.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
考生文件夹下的工程文件sjt5.vbp中的窗体如图2.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
admin
2020-07-22
79
问题
考生文件夹下的工程文件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全国计算机二级
相关试题推荐
公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员。则实体部门和职员间的联系是
以下可以判断是否在文本框(名称为Textl)内按下了回车键的事件过程是
设有窗体的FormMouseMove事件过程如下:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)If
下面对类-对象主要特征描述正确的是
以下关于窗体的叙述中错误的是
下列说法中正确的是
用树形结构表示实体之间联系的模型是
在软件设计中不使用的工具是
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是把考生目录下的in5.dat文件中的
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图3—169所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Labe12标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Labe14控件中。要求
随机试题
OnedaywhenIwashavingaheartylunchatafast-foodrestaurant,anoldcoupleentered.They【C1】______amealatthecount
关于胰腺癌的说法,错误的是
腰交感于是
行胎头吸引术产妇的最佳体位是( )。
医疗机构药事管理委员会主任委员担任的人员一般是
某建设工程项目施工过程中发生不可抗力事件,建筑物受损严重,部分施工机具损毁,施工人员受伤,工期拖延一个月,关于损失承担的说法,正确的是()。
中国现代会计学之父潘序伦先生倡导“信以立志,信以守身,信以处事,信以待人,毋忘‘立信’,当必有成”,这句话体现的会计职业道德内容是()。
经当事人书面授权,商业银行只能在()情况下才能查询个人信用信息基础数据库。
在数据库管理系统提供的数据语言中,负责数据模式定义的是()。
A、Itschemicalelementsmustbestudied.B、Itstemperaturemustbelowered.C、Bigspaceshipsmustbebuilt.D、Itsatmospheremus
最新回复
(
0
)