首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框
admin
2020-04-08
30
问题
在考生文件夹下有一个工程文件sjt5.vbp,窗体如图所示。运行程序时,从考生文件夹数据文件中读取学生的成绩(均为整数)。要求编写程序,统计总人数,同时统计不及格、60~69、70~79、80~89及90~100各分数段的人数,将统计结果显示在相应的文本框中。结束程序之前,必须单击“保存”按钮,保存统计结果。
注意:不能修改程序的其他部分和控件属性。程序调试通过后,运行程序,将统计结果显示在文本框中,再按“保存”按钮,否则将没有成绩,最后将修改后的文件按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 For i=l 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)<= ]00 Then Text6=Val(Text6)+1 End If Textl=Val(Textl)+1′显示统计人数 Next 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/ktx0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
窗体如图所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Command1),则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommand1_Click()Dimn%,
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为( )。
通用对话框Filter属性的作用是
编写如下程序:PrivateSubCommand1_Click() DimxAsInteger,yAsInteger x=InputBox("输入第一个数") y=InputBox("输入第二个数") Callf(x,
设窗体上有2个框架,每个框架中有若干个单选按钮,下面叙述中正确的是()。
运行如下程序:PrivateSubCommandl_Click()Dima(5,5)AsIntegerF0ri=1To5Forj=1To4a(i,j)=i*2+JIfa(i,
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是()。
随机试题
根管预备常用的器械包括
A.阿胶B.新阿胶C.鹿角胶D.龟甲胶E.阿拉伯胶
月球之所以能对地球自转轴的稳定起到重要影响,是因为它异乎寻常得大——事实上,它是太阳系卫星之中相对于行星而言最大的。不仅如此,按照目前最流行的观点,月球乃是起源于地球演化早期——约45万亿年前——的一次超级碰撞,碰撞的双方一方是正在成长中的原地球,另一方是
同盟会的政治纲领是“驱除鞑虏,恢复中华,创立民国,平均地权”。孙中山将其概括为三大主义,即民族主义、民权主义、民生主义。下列属于民权主义的是
Duringthetraditionalweddingceremony,the【C1】______couplepromiseeachotherlifelongdevotion.Yet,aboutoneoutoffourAm
Thegovernment’scontinuingfailuretoaddressournation’sgut-wrenchingunemploymentstemsfromafundamentaldisagreemento
A、It’sacomparison,hewantstodescribehowearthquakescauseturbiditycurrents.B、Hewantstodescribedesertwinds.C、Heme
PartⅡReadingComprehension(SkimmingandScanning)Directions:Ithispartyouwillhave15minutestogooverthepassagequi
A、Featuringnewstarsandfamousones.B、Makingafull-lengthfeaturefilm.C、Presentingvariousimagesandeffects.D、Tellinga
Commutertrainsareoftenstuffyandcrowded,andtheyfrequentlyfailtorunontime.Asifthatwerenotbadenough,Tsuyoshi
最新回复
(
0
)