首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
admin
2018-09-19
22
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计结果。
注意:不能修改程序的其他部分和控件属性。程序调试通过后,运行程序,将统计结果显示在文本框中,再按“保存”按钮,否则将没有成绩,最后将修改后的文件按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private arr(100) As Integer Private n As Integer Private Sub Command2_Click() Open App.Path & "\out5.txt" For Output As #1 Print #1, Text1.Text Print #1, Text2.Text Print #1, Text3.Text Print #1, Text4.Text Print #1, Text5.Text Print #1, Text6.Text Close #1 MsgBox "保存成功!" End Sub Private Sub Form_Load() Open App.Path & "\in5.txt" For Input As #1 n = 0 Do While Not EOF(1) Input #1, x n = n + 1 arr(n) = x Loop Close #1 End Sub Private Sub Command1 Click() ’======以下考生编写程序开始===== ’======"考生编写程序结束"===== End Sub 程序结束 参考答案 Private Sub Command1_Click() 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(Text1) + 1 Next End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/4mFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有一个名称为CD1的通用对话框,一个名称为Command1的命令按钮,其事件过程如下:PrivateSubCommand1_Click()CD1.Filter="AllFile|*.*|Word|*.Doc|*.exe|*.ex
编写如下程序:DimnumAsInteger,rAsInteger,nAsInteger,iAsIntegerDimarr(5)AsIntegerPrivateSubCommand1_Click()num=
在窗体上画一个名称为Text1的文本框,并编写如下程序:OptionBase1PrivateSubForm_Click() Dimarr DimStartAsInteger,FinishAsInteger DimSu
下面不属于软件设计阶段任务的是
下列说法中,错误的是( )。
(1)考生文件夹下的工程文件Bjt3.vbp中有一个初始文本为空且带有垂直滚动条的文本框,其名称为Text1;两个标题分别为“读数据”和“查找”的命令按钮,其名称分别为Cmd1、Cmd2。请添加—个标题为“查找结果”的标签Labell,再添加一个名称为Te
以下关于VB对象属性的叙述中,错误的是
要求当鼠标在图片框P1中移动时,立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是( )。
窗体上有一个如右图所示的图形控件,控件中显示了如图所示的文字,可以判断这个图形控件( )。
当执行循环的时间较长时,为了避免被误认为是死机,通常应在循环体中放置一个语句,这个语句是
随机试题
能增加细胞接触面积的是()
大黄素型和茜草素型主要区别于
患者,男性,36岁。平素体健。淋雨后发热,咳嗽2天,右上腹痛伴气急、恶心1天。为明确诊断,应进行的检查是
电力系统总备用容量由负荷备用、事故备用和检修备用组成,在水、火电联合运行系统中,它们是按何种原则进行分配的?
具有下列()项特征的土可初判为膨胀土。
下列因素中,可能引起白血病的因素是()。
借款人如果需要调整借款期限,应当具备以下条件()。
在宗法观念盛行的社会,姓氏也有贵贱之分。据《百家姓》中的排序“赵钱孙李”,“赵”姓并不是中国最大的姓氏,却排第一,由此可推断出《百家姓》最早可能出现在:
小红绣了一幅图样为“家和万事兴”的十字绣,十字绣为长方形,长比宽多20厘米,她准备用外周长为384厘米、宽度为8厘米的等宽的长方形木框将十字绣裱起来挂在客厅里,已知木框的内宽和内长分别与十字绣的宽和长相等,木框的制作单价为300元/平方米,则最后小红花费了
Thelifeoflivingindormitoryisquitedifferentfromthatoflivingathome.Howtokeepaharmoniousrelationshipwithroomm
最新回复
(
0
)