首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图3.82所示。运行程序时,从数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,并统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图3.82所示。运行程序时,从数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,并统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。
admin
2017-09-22
64
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图3.82所示。运行程序时,从数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,并统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计结果。
注意:不能修改程序的其他部分和控件属性。程序调试通过后,运行程序,将统计结果显示在文本框中,再按“保存”按钮保存数据,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口的指定位置编写以下代码。参考代码: Text1.Text=n Countl=0:count2=0:count3=0 count4=0:count5=0:count6=0 For i=1 To n Y=Int(arr(i)/10) Select Case Y Case 1,2,3,4,5 count1=count1+1 Case 6 count2=Count2+1 Case 7 count3=count3+1 Case 8 Count4=count4+1 Case 9,10 COUrtt5=count5+1 End Select Next Text2.Text=countl :Text3.Text= Count2 Text4.Text=count3 :Text5.Text= count4 Text6.Text=count5 步骤2:按
键运行程序,先单击“统计”按钮,再单击“保存”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
本题要求编写“统计”按钮的单击事件过程。程序设计思路:在一个For循环中逐一取出存于数组arr中的各学生成绩,用Select Case语句对取出的某学生成绩进行判断,根据成绩所属情况,使对应文本框中的数增1。
转载请注明原文地址:https://www.kaotiyun.com/show/mjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Command1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFuncdonf(mAsInteger)IfmMod2=0Thenf=mE1Se
对长度为N的线性表进行顺序查找,在最坏情况下所需要的比较次数为______。
在深度为5的满二叉树中,叶子结点的个数为
数据库设计包括概念设计、【】和物理设计。
事件驱动是一种适用于______的编程方式。
在链表的运算过程中,能够使空表与非空表的运算统一的结构是______。
单击一次命令按钮后,下列程序的执行结果为 PrivateSubCommand1_Click() DimmAsInteger,IAsInteger,x(10)AsInteger ForI=0To4:x(I)=I+1
程序执行结果s的值是【】。PrivateSubsub1(ByvalpAsInteger)p=p*2EndSubPrivateSubCommand1_Click()DimiAsIntegeri=3Callsub1(i
一个完整的程序必须完成3个层次的过程,它们分别是编码、测试和【】。
随机试题
下列物质,哪种不能由乙烯直接合成()。
风湿性心脏瓣膜病最常累及()
药物不良反应的检测报告范围有
同一个细分市场中的消费者对产品的需求()。
对求助者积极关注,意味着()。
设计任务:请阅读下面学生信息和语言素材,设计20分钟的读写教学方案。教案没有固定格式,但须包含下列要点:.teachingobjectives.teachingcontents.keyanddifficultp
人民警察的心理素质要求人民警察在特定职务活动中应当具备();稳定的情感、顽强的意志和宽大的胸怀。
下列函数中,()是对文件进行写操作的。
Nomatterwhatthereason,though,jugglingmorethanonejobisguaranteedtobeacrashcourseintimemanagement.Ifyou’ren
【S1】【S11】
最新回复
(
0
)