首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件sjt5vbpo.考生文件夹下in5.tx1文件中保存有全校300名同学对某位教师教学质量的网上评价等级结果,共分为A、B、C、D 4个等级,表示分数为95、85、75、65分。 窗体的设计界面、各控件初始属性及有关代码见窗体
考生文件夹下有工程文件sjt5vbpo.考生文件夹下in5.tx1文件中保存有全校300名同学对某位教师教学质量的网上评价等级结果,共分为A、B、C、D 4个等级,表示分数为95、85、75、65分。 窗体的设计界面、各控件初始属性及有关代码见窗体
admin
2019-05-21
14
问题
考生文件夹下有工程文件sjt5vbpo.考生文件夹下in5.tx1文件中保存有全校300名同学对某位教师教学质量的网上评价等级结果,共分为A、B、C、D 4个等级,表示分数为95、85、75、65分。
窗体的设计界面、各控件初始属性及有关代码见窗体文件。程序的功能是,程序运行时,单击“读取并统计”按钮,则按行读取in5.1xl文件的内容,并显示到文本框Text1中,然后调用Calculate过程统计A、B、C、D各等级出现的次数、计算该教师的最后评价成绩(评价成绩=各等级出现次数与相应等级得分乘积之和/评价总人数,结果要求四舍五入取整),将结果分别存储到窗体层变量m1、m2、m3、m4、s中,然后将它们的值分别显示到文本框Text2、Text3、Text4、Tex6、Text6中。
单击“保存结果”按钮,则保存结果。
“读取并统计”和“保存结果”按钮的Click事件过程已经给出,请编写CMculate过程中的代码,以实现上述功能。下图是程序对某个输入文件运行的界面。
注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须进行“读取并统计”,且必须单击“保存结果”按钮保存结果,否则无成绩。最后,程序按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,填入相应的代码以实现题目的功能。 参考答案(画线部分是需要填入的内容) Dim m1 As Integer,m2 As Integer,m3 As Integer,m4 As Integer Dim s As Integer Private Sub Command1_Click() Dim strAs String Open App.Path&"\in5.txt" For Input As#1 Text1.Text="" Do While Not EOF(1) Line Input#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 #1,"C:";m3 Print #1,"D:";m4 Print #1。"评价成绩:";s Close #1 End Sub Private Sub Caleulate()
Dim i As Integer
s1=Text.Text
For i=1 To Len(s1)
c=Mid(s1,i,)
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 步骤3:调试并运行程序,单击“读取并统计”按钮,结果如图5.4所示,再单击“保存结果”按钮,最后关闭程序后按题目要求存盘。 [*]
解析
Calculate过程中利用For循环逐个取出文本字符串s1中的字符,然后把每个判断语句中的相对应的字母个数加1存到相对应的变量中,将所得平均值放入变量s中,最后结果显示在窗体中。
转载请注明原文地址:https://kaotiyun.com/show/eHUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
假定计时器控件Timerl的Enabled属性为True,Interval属性为1000,并编写如下程序代码:PrirateSubTimer1_Timer()DimxAsIntegerFori=1To100x=x+1Nexti
下面描述中不属于数据库系统特点的是
软件设计中模块划分应遵循的准则是
在名称为Form1的窗体上添加一个名称为Label1的标签,使其初始内容为空,且能根据其标题内容自动调整标签的大小;再添加两个命令按钮,标题分别为“日期”和“时间”,名称分别为Command1、Command2。请编写两个命令按钮的Click事件过程,使得
在名称为Form1,标题为“练习”的窗体上添加一个名称为Frame1、标题为“效果”的框架。框架内含有三个复选框,其名称分别为Chk1、Chk2和Chk3,标题分别为“倾斜”、“加粗”和“下划线”。程序运行后的窗体如图所示。要求:存盘时必须存放在考生文
在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目”的标签;添加一个名称为Text1的文本框,初始内容为空;添加一个名称为Combo1的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再添加两个命令按钮,名称分别为Co
现有程序如下:OptionBase1PrivateSubForm_Click()Dimx(5,6)AsInteger,y(5)AsIntegerFori=1To5Forj=1To6x(i,j)=Int(Rnd*9+1)
有下面程序代码:PrivateSubCommand1_Click()DimsignAsIntegersign=13a=1b=2Fork=1To5c=a+sign*ba=bb=cPrintc;sign=-signNe
在名称为Form1的窗体上添加一个名称为Picture1的图片框(PictureBox),高、宽均为1000。在图片框内再添加一个有边框的名称为Imagel的图像框(.Image)。并通过属性窗口把考生文件夹下的图标文件Point11(香蕉图标)装入图像框
在考生文件夹下有一个工程文件sjt5.vbp,包含了所有控件和部分程序。当程序运行时,单击“打开文件”按钮,则弹出“打开”对话框,默认目录为考生目录,默认文件类型为“文本文件”。选中in5.txt文件(如图1所示),单击“打开”按钮,则把文件中的内容读入并
随机试题
自然条件下,埃博拉病毒可以引起下列哪些群体发病()
下列哪项关于流感的论述不正确
患者,男,28岁,餐后突发性右上腹痛,疑为十二指肠溃疡穿孔。下列检查中,最具有诊断意义的是
虚寒型腹痛的临床特点是()。
商品经济与市场经济的相互关系是()。
2,1,4,3,8,9,(),27
四个课外兴趣小组:恰恰舞小组、排球小组、绘画小组、古筝小组。F、G、H、J、K和L一起去报名参加兴趣小组。6人加入这四个课外兴趣小组,满足以下条件:(1)每人恰加入一个小组,每个小组至少有一人加入。(2)H和F加入同一个小组。(3)恰有一个人(此人不
(xcosx-arctanx)/x3.
计算机中BIOS(基本输入输出系统程序)保存在(7)中。
期权交易的用途有()。
最新回复
(
0
)