首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sit5.vbp,窗体如图2.25所示。运行程序时,从数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,并统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。
在考生文件夹下有一个工程文件sit5.vbp,窗体如图2.25所示。运行程序时,从数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,并统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。
admin
2020-02-27
37
问题
在考生文件夹下有一个工程文件sit5.vbp,窗体如图2.25所示。运行程序时,从数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,并统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计结果。
注意:不能修改程序的其他部分和控件属性。程序调试通过后,运行程序,将统计结果显示在文本框中,再按“保存”按钮保存数据,否则无成绩。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sit5.vbp,在代码编辑窗口的指定位置编写以下代码: 参考代码: Textl.Text=n count1=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 t 4 l 5 countl=countl+1 Case 6 count2=count2+1 Case 7 count3=count3+1 Case 8 count4=count4+1 Case 9,10 count5=count5+1 End Select Next Text2.Text=courtt1 Text3.Text=count2 Text4.Text=count3 Text5.Text=count4 Text6.Text=count5 步骤2:按
键运行程序,先单击“统计”按钮,冉单击“保存”按钮。 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/y3Tp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列叙述中正确的是()。
文本框Text1的KeyDown事件过程如下:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EndSub其中参数KeyCode的值表示的是发生此事件时()。
在设计窗体时双击窗体的任何地方,可以打开的窗口是()。
以下关于VB对象属性的叙述中,错误的是()。
在关系数据库中,描述全局数据逻辑结构的是()。
要使标签中的文本靠右显示,应将其Aligment属性设置为()。
有下面的程序段:x=InputBox("字符串","输入","请输入")Printx如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键,则输出内容是()。
下列说法中错误的是()。
在考生目录下有工程文件sjt5.vbp和文本文件:in5.txt,in5.txt中有不超过100个4位正整数。窗体上有2个命令按钮,其功能是:单击“读入数据”按钮,可以读入in5.txt文件中的所有数,并显示在文本框中。单击“计算并保存”按钮,能够把满足下
在面向对象方法中,不属于"对象"基本特点的是( )。
随机试题
制定《环境与资源保护法》的目的有()
寄生人体吸虫的繁殖方式是
A、 B、 C、 D、 E、 A
下列关于行政处罚中“一事不再罚原则”的表述正确的是()。
若函数f(x)=x(ax2+bx+c)(a≠0)在x=1和x=一1处有极值,则下列点一定在x轴上的是().
唐朝的有息借贷契约被称为()
证明:函数f(x)在x0处可导的充要条件是存在一个关于△x的线性函数L(△x)=α△x,使=0.
SQL是【】语言,其核心是【】。
RobertFrostwasborninSanFranciscoin1875.Whenhewasattheageoften,hewassenttoNewEngland,anareawhich【B1】____
CultureShockA)BecauseI’velivedinChinaforalongtime,localsoftensmileandgivemethehonorabletitleofbeing"a
最新回复
(
0
)