首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sit5.vbp..考生文件夹下in5.txt文件中保存有全校300名同学对某位教师教学质量的网上评价等级结果,共分为A、B、C、D 4个等级,表示分数为95、85、75、65分。 窗体的设计界面、各控件初始属性及有关代码见窗
考生文件夹下有工程文件sit5.vbp..考生文件夹下in5.txt文件中保存有全校300名同学对某位教师教学质量的网上评价等级结果,共分为A、B、C、D 4个等级,表示分数为95、85、75、65分。 窗体的设计界面、各控件初始属性及有关代码见窗
admin
2019-08-21
51
问题
考生文件夹下有工程文件sit5.vbp..考生文件夹下in5.txt文件中保存有全校300名同学对某位教师教学质量的网上评价等级结果,共分为A、B、C、D 4个等级,表示分数为95、85、75、65分。
窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序的功能是,程序运行时,单击“读取并统计”按钮,则按行渎取in5.txt文件的内容,并显示到文本框Text1中,然后调用Calculate过程统计A、B、C、D各等级出现的次数、计算该教师的最后评价成绩(评价成绩=各等级出现次数与相应等级得分乘积之和/评价总人数,结果要求四舍五入取整),将结果分别存储到窗体层变量m1、m2、m3、m4、s中,然后将它们的值分别显示到文本框Text2、Text3、Text4、Text5、Text6中。
单击“保存结果”按钮,则保存结果。
“读取并统计”和“保存结果”按钮的click事件过程已经给出,请编写calculate过程中的代码,以实现上述功能。下图是程序对某个输入文件运行的界面。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“读取并统计”,且必须单击“保存结果”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案(画横线部分是需要填入的内容) Dim m1 As Integer,m2 As Integer,m3 As Integer,m4 As Integer Dim s A8 Integer Private Sub Command1_Click() Dim str As String Open App.Path&"\in5.txt"For Input As#1 Text1.Text=" " Do While Not EOF(1) Line Inout#1.str Text1.Text=Text1.Text&str Loop Close#1 Call Calculate End Sub Private Sub Command2_Click() Open App.Path&"\out5.txt"For Output As#1 Print#1,"A:";m1 Print#1."B:":m2 Print#l,"C:";m3 Print#1,"D:";m4 Print#1,"评价成绩:";s Close#1 End Sub Private Sub Calculate()
Dim i As Integer sl=Text1.Text For i=1 To Len(sl) c=Mid(sl,i,1) Select Case c Case"A" m1=m1+1 Case"B" m2=m2+1 Case"C" m3=m3+1 Case"D" m4=m4+1 Case Else Exit For End Select Next i s=CInt((m1*95+m2*85+m3*75+m4*65)/300 Text2.Text=m1 Text3.Text=m2 Text4.Text=m3 Text5.Text=m4 Text6.Text=s
End Sub Private Sub Form_Load() End Sub
解析
Calculate过程中利用For循环逐个取出文本字符串sl中的字符,然后把每个判断语句中的相对应的字母个数加l存到相对应的变量中,将所得平均值放入变量s中,最后结果显示在窗体中。
转载请注明原文地址:https://kaotiyun.com/show/GdUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有下面程序代码:PrivateSubCommandl_Click()a:3:S=0Fork=1T05s=s+aModk:a=a+kNextkPrintSEndSub程序运行后,单击命令按钮Commandl,
设窗体上有一个名称为HSl的水平滚动条,如果执行了语句:HS1.Value=(HS1.Max-HS1.Min)/2+HS1.Min则:
设窗体上有1个名称为HScroll1的水平滚动条,其Max、Min属性分别设置为100、1;有2个名称分别为Option1、Option2的单选按钮,其标题分别为“30”、“50”;还有下面程序代码:PrivateSubOption1_Click()
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是
下列打开“代码窗口”的操作中错误的是
下面可以正确定义2个整型变量和1个字符串变量的语句是
设有如下语句:Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码前叙述中,错误的是
表达式5Mod3+3\5*2的值是
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。
已知在4行3列的全局数组score(4,3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommand1_Click()Dim
随机试题
盲沟的排水层应采用石质坚硬的较小粒料填筑。()
房地产经纪人是房屋交易的必不可少的枢纽,体现了房地产经纪活动()。
价值工程所需的下列信息资料中,属于用户方面的信息资料的是()。
核算项目与科目是多对关系,即一个核算项目可以在多个科目下挂接,而一个会计科目又可以同时设置多种核算项目。()
甲将一张100万元的汇票背书转让给乙,并注明“乙不得对甲行使追索权”。下列有关该背书效力的表述中正确的有()。
导致市场失灵的主要原因有()。
2011年1~7月,在商品零售中,限额以上企业商品零售各行业中,所占比重增加的行业至少有( )个。
(2019年国考)党的十八大以来,以习近平同志为核心的党中央,紧密结合新的时代条件和实践要求,以全新的视野深化对共产党执政规律、社会主义建设规律、人类社会发展规律的认识,创立了习近平新时代中国特色社会主义思想,其核心要义是()。
Iprefer______coffeetotea.
Acuriousphenomenonoccursduringeveryeconomiccrisis—therichwhinethattheyaretheoneswhoaresufferingmost.Incurren
最新回复
(
0
)