首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp 中的窗体如图1-40 所示。考生文件夹下的随机文件in5.dat 中有20条记录,每条记录含姓名和三个分数(均为100 以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下
考生文件夹下的工程文件sjt5.vbp 中的窗体如图1-40 所示。考生文件夹下的随机文件in5.dat 中有20条记录,每条记录含姓名和三个分数(均为100 以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下
admin
2018-10-29
56
问题
考生文件夹下的工程文件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全国计算机二级
相关试题推荐
顺序文件在一次打开期间( )。
为了使文本框同时具有垂直和水平滚动条,应先把MultiLine属性设置为True,然后再把ScrollBars属性设置为( )。
可以产生30~50(含30和50)之间的随机整数的表达式是( )。
设有如下程序:PrivateSubsV(ByValmAsInteger,nAsInteger)m=m*2n=n-5Printm;nEndSubPrivateSubForm_Cli
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是( )。
命令按钮Command1的事件过程如下:PrivateSubCommand1_Click() Dimarr(5,5)AsInteger DimiAsInteger,jAsInteger Fori=1To4
窗体上有1个Timerl计时器,1个Shape1形状控件,还有下面程序代码:DimflagAsBooleanPrivateSubForm_Load()flag=TrueTimer1.Enab
能够产生1到50之间(含1和50)随机整数的表达式是( )。
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
随机试题
膝关节CT检查的体位是
已知某挖土机挖土,一次正常循环工作时间是40s,每次循环平均挖土量0.3m3,机械正常利用系数为0.8,机械幅度差为25%。则该机械挖土方1000m3的预算定额机械耗用台班量是()台班。
以行政行为的对象是否特定为标准,行政行为可分为()。
新课程改革的核心理念是()。
教育法律关系产生、变更和消灭的依据是()。
某市消费者权益保护条例明确规定,消费者对其所购买的商品可以“7天内无理由退货”,但这项规定出台后并未得到顺利执行,众多消费者在7天内“无理由”退货时,常常遭遇商家的阻挠,他们以商品已做特价处理、商品已经开封或使用等理由拒绝退货。以下哪项如果为真,最能质疑商
下列关于社会主义市场经济理论说法正确的是
[*]
Humansarethoughttoberesponsibleforalargenumberofenvironmentalproblems,rangingfromglobalwarmingtoozonedepleti
What’syourearliestchildhoodmemory?Canyourememberlearningtowalk?Ortalk?Thefirsttimeyou【C1】______thunderorwatch
最新回复
(
0
)