首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件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
31
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
在名称为Form1的窗体上添加一个名称为Shape1的形状控件,要求在属性窗口中将其形状设置为椭圆,其短轴(垂直方向)、长轴(水平方向)的长度分别为800、1600。把窗体的标题改为“Shape控件”,窗体上无最大化、最小化按钮。程序运行后的窗体如图所示。
下面关于VB应用程序的叙述中正确的是()。
在窗体上画一个名称为List1的列表框,然后编写如下程序:PrivateSubForm_Click()Fori=1To10Item="Item"&iList1.AddItemItemNextiEndSub程序运行时,单击窗体,所完
下列控件中,不响应Click事件的是()。
下列链表中,其逻辑结构属于非线性结构的是
表达式Sgn(0.25)的值是( )。
表达式Sgn(15.6)+Int(-16.8)的值是
为了判断字符串变量strName中的姓名是否姓"李",应采用的表达式是
已知图片框Picture1中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是( )。
随机试题
噪声引起的永久性听阈位移早期通常表现为
以银行存款50000元向甲单位投资,该笔业务的发生一方面引起银行存款的减少,另一方面引起实收资本的增加。()
关于英国遗产税的说法错误的是( )。
某电器产品价格2014年为5000元,2015年为5500元,销售额上涨20%,与2014年相比,则()。
保证人清偿票据债务后,不得行使持票人对被保证人及其前手的追索权。()
以下项目中,适用增值税零税率的有()。
有游客委托导游帮助购物并请求代为托运时,导游应该()
三板市场是中国证券业协会主办的代办股份转让系统,由证券公司为非上市公司提供股份转让服务的市场。()
慢性疲劳综合症(CFS)这种疾病究竟属于生理方面还是属于心理方面尚未确定。病理学家做了如下实验:第一组患者被指定服用一种草药软膏,并告诉他们这种软膏是在试用过程中,其中30%的人在接受治疗的3个月内被治愈;第二组患者接受同样的草药软膏治疗,但告诉他们这种软
Thecriminal’s______forleniencywasignoredbythejurors.(2002年复旦大学考博试题)
最新回复
(
0
)