首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下的工程文件sjt5.vbp中的窗体如图2.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
考生文件夹下的工程文件sjt5.vbp中的窗体如图2.162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
admin
2020-07-22
76
问题
考生文件夹下的工程文件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全国计算机二级
相关试题推荐
以下关于框架的叙述中,错误的是
窗体上有名称为Command1的命令按钮,名称分别为List1、List2的列表框,其中List1的MultiSelect属性设置为1(Simple),并有如下事件过程:PrivateSubCommand1_Click()
要使得文件列表框Filel中只显示文件扩展名为jpg的图片文件,则下列正确的语句是()。
要计算X的平方根并放入变量y,正确的语句是
下列关于栈叙述正确的是
对下列二叉树进行前序遍历的结果是
顺序文件在一次打开期间
窗体上有一个名称为VScroll1的垂直滚动条,为了设定单击滚动条两端箭头时的Value增量值,应设置的属性是
在考生文件夹中有一个工程文件sjt5.vbp,其功能是:找出矩阵元素的最大值,并求出矩阵对角线元素之和,窗体外观如图1-188所示。程序运行时,矩阵数据被放入二维数组a中。当单击“找矩阵元素最大值”按钮时,找出矩阵中最大的数,并显示在标签Label3中。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“鼠标光标形状”的窗体上画一个名称为Text1的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(A
随机试题
________是属于国际货币基金组织创设的特有国际储备资产。
女性,59岁,被汽车碾压骨盆后3小时而送至医院。查体:病人谵妄,皮肤发紫,四肢厥冷,血压60/40mmHg,脉搏细速。目前需首先处理的是
以下哪一项不属于男性尖锐湿疣的临床表现()
患者,女,40岁。妊娠30周,胎儿畸形,入院行引产术,婚育史:G4P1。查体:T37.5℃,BP135/80mmHg。实验室检查:Hb73g/L,WBC8.2×109/L,Plt200×109/L,ABO血型为A型,Rh血型的D抗原缺乏。术前为
会计资料的()是会计资料最基本的质量要求,是会计工作的生命。
下列不属于金融期货的有()。
俄亥俄大学研究得出领导行为的维度包括()。
Ithinkthereareonlyafewsportsthatareboth_________and___________.
上前牙切缘至下前牙唇面的水平距离超过多少才称为前牙深覆盖()。
Amanescapedfromtheprisonlastnight.Itwasalongtime____theguardsdiscoveredwhathadhappened.
最新回复
(
0
)