首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有工程文件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
36
问题
考生文件夹下有工程文件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全国计算机二级
相关试题推荐
阅读程序:PrivateSubForm_Click()DimxAsInteger,yAsIntegerx=32:y=42CallPCS(x,y)Printx;yEndSubSubPCS(ByValnAsIntege
在名称为Form1的窗体上添加一个名称为Image1的图像框,其高、宽分别为1900、1700,通过属性窗口把考生文件夹下的图像文件pic1.bmp载入图像框;再画两个命令按钮控件,名称分别为C1、C2,标题分别为“放大”、“缩小”,如图所示。要求:
在考生文件夹下有一个工程文件sjt5.vbp,窗体上有三个文本框,其名称分别为Text1、Text2和Text3,其中Text1、Text2可多行显示。请添加三个命令按钮,名称分别为Cmd1、Cmd2和Cmd3,标题分别为“产生数组”、“统计”和“退出”,
在名称为Form1的窗体上添加一个名称为Label1的标签,使其初始内容为空,且能根据其标题内容自动调整标签的大小;再添加两个命令按钮,标题分别为“日期”和“时间”,名称分别为Command1、Command2。请编写两个命令按钮的Click事件过程,使得
在窗体上画一个Timer1计时器控件和一个Shape1形状控件,并编写如下程序PrivateSubForm_Load()Timer1.Interval=1000Timer1.Enabled=TmeEndSubPrivateSubTime
以下不可以作为“容器”的控件是
设有如下声明语句OptionBase1Dimarr(2,-1To5)AsInteger则数组arr中数组元素的个数是
编写如下程序:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=1:y=1Doy=x*yIfy>10ThenPrintx,yExitDoElsex=x+3En
在考生文件夹下有一个工程文件sjt4.vbpc.窗体中有一个图片框,图片框中有一个蓝色圆,名称为Shape1,如图所示。当程序运行时,单击“开始”按钮,圆半径逐渐变大(圆心位置不变),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又变为蓝
在考生文件夹下有一个工程文件sjt4.vbp,运行情况如图所示。程序的功能是计算下列表达式的值:z=(x+2)^2+(x+3)^3+(x+4)^4+…+(x+N)^N其中N和x的值通过键盘分别输入到文本框Text1、Text2中。之后如果单击标题为“计
随机试题
属于症状评定量表的一项是
下列说法正确的是
患儿,女,10岁。主因右下颌肿痛2周。可摸到右下颌下区有活动性肿块。加重、高热2天就诊。检查:体温39.0℃,急性面容,右下颌下弥漫性肿胀局部可触及较硬的浸润块,表面皮肤红肿、发亮,皮温升高,有凹陷性水肿;开口度约2.5cm,右下第一磨牙面深龋,叩痛(++
A.温度35~40℃时B.温度60℃以上时C.温度80℃以上时D.温度0~35℃时E.温度0℃以下时
患者,男性,52岁。转移性右下腹痛5小时,伴恶心、呕吐、发热。最能提示该患者患有阑尾炎的体征是
确定施工顺序的依据包括( )。
下列关于期货市场的说法中正确的有()。
历史上最早修筑长城的两个国家是( )。
目前,我国已拥有世界遗产28处,其中属于世界文化遗产的有( )。
WhichdepartmentisDr.Smithin?
最新回复
(
0
)