首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件Sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
在考生文件夹下有一个工程文件Sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
admin
2018-06-29
58
问题
在考生文件夹下有一个工程文件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(1) >=70 And arr(1)<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(TOXtl)+1’显示统计人数 Next 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
在窗体装入时,通过文件操作和Do While语句从数据文件中读取学生的成绩,并把成绩的值装入数组arr(n)。单击“统计”按钮通过For循环语句遍历数组,并用If语句对数组中存储的数值进行判断,使用Val()函数完成字符向数值类型的转换,通过累加统计不及格、60~69、70~79、80~89及90~100各分数段的人数,并将各分数段的人数统计结果和总人数显示在相应的文本框中。单击“保存”按钮,将统计结果使用Print方法,并通过文件操作保存在文本文件中,弹出MsgBox对话框,提示“保存成功!”。
转载请注明原文地址:https://kaotiyun.com/show/ZdGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在下列几种排序方法中,要求内存量最大的是()。
F列关于数据库设计的叙述中,正确的是()。
要想使列表框只允许单选列表项,应设置的属性为()。
窗体上有两个水平滚动条HV、HT,还有一个文本框Textl和一个标题为“计算”的命令按钮Commandl,并编写了以下程序:PrivateSubcommandl_Click()Callcale(HV.Value,HT.Value)End
下面描述中错误的是()。
执行以下程序段:a$=“VisualBasicProgramming”b$:“C++”c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为()。
在窗体上画一个命令按钮,然后编写如下事件过程:a$=InputBox(”请输入一个二进制数”)n=Len(a$)Dec=Dec*2+____(a$,i,1)程序功能为:单击命令按钮,将产生一个输入对话框,此时如果在对话框中输入一个三进制数,
以下合法的VB变量名是
已知列表框控件List1中已放入若干表项,下列关于List1的叙述中错误的是
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是
随机试题
建筑高度大于()m的住宅建筑,宜采用自动喷水灭火系统。
A.蠕动B.分节运动C.容受性舒张D.集团运动小肠以环行肌为主的节律性舒缩运动形式是
在借贷记账法下,账户的哪一方登记增加,哪一方登记减少,取决于账户的性质。()
城市商业银行都不是股份制商业银行。()
绘画经常说人体比例为“立七,坐五,蹲三半”,其中头顶至脚底()处为耻骨。
某市一条大街长7200米,从起点到终点共设有9个车站,那么每个车站之间的平均距离是()。
一、注意事项1.申论考试是对应考者阅读能力、综合分析能力、提出和解决问题能力、文宇表达能力的测试。2.仔细阅读给定资料,按照后面提出的“作答要求”作答。二、给定资料1.2010年5月21日上午,广东省贯彻落实《广东省(关于实行党
能够成为民事法律事实的行为包括()。
Areyouasocialbutterfly,ordoyoupreferbeingattheedgeofagroupoffriends?Eitherway,yourgenesandevolutionmayp
Manwillneverconquerspace.Suchastatementmaysoundludicrous(荒唐的),afterwehavemadesuchlong【S1】______intospace.Yet
最新回复
(
0
)