首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其中文本框Text1用于显示五个学生的六门课成绩;右边的五个文本框是一个数组,名称为Text2,用于显示每个学生的平均分;下方的六个文本框是一个数组,名称为Text3,用于显示每门课的平均分。 程序的功
在考生文件夹下有一个工程文件sjt5.vbp,其中文本框Text1用于显示五个学生的六门课成绩;右边的五个文本框是一个数组,名称为Text2,用于显示每个学生的平均分;下方的六个文本框是一个数组,名称为Text3,用于显示每门课的平均分。 程序的功
admin
2019-01-16
48
问题
在考生文件夹下有一个工程文件sjt5.vbp,其中文本框Text1用于显示五个学生的六门课成绩;右边的五个文本框是一个数组,名称为Text2,用于显示每个学生的平均分;下方的六个文本框是一个数组,名称为Text3,用于显示每门课的平均分。
程序的功能是:单击“读入文件”按钮,则把考生文件夹下的文件in5.dat 中的姓名和成绩分别读到数组n 和a中;单击“每人平均分”按钮,则计算每个学生的平均分,并显示在Text2 数组中;单击“每科平均分”按钮,则计算每门课的平均分,并显示在Text3数组中,所有平均分的值均四舍五入取整或截尾取整;单击“存结果”按钮,则把Text2、Text3中的所有平均分存入out5.dat文件中。
窗体中给出了所有控件(如图1-307所示)和“读入文件”、“存结果”按钮的Click事件过程,请为“每人平均分”按钮和“每科平均分”按钮编写适当的事件过程,实现上述功能。
注意:不得修改已经存在的程序;在结束程序运行之前,必须用“存结果”按钮存储计算结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题对应工程文件sjt5.vbp。 步骤2:打开代码编辑窗口,分别编辑两个命令按 钮的单击事件过程。 参考代码: Private Sub Command2_Click() Dim i, j, k As Integer For i = 1 To 5 k = 0 For j = 1 To 6 k = k + a(i, j) Next j Text2(i - 1).Text = Round(k / 6, 0) Next i End Sub Private Sub Command3_Click() Dim i, j, k As Integer For i = 1 To 6 k = 0 For j = 1 To 5 k = k + a(j, i) Next j Text3(i - 1).Text = Round(k /5, 0) Next i End Sub 步骤3:运行程序,单击“读入文件”按钮读入数据,然后分别单击“每人平均分”和“每科平均分”命令按钮进行计算,然后单击“存结果”按钮保存计算结果。 步骤4:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/auFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列不属于计时器控件属性的是()。
以下变量名中合法的是( )。
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
在窗体模块的声明部分声明变量时,不能使用的关键字是
在VisualBasic环境下设计应用程序时,系统能自动检查出的错误是( )。
有三个关系R,S和T如下:则由关系R和S得到关系T的操作是()。
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click() Dims a%=100 PrintaEndSub其中变量a和s的数据类型分别是( )。
为了显示弹出式菜单,要使用
以下有关表达式的说法中,正确的是
数学式y2>x>=10在VB中应表示为
随机试题
A.呕吐伴腹痛、腹泻B.呕吐伴右上腹痛及发热和(或)黄疸C.呕吐伴头痛及喷射性呕吐D.呕吐伴眩晕、眼球震颤E.呕吐隔夜食物急性胃肠炎可见
急性肾小球肾炎湿毒内侵证的治疗方剂为
有清暑开窍功能的药是
下列能够反映企业盈利能力的指标有:()。
下面的( )属于非技术风险。
A注册会计师在了解甲公司投资活动时发现下列情况,A注册会计师可以将投资环节的重大错报风险评估为低水平的情况是()。
业主共同财产的管理和共同利益的平衡,需要由()的机制来实现。
在物业管理区域内,供水、供电、供气、供热、通信、有线电视等单位应当()收取有关费用。
关于因果关系,下列哪一选项是错误的?
Questions29-24•Readthenewspaperarticlebelowaboutthecreationofnewjobs.•Choosethecorrectwordtofilleach
最新回复
(
0
)