首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
admin
2019-06-24
45
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
窗体上命令按钮的事件过程如下:PrivateSubCommand1_Click()A="34":B="26":C="98"PrintB+C+AEndSub运行程序后,单击命令按钮,输出结果是()。
窗体上有文本框Text1和一个菜单,菜单标题、名称见表,结构如图所示。要求程序执行时单击“保存”菜单项,则把其标题显示在Text1文本框中,下面可实现此功能的事件过程是()。
以下程序在文本框Text1中输入任一字符串,并按相反的次序显示在文本框Text2中,在横线处应填写()。DimNAsString,CAsString,DAsStringN=Text1.TextM=______________F
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上已经有两个文本框,名称分别为Text1、Text2;一个命令按钮,名称为C1,标题为“确定”;请画两个单选按钮,名称分别为op1、op2,标题分别为“男生”、“女生”:再画两个复选框,名称分别为Ch
某人设计了如下程序用于计算并输出7!(7的阶乘)PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPritetEnd
设在窗体上有一个名称为Check1的复选框数组,并有以下事件过程:PrivateSubCheck1_Click(IndexAsInteger)…EndSub则下面叙述中错误的是
默认情况下,下面声明的数组的元素个数是Dima(5,-2To2)
如果执行一个语句后弹出如图所示的窗口,则这个语句是
VisualBasic中的“启动对象”是指启动VisualBasic应用程序时,被自动加载并首先执行的对象。下列关于VisualBasic“启动对象”的描述中,错误的是
在菜单编辑器中建立如下图所示的菜单,并为每个菜单项编写了鼠标单击事件过程。关于此菜单,以下叙述中错误的是()。
随机试题
“三个代表”重要思想的出发点和落脚点是()
若乙参加诉讼,其诉讼地位如何?()。若丙一并对A市支行也提起诉讼,则关于其诉讼地位的说法不正确的是()。
房地产经纪信息的()彻底改变了传统的广告媒体宣传、发放售楼书等耗费成本较大的信息发布和管理方式。
模型与原形采用相同介质,为满足黏性阻力相似若几何比尺为10,设计模型应使流速比尺为()。
会计资料是在会计核算过程中形成的、记录和反映实际发生的经济业务事项的资料,包括()。
M公司系增值税一般纳税人,适用的增值税率为17%。2014年4月,M公司董事会决定将本公司生产的2000件产品作为福利发放给本公司职工,其中发放给生产工人1200件。该批产品的单位成本为300元,市场销售价格为每件600元(不含增值税)。不考虑其他税费,由
根据下图所示网络结构回答下列问题。如果将192.168.66.128/25划分为3个子网,其中子网1能容纳50台主机,子网2和子网3分别能容纳20台主机,要求网络地址从小到大依次分配给3个子网,前两个子网的掩码分别为________和________
おそくなってすみません。バスが______こなかったんです。
PASSAGEFOUR
Ifyouwanttoteachyourchildrenhowtosaysorry,youmustbegoodatsayingityourself,especiallytoyourownchildren.Bu
最新回复
(
0
)