首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体如图所示。考生文件夹下有一个in5.dat文件,文件中有5个运动员的姓名、7个裁判的打分和动作的难度系数。每人的数据占一行,顺序是:姓名、7个分数、难度系数。程序运行时,单击“输入”按钮,可把in5.da
在考生文件夹下有一个工程文件sjt5.vbp,其窗体如图所示。考生文件夹下有一个in5.dat文件,文件中有5个运动员的姓名、7个裁判的打分和动作的难度系数。每人的数据占一行,顺序是:姓名、7个分数、难度系数。程序运行时,单击“输入”按钮,可把in5.da
admin
2020-02-27
66
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体如图所示。考生文件夹下有一个in5.dat文件,文件中有5个运动员的姓名、7个裁判的打分和动作的难度系数。每人的数据占一行,顺序是:姓名、7个分数、难度系数。程序运行时,单击“输入”按钮,可把in5.dat文件中的5个姓名读人数组achlete中,把5组得分(每组7个)和难度系数读人二维数组a中(每行的最后一个元素是难度系数),并把这些数据显示在Textl文本框中;单击“选出冠军”按钮,则把冠军的姓名和成绩分别显示在文本框Text2、Text3中。成绩的计算方法是:去掉一个最高分和一个最低分,求剩下得分的平均分,再乘以难度系数,再乘以3;单击“存盘”按钮,则把冠军姓名和成绩存人考生目录下的out5.dat文件中。
要求:去掉程序中的注释符,把其中的?改为正确的内容(程序中getmark函数的功能是计算并返回第n个运动员的最后得分),并编写“选出冠军”按钮的Click事件过程。
注意:不得修改已经存在的程序和控件的属性,在结束程序运行前,必须用“存盘”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(5, 8) As Single, athlete(5) As String * 8 Private Sub Command1_Click() Dim ch As String Text1 = "" Open App.Path & "\in5.dat" For Input As #1 For k = 1 To 5 Input #1, ch athlete(k) = ch Text1 = Text1 & ch & " " For j = 1 To 8 Input #1, ch a(k, j) = Val(ch) Text1 = Text1 & ch & " " Next j Text1 = Text1 & Chr(13) & Chr(10) Next k Close #1 End Sub Private Function getmark(n As Integer) As Single ’ s = ? maxnum = s minnum = s ’For k =2 To ? s = s + a(n, k) If maxnum < a(n, k) Then maxnum = a(n, k) End If If minnum > a(n, k) Then minnum = a(n, k) End If Next k s = (s - maxnum - minnum) / 5 ’ getmark= s * 3 * ? End Function Private Sub Command2_Click() ’ 要求考生编写的程序 End Sub Private Sub Command3_Click() Open App.Path & "\out5.dat" For Output As #1 Print #1, Text2, Text3 Close #1 End Sub 程序结束 参考答案 第1个?处填入:a(n, 1) 第2个?处填入:7 第3个?处填入:a(n, 8) Private Sub Command2_Click() Dim n As Integer For n = 1 To 5 If m < getmark(n) Then m = getmark(n) Next Text3.Text = m For n = 1 To 5 If m = getmark(n) Then Text2.Text = athlete(n) Next n End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/oDTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上命令按钮Command1的事件过程如下:OptionBase1PrivateSubCommand1_Click()Dima(4,4)AsVariantFori=lTo4Forj=1
窗体上有一个名称为Optionl的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程PrivateSubOptionl_click(IndexAsInteger)EndSub下面关于此过程的参数Index的叙述中正确的是(
对下列二叉树进行前序遍历的结果为()。
在关系模型中,每一个二维表称为一个
在考生文件夹下有文件in5.txt,文件中有几行汉字。请在Form1的窗体上画一个文本框,名称为Text1,能显示多行;再画一个命令按钮,名称为C1,标题为“存盘”。编写适当的事件过程,使得在加载窗体时,把in5.txt文件的内容显示在文本框中,然后在文本
设工程中有2个窗体:Form1、Form2,Form1为启动窗体。Form2中有菜单,其结构如表。要求在程序运行时,在Form1的文本框Textl中输人口令并按回车键(回车键的ASCII码为13)后,隐藏Form1,显示Form2。若口令为“Teacher
窗体上有一个名称为Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程:PrivateSubOption1_Click(IndexAsInteger)EndSub下面关于此过程的参数Index的叙述中,正确的
执行下列语句:strInput=InputBox("请输入字符串","字符串对话框","字符串")将显示输入对话框。此时如果直接单击“确定”按钮,则变量strInput的内容是()。
现有表示患者和医疗的关系如下:P(P#,Pn,Pg,By),其中P#为患者编号,Pn为患者姓名,Pg为性别,By为出生日期,Tr(P#,D#,Date,Rt),其中D#为医生编号,Date为就诊日期,Rt为诊断结果。检索在1号医生处就诊的病人姓名的表达式是
设一棵树的度为4,其中度为4,3,2,1的结点个数分别为2,3,3,0。则该棵树中的叶子结点数为()。
随机试题
《最后的晚餐》取材于【】
下列哪种疾病与结肠癌无关
男性,56岁,乏力、食欲减退、恶心、消瘦1个月,乙型肝炎病史10年。查体:皮肤、巩膜无黄染,腹软,剑突下压痛,肝肋下3cm,可触及质硬的结节,Murphy征阴性,移动性浊音阳性。为进一步查明肝脏结节的大小与位置,首选的检查是
[背景资料]某新建办公楼工程,总建筑面积18600m2,地下二层,地上四层,层高4.5m,筏板基础,钢筋混凝土框架结构。在施工过程中,发生了下列事件:事件一:工程开工前,施工单位按规定向项目监理机构报审施工组织设计。监理工程师审核时,发现“施工进度计
银行面临的最主要、最为复杂的风险种类是操作风险。()
强制戒毒的期限根据戒毒效果而定,从到戒毒所直至戒毒成功。( )
希腊城邦雅典的最高权力机构是五百人议事会。()
某污水处理厂有甲乙两个完全一样的大型污水处理池,甲池需要8小时把水全部排完,乙池需要6小时把水全部排完。两池同时排水,问经过多少小时乙池剩余的水正好是甲池剩余的一半?()
下列哪一种情形不成立累犯?()
Thestorywasverytouching.
最新回复
(
0
)