首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件央下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
在考生文件央下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
admin
2015-10-23
72
问题
在考生文件央下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计结果。
注意:不能修改程序的其他部分和控件属性。程序调试通过后,运行程序,将统计结果显示在文本框中,再按“保存”按钮,否则将没有成绩,最后将修改后的文件按原文件名进行存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 For i=1 To n’循环判断分数的范围.当满足某个条件时则分别统计 If arr(i)<60 Then Text2=Val iText2)+1 ElseIf err(i)>=60 And err(i)<70 Then Text3=Val(Text3)+1 ElseIf arr(i)>=70 And arr(i)<80 Then Text4=Val(Text4)+1 ElseIf err(i)>=80 And art(i)<90 Then Text5=Val(Text5)+1 ElseIf err(i)>=90 And art(i)<=i00 Then Text6=Val(Text6)+1 End If Textl=Val(Textl)+1’显示统计入敷Next 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
在窗体装入时,通过文件操作和Do While语句从数据文件中读取学生的成绩,并把成绩的值装入数组arr(n)。单击“统计”按钮通过For循环语句遍历数组,并用If语句对数组中存储的数值进行判断,使用Val()函数完成字符向数值类型的转换。通过累加统计不及格、60~69、70~79、80~89及90~100各分数段的人数,并将各分数段的人数统计结果和总人数显示在相应的文本框中。单击“保存”按钮,将统计结果使用Pnnt方法,并通过文件操作保存在文本文件中,弹出MsgBox对话框.提示“保存成功!”。
转载请注明原文地址:https://kaotiyun.com/show/sULp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹中有一个工程文件execise50.vbp及窗体文件execise50.frm。在名为Form1的窗体上有一个名称为Cmd1,标题为“显示”的命令按钮,一个名称为List1的列表框。要求程序运行后,如果多次单击列表框中的项,则可同时选择这些项。
在考生文件夹下有工程文件execise26.vbp及窗体文件execise26.frm。在名为Form1的窗体上有3个Labe1控件和2个名称分别为Cmd1和Cmd2,标题分别为开始和End的命令按钮。编写函数ITEM(A,N),其功能是由数字A组成的不多
在名为Form1的窗体上绘制两个图片框,名称分别为Pic1和Pie2,高度均为1900,宽度均为1700,通过属性窗口把图片文件pic1.bmp放入Pic1中,把图片文件pic2.jpg放入Pic2中;再绘制一个命令按钮,名为Cmd1,标题为Change
设a=5,b=6,c=7,d=8,执行语句x=IIf((a>b)And(c>d),10,20)后,x的值是()。
表达式x=Sqr(a^2-5)+sqr(b^2-5)的类型是
下列有关数据库的描述,正确的是
一个关系中属性个数为1时,称此关系为
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。SubPR()RandomizeDima(10)Forj=1To10a(i)=Int(【】)If【
各种运算符间的优先顺序从高到低是
下列运算符中,优先级别最高的是
随机试题
下面词语中包含词缀的是()
阿米巴肝脓肿肝穿刺引流的手术指征有
在地区5~9岁儿童约12%的死亡是癌症所致,而60~64岁成人约24%的死亡是癌症所致。与5~9岁儿童相比,60~64岁成人癌症死亡的估计相对危险度是
A.防腐剂B.矫味剂C.乳化剂D.抗氧剂E.助悬剂制备维生素C注射剂时,加入的亚硫酸氢钠是作为()。
关于影响冷疗效果因素的描述,错误的是
总监理工程师代表的工作只对总监理工程师负责。()
以下关于集装箱检验检疫的描述,不正确的是( )。
2008年7月城市商品价格较上年同月上涨幅度最大的是∶2008年7月较上年同月涨幅最大是∶
在VB中,函数过程与子程序过程的区别之一是
ConstructionofanewbranchofDisneyLandinthesuburbshas______beenapprovedbycitycouncilandwillbeginnextyear.
最新回复
(
0
)