首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sit5.vbp中的窗体如图3.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下: ①
考生文件夹下的工程文件sit5.vbp中的窗体如图3.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下: ①
admin
2016-03-22
72
问题
考生文件夹下的工程文件sit5.vbp中的窗体如图3.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=30 0 For k=1 To 2 0 Get#1,,s sumval=S.a1+S.a2+S.a3 If sumval>maxval Then maxval= Sumval If sumval
解析
转载请注明原文地址:https://kaotiyun.com/show/nMLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段的执行结果为______。Dimm(3,3)AsIntegerDimiAsIntegerDimjAsIntegerDimxAsIntegerFori=1To3m
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是______。
为了使图片框的大小可以自动适应图片的尺寸,则应______。
下列有关数据库的描述,正确的是______。
欲打开各种VisualBasic窗口或显示工具栏,其对应的菜单命令均放置于主菜单项______。的下拉菜单中。
设组合框Combol中有3个项目,则以下能删除最后一项的语句是()。
有如下程序:PrivateSubCommand1_Click()a$="AWORKERISHERE"x=Len(a$)Fori=1Tox-1b$=Mid$(a$,i,3)Ifb$="WOR"ThenS
定义有5个整数型元素的数组,正确的语句是
实体完整性约束要求关系数据库中元组的属性值不能为空。
随机试题
《我与地坛》中,运用多种事物类比四季,这种联想方式是()
女性,55岁,因大面积心肌梗死急诊住院,现病情稳定。该患者已5d未大便,现无便意。心肌梗死患者要预防便秘,除水分外,还应增加的营养成分为()。
第三代磺酰脲类降糖药较一、二代有何特点
在假设检验中,当作出拒绝原假设而接受备择假设的结论时,表示()。
某生产型企业为增值税一般纳税人,2009年4月发生以下业务:(1)销售一批货物给某商场,取得不含税销售收入100万元,同时取得货物包装物押金10万元(单独计账)、包装物租金7.02万元;(2)本月购进税控收款机抵扣信息的扫描器具一批,取
(2010年江西.47)有20位运动员参加长跑,他们的参赛号码分别是1,2,3,…,20,至少要从中选出多少个参赛号码,才能保证至少有两个号码的差是13的倍数?()
[*]
设∑为曲面介于z=0与z=1之间部分的下侧,f(x)为连续函数,计算
阅读下列说明,回答问题,将解答填入答题纸的对应栏内。[说明]某市卫生部门拟建立“基于人工智能的医学影像诊断云平台”。该平台每天从10家三级甲等医院获取病人的临床数据,智能分析后生成医学影像诊断知识库,共享给本市所有医疗机构。因病例数据涉及患者隐私,建
Menhaveahardtimeadmittingfailurebecause______.Menarelikelythanwomentousedeceptivetacticsintheirrelationship
最新回复
(
0
)