首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
admin
2019-06-24
61
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计结果。
注意:不能修改程序的其他部分和控件属性。程序调试通过后,运行程序,将统计结果显示在文本框中,再按“保存”按钮,否则将没有成绩,最后将修改后的文件按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 For i=1 To n’循环判断分数的范围,当满足某个条件时则分别统计 If arr(i)<60 Then Text2=Val(Text2)+1 ElseIf arr(i)>=60 And arr(i)<70 Then Text3=Val(Text3)+1 ElseIf arr(i)>=70 And arr(i)<80 Then Text4=Val(Text4)+1 ElseIf arr(i)>=80 And arr(i)<90 Then Text5=Val(Text5)+1 ElseIf arr(i)>=90 And arr(i)<=100 Then Text6=Val(Text6)+1 End If Text1=Val(Textl)+1’显示统计人数 Next 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
在窗体装入时,通过文件操作和DoWhile语句从数据文件中读取学生的成绩,并把成绩的值装入数组arr(n)。单击“统计”按钮通过For循环语句遍历数组,并用If语句对数组中存储的数值进行判断,使用Val()函数完成字符向数值类型的转换,通过累加统计不及格、60~69、70~79、80~89及90~100各分数段的人数,并将各分数段的人数统计结果和总人数显示在相应的文本框中。单击“保存”按钮,将统计结果使用Print方法,并通过文件操作保存在文本文件中,弹出MegBox对话框,提示“保存成功!”。
转载请注明原文地址:https://kaotiyun.com/show/RqUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生目录下有一个工程文件sjt5.vbp。运行程序后,单击“读数据”按钮,从data5.dat文件中读出一个数据,并显示在标签Label1中;单击“找素数”按钮,则在大于Label1的数据范围内找出最小的素数,并将其显示在标签Label2中。在给出的窗
在考生文件夹下有一个工程文件sjt5.vbp。程序功能为:在文本框Text1中输入一个正整数N后,单击“计算”按钮,则计算11+22+33+…+NN,并将计算结果显示在Text2中。程序中的函数f可以计算。mm的值。在给出的窗体文件中已经有了全部控件,但
(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中己给出所有控件和部分程序,如图3—119所示。要求:①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;②请编写适当的程序完成以下功能:在Text1中输入40(度数),选择一
在考生目录下有一个工程文件sjt5.vbp。窗体左边的图片框名称为Picture1,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
在下面语句或函数中,不能描述选择结构的是
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()PrivateSubfun(xAsInteger)DimxAsInteger
下面的语句用Array函数为数组变量a的各种元素赋值整数值:
以下关于框架的叙述中,错误的是
下面定义窗体级变量a的语句中错误的是
有数据定义语句:Dima,bAsIntegerDimx%,yasInteger执行语句后,不是整型变量的是
随机试题
生产制造商使用自己的销售队伍直接把产品销售给顾客叫做()
冷藏保存电解质分析的标本,会引起
糖皮质激素治疗肾病综合征最重要的作用机制是
缺牙间隙的近远中距、龈距小时,人工牙应选用
某铁路局2018年完成的总运量为500亿换算吨公里,运输总支出为60亿元,其中固定支出占70%。2019年该局改善了运输组织方式,使得换算周转量比去年增加20%,固定支出无变化。2018年该铁路局的单位可变运输支出为()元/万换算吨公里。
下列项目中,不属于不定期且全面清查的是()。
政治表达是指公民在行使政治权利的过程中,通过宪法手段和机会来表示自己的政治态度,从而影响政府改革。根据上述定义,下列不属于政治表达的是()。
社会主义的根本任务是解放和发展生产力。确立这一根本任务的依据包括()。
基于ARM内核的嵌入式芯片中包含互连通信组件,下面列出的()不属于互连通信组件?
Waterisakindofchemicalsubstance.
最新回复
(
0
)