首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
admin
2019-06-24
56
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
运行下面的程序,单击命令按钮,输出结果为()。FunctionF(aAsInteger)b=0:Staticcb=b+1:c=c+1:F=a+b+cEndFunctionPrivateSubCommand1_Click()
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:在运行时,如果选中一个单选按钮和一个或两个复选框,并单击“确定”按钮,则对文本框中的文字做相应的设置,如图3—100所示。窗体上的控件已经画出,但没有给出主要程序内容,请编写适当的事件过程,
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1、标题为“鼠标光标形状”的窗体上画一个名称为Text1的文本框。请通过属性窗口设置适当属性,使得程序运行时,鼠标在文本框中时,鼠标光标为箭头(Arrow
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上添加一个计时器控件,名称为Timer1。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer事件过程一次。另外,请把窗体
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行后,单击“读入数据”按钮,可把考生文件夹下in3.txt文件中的所有英文单词读入,并显示在Text1文本框中;单击“插入列表框”按钮,则按顺序把每个单词作为一项添加到List1列表框中(如图3—1
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是
以下关于键盘事件的叙述中,错误的是
VisualBasic中的“启动对象”是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic“启动对象”的描述中,错误的是
检查软件产品是否符合需求定义的过程称为
随机试题
注水开发油田压裂选井、选层的原则之一是()。
最大极限尺寸与最小极限尺寸之代数差的绝对值称为()。
面向21世纪日本教育发展的主要方向是在宽松的环境中培养学生的()
具有“全或无”特征的电压动是
男性,20岁。餐后搬运重物,突然脐周围剧痛,伴恶心呕吐为胃内容物,无血,发病6小时后急诊入院。查体:体温37℃,脉搏120次/分,血压12/8kPa,急性病容,大汗淋漓,呼吸急促,心肺未见异常,腹胀左侧脐旁触及可疑肿块,腹肌紧张,压痛明显,可疑移动性浊音,
以下关于法人客户信用评级模型,说法正确的是()。
如果采用加权平均法计算综合保本点,下列各项中,将会影响综合保本点大小的有()。
AsEgyptianhighschoolstudentstaketheirfinalexamsthismonth,thegovernmentisfacingawaveofcriticismandmockeryaft
出席学术讨论会的有3个人是足球爱好者,4个是亚洲人,2个是日本人,5个是商人。以上叙述涉及了所有晚会参加者,其中日本人不经商。那么,参加晚会的人数是()。
在考生文件夹下,打开文挡WORD1.DOCX,按照要求完成下列操作并以该文件名(WORD1.DOCX)保存文档。【文档开始】信息与计算机在进入新世纪的时候,让我们回过头米看一看,什么是20世纪最重要的技术成果?人们可以列举出许
最新回复
(
0
)