2. 计算机
  3. 考生文件夹下有工程文件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分。 窗体的设计界面、各控件初始属性及有关代码见窗体

admin2019-05-21  17
问题 考生文件夹下有工程文件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全国计算机二级

相关试题推荐
随机试题
最新回复(0)