自动评分系统
员工测评打分系统小程序
员工测评打分系统小程序一、引言员工测评是企业管理中不可或缺的一环，而打分系统是员工测评中必备的工具之一。
随着移动互联网的发展，小程序成为了企业实现员工测评打分的理想解决方案。
本文将介绍一款高效便捷的员工测评打分系统小程序，为企业管理者带来全新的测评体验。
二、系统功能该员工测评打分系统小程序具备以下主要功能：1.员工管理：支持添加、编辑和删除员工信息，方便企业管理者对员工进行全面的测评。
2.测评模板：提供多种预设的测评模板，包括360度测评、绩效评价等，满足不同场景的需求。
3.评分记录：记录员工测评的评分结果，并允许管理者查看和导出数据，提供数据分析的依据。
4.消息通知：通过小程序实时向员工发送测评结果通知，以及相关的提醒和反馈，提高员工参与度。
5.权限管理：设置不同角色的权限，确保测评的公正性和安全性。
三、系统优势该员工测评打分系统小程序具有如下优势：1.便捷高效：小程序通过手机即可访问，无需下载安装，随时随地进行员工测评，提高工作效率。
2.操作简单：简洁的用户界面和清晰的操作流程，即使是没有技术背景的管理者也能轻松上手。
3.个性化定制：支持管理者自定义测评模板和评分细则，根据企业的特定需求进行定制化设置。
4.数据安全：采用安全的数据加密技术，保障员工测评数据的隐私和安全。
5.数据分析：提供多种数据分析功能，如图表展示和数据导出，帮助管理者深入了解员工的综合表现。
6.云端存储：数据存储在云上，不受设备损坏和丢失的影响，并支持多设备同步。
四、使用案例以下是一种使用该员工测评打分系统小程序的典型案例：在某企业中，管理者通过小程序创建了一个360度测评的模板，具体包括员工的工作表现、团队合作、沟通能力等各项指标。
每位员工都会收到测评邀请，在规定的时间内对其他评委进行评分。
评分完成后，系统会自动生成测评报告，并自动通知员工查看结果。
管理者可以通过小程序查看测评数据并进行数据分析，以便为员工的职业发展提供参考意见。
C语言在线自动评分考试系统的研究
略。 谓按结果评 分方法 ， 是只对结果进 行评判 。 所 就 程序运行 代码对 比评分。 （ ） 考生的源 程序进行编译 、 接， １对 连 如果能正常运行并 结果与正确结果一模一样， 就按对来算分， 运行 结果与正确结果
则将其运行结果与标准 答案进行对 比。 与标 不一模一样 ， 按错来算分。 是学 过Ｃ 就 但 语言 的人都知道 ， 这样 能产生结果文件， 则说 明结果 正确 ， 得满 分。 如果 运行 来判分是有失公平的。 经过 大量的调查和深入 的研究 ， 我们提 准答案文件 内容完全相 同， 则按 比例给分， 如果得分为极端分 （） ０ 出了修复编译评 分、 结果对 比评 分和关 键代码对 比评 分相 结合 结果有一部分对 比正确 ， 分或分数太低 ， 则转入静态评阅， 进行代码对比评分。 若程 序不 的Ｃ 语言程 序设计 自动评分策略。
关键词： 语言； ｃ 在线考试； 动评分； 自 系统
１Ｃ 语言程序设计题 自 动评阅流程设计
目 的很多 自 化评分系统仍 采 用的是按 结果评 分 的策 前 动
文件 、 使用Ｔ ｒ ｏ Ｃ（ ｕ ｂ 简称Ｔ ） Ｃ 编译链接程 序、 程序运行及 控制 （ 包括死循环处理）、 序运 行结果对 比、 程 修复编译评分、 关键
C语言上机考试系统中自动评分方法的探讨
C语言上机考试系统中自动评分方法的探讨摘要：利用计算机考核学生的Ｃ语言编程实践能力，实现编程题的自动评分，已成为计算机辅助教学的一个热点。
依据程序设计题特点，总结了目前能应用于实践的几种Ｃ语言编程题的自动评分方法，并对这几种自动评分方法进行了探讨与分析。
关键词：Ｃ语言；自动评分；辅助教学目前，计算机Ｃ语言已作为各类高校计算机专业甚至其他相关专业的必修课程。
由于学习该课程的学生人数多，为了提高教学效率，避免手工阅卷时出现的费时且易出错等问题，必须采用能确保公正、客观的计算机自动评分系统。
目前，国内在Ｃ语言的上机考试系统中选择题和填空题的自动阅卷技术已经很成熟，而对用于评价实践能力的Ｃ语言编程题，计算机自动评分技术还一直处于发展与完善中。
自２０世纪６０年代开始，国内外许多学者致力于研究程序设计题计算机自动评分方法。
发展至今，目前较完善的Ｃ语言编程题自动评分技术已可总结为好几种。
１基于程序理解的编程题自动评分方法程序理解是通过分析程序，对程序进行抽象、推理来获取知识。
该方法将人工阅卷的某种思维过程和程序理解的几个基本策略进行结合，通过比较模板程序与学生程序，并给学生程序p文献［３］提出的基于语义相似度比较的编程题自动评分模型对程序的一些标准化规则如布尔运算和算术运算进行了改进和完善，在原有模型上采用函数调用和数组分析等一些改进方法，根据语义相似度匹配学生程序与模板程序。
该模型主要依据如下几点进行自动评分［４］：（１）首先定义好相应的模板程序，以此为标准来判断学生程序是否正确；（２）只要标准答案的其中一个语义与学生程序的语义对等，则可判断该学生程序的语义正确；（３）程序语义也可转换并通过系统依赖图ＳＤＧ这种中间表示形式来表示，如果两个系统依赖图等价，则两个程序具有等价的语义；（４）语义等价转换也就是通过系统依赖图标准化语义等价程序，那么，不管程序以何种形式进行计算，只要其结果不变，则称该转换是等价的。
基于语义相似度比较的编程题自动评分模型在分析词法和语法上比较严格，虽然也已能应用于实际需要，但仍有需要完善的地方，比如，对指针和结构体的处理就不是很理想。
建筑工程施工现场质量安全管理量化评价制度
建筑工程施工现场质量安全管理量化评价制度一、总则本制度适用于本市行政区域内房屋建筑工程（含管廊工程，下同），采用百分制，由工程质量管理量化评价、工程安全管理量化评价、工程绿色施工管理量化评价组成，其中：工程质量管理量化评价权重为35%，工程安全管理量化评价权重为40%，工程绿色施工管理量化评价权重为25%，。
二、量化评价细则（一）概述。
为保障建筑工程施工现场质量安全管理量化评价的公平、公开、公正，按照建设工程管理标准化、信息化的要求，结合我市建筑工程管理的实际情况，广州市住房和城乡建设局建立了建设工程质量安全管理现场量化评价自动评分系统（以下称自动评分系统）。
自动评分系统依托“监督管理系统”、“混凝土追踪系统”、“检测监管系统”、“深基坑和地下工程安全监测预警系统”、“建筑起重设备实时监控系统”及“现场考勤定位系统”、“现场量化评价资料上传模块”等子系统运行，通过自动采集施工监理企业在建筑施工活动中的过程管理、行为管理和结果管理中的质量安全数据，实现对建设工程质量安全管理现场量化评价的自动评分。
自动评分系统评价标准分为①建设（建筑）工程施工质量管理现场量化评价标准（详见附表1～2），②建设工程监理质量管理现场量化评价标准（详见附表3～4），③建设工程施工安全管理现场量化评价标准（详见附表5～6），④建设工程监理安全管理现场量化评价标准（详见附表7～8），⑤建设工程施工、监理企业绿色施工管理现场量化评价标准（详见附表9）五部分。
（二）评价范围、标准、周期和计算。
1.广州行政区域内房屋建筑工程（含管廊工程），自报监开工之日起至完工（其中安全管理现场量化评价周期从开工之日起至办理安全评价之日止），除因法定节假日、资金不足或其他原因停工外，施工企业建筑工程质量管理现场量化评价应根据建设（建筑）工程施工质量管理现场量化评价标准进行评分（详见附表1～2）；监理企业质量管理现场量化评价应根据建设工程监理质量管理现场量化评价标准进行评分（详见附表3～4）；施工企业建筑工程安全管理现场量化评价应根据建设工程施工安全管理现场量化评价标准进行评分（详见附表5～6），监理企业安全管理现场量化评价应根据建设工程监理安全管理现场量化评价标准进行评分（详见附表7～8），施工、监理企业绿色施工管理现场量化评价应根据建设工程施工、监理企业绿色施工管理现场量化评价标准进行评分（详见附表9）。
基于Android平台及手机WLAN功能的评分系统
关 键词
Ａ ｄｏ ｎ ｒｉ ｄ
号 Ｔ ９５９ ； Ｎ ２．３
文献 标志码
Ａ
目前根据赛事规模 以及级别 的不 同， 在评分及
综 合处 理过 程 中 ， 内外 竞 赛 项 目通 常采 用 以 下两 国 种 方案 ： １应 对高 级别 赛 事 ， （） 开发 或 租用 专 用 的嵌
事， 多采 用人 工 的方 法进 行 数 据 输 入 、 理 和 报 表 处
分发。大型的体育竞技活动 ， 如奥运会 ， 评分采 其
用 专业设 备来 进 行 。而类 似 于高 校 运 动会 的活 动 ， 往 往采 用 人 工 统 计 分 数 ， 工 计 算 。前 者 成 本 较 手 高， 大大 提高 了赛 事 的费 用 ； 后 者 效率 低 、 而 出错 率
通信 。
１２ 系统 工作流 程 ．
室外竞赛如在体育场进行的运动会 ， 多项赛事
往 往 同时进 行 ， 要 一 个 中心 交 换 节 点 或 服 务 器 ， 需 采 用集 中式 处理 ， 以实 现 多业 务 多 数据 的实 时 汇 可 总 。集 中式 网络 系统模 型如 图 ２所 示 。
１ １ 集 中式 网络 系统 的建立 ．
ｐ ｔｔａ ） ）ｔ ｅ ； ｕＳ ｅｍ（ ） ，ｕ ） 服务 器通过 ＳｒｅＳｃｅ 与客 ｒ ｒ ｅｖｒｏｋｔ 服端进 行对 话 ， 用 Ｃ ｐＯ Ｗｒｅ ｒ ｙ ｉ 来 存储 所 并 ｏｙ ｎ ｉＡ ｒ Ｌｓ ｔ ａ ｔ
有连接 进来 的客 服端 的 Ｓ ｃ ｅ 对 象 ， 现 一 对 多 的 ｏｋ ｔ 实
１ 卷 ｌ
到 ２ Ｍｂｔｓ ０ ｉ 以上 ； ／ 能够 与 ＩＥ ０ ． ｌ Ｅ Ｅ８ ２ １ ｂ系统互 联互
ｅｅ Ｗｒ ｅ （ ｅ ｕｐ ｔｔｅ ｍＷｒ ｅ ｓｃ ｅ． ｅＯｕ— ｒｄ ｉ ｒ ｎ ｗ Ｏ ｔｕＳｒａ ｔ ｉ ｒ（ ｏ ｋ ｔ ｇ ｔ ｔ ｔ
人工智能智能辅助测评 提高测评效率
人工智能智能辅助测评提高测评效率人工智能（Artificial Intelligence，简称AI）作为一门新兴技术，在各行各业都具有广泛的应用前景。
其中，人工智能在测评领域的应用，不仅可以提高测评效率，还能够有效减少人工因素带来的误差。
本文将探讨人工智能在智能辅助测评方面的应用，并分析其对测评效率的提升作用。
一、人工智能在智能辅助测评的应用范围1. 自动化评分系统人工智能技术可以实现对大规模试卷的自动评分，解决传统人工评卷效率低下、成本高昂的问题。
通过训练和学习，人工智能可以识别出试卷中的关键要素，并对试卷进行智能化的评分。
2. 考试阅卷辅助系统人工智能可以辅助阅卷工作，提高阅卷的准确性和效率。
通过光学字符识别（OCR）技术，人工智能可以将答卷中的文字自动转换为电子文档，从而减少了手工输入的工作量。
3. 个性化评价与分析人工智能可以根据学生的个性化需求，给出针对性的评价和分析。
通过分析学生的答题情况和知识点掌握情况，人工智能可以快速定位学生的薄弱环节，并给出相应的改进建议。
二、人工智能辅助测评的优势和挑战1. 提高测评效率人工智能在测评过程中可以实现自动化处理，减少了人工操作的时间和成本。
相比传统的人工评卷方式，人工智能可以快速完成大量试卷的评分和分析工作，大大提高了测评效率。
2. 降低人为因素的影响人工智能在测评过程中不受人类因素的影响，能够客观公正地对试卷进行评分，减少主观因素带来的误差。
这使得测评的结果更加准确可靠。
3. 数据保护和隐私问题人工智能在测评过程中需要处理大量的个人数据，因此数据保护和隐私问题是一个关键的挑战。
保护学生的个人隐私，确保数据的安全性和合法性，是人工智能辅助测评应用中亟待解决的问题。
三、人工智能辅助测评的未来发展方向1. 完善智能辅助测评系统未来，人工智能辅助测评系统将更加智能化和定制化，能够根据学科、年级和题型等不同的需求，提供更加精准和全面的测评服务。
同时，系统应具备在线辅导功能，以帮助学生更好地理解和掌握知识。
2014小学体质健康自动评分统计系统
年级编号 班级编号 班级名称 学籍号 民族代码 1 1 姓名 性 出生日期 别 1 2 2006-4-10 2005-12-13 家庭住址 身高 体重 肺活量 147 136 48 32 2695 1530 50米 跑 一分钟 坐位体 一分钟 仰卧起 前屈 跳绳 坐 10 8.9 167 51 11.3 10 168 49
2014年一年级体质健康测试成绩计算
姓名 50米× 8往返 性别2 民族2 跑 1'00 男 汉族 2'39 女 汉族 体重 成绩 22.2 17.3 体重 得分 体重 等级 肺活 量得 分 100 100 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 肺活 50米 50米 体前屈得 体前屈等 跳绳 跳绳 仰卧起 仰卧起坐 50×8 量等 得分 等级 分 级 得分 等级 坐得分 等级 得分 级 优秀 100 优秀 76 及格 100 优秀 优秀 85 良好 72 及格 100 优秀 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格 不及格 0 不及格 0 不及格
作文自动评分总结
李艳老师和葛诗利老师《大学英语作文自动评分中分级词表的效度研究》中提出了作文分级词表的思想，而这可以通过改进或者调整已有的词表来获得。
目前自然语言处理中准确率最高的、也是最基本的研究就是词汇分析，词汇分析一般包括词长分布、词汇分布和词汇丰富性等。
词汇分布：一篇作文中的词汇占某一分级词表每个级别词汇的比例。
Laufer&Nation的3个级别的词表。
CLEC中国学习者英语语料库SPSS软件包的单因素方差分析（ANOV A）SPSS多元线性回归分数档的精确率和召回率，总体准确率和误判率个分数精确率=本为X档作文并且被评为X档作文的数量／所有被评为X档作文的总数*100 精确率越高，说明作文被评为该分数档的可信度越高Laufer&Nation 以词族为计算单位，词频概貌文秋芳以类符为计算单词，称为词频广度倪岚以形符为计算单位词频分布准确率都是30%左右徐剑和梁茂成《对集中英汉机器翻译系统的测评》翻译系统在译文输出方面已经比较成熟，源语言的语义识别方面还不如人意。
80年代，机器翻译研究863智能型英汉翻译系统—“译星一号”评估标准：系统功能，操作的难易度及译文质量（包括译文的忠实度、译语的可懂度和译文的可接受性）欧共体评估：识别（译文的得懂度、忠实度、连贯度、有用性、读取速度和译文的可接受性）和语言方面（句子结构和语义的连贯性、词汇评价、翻译错误）可懂度、忠实度和译文的可接受性梁茂成和李刚《英汉机器翻译中人称代词的处理》徐州师范大学外语系汉语术语分析语，词序、虚词等来表达各种语法关系；英语属于综合语，通过词本身的形态变化来表示英语中人称代词的使用频率要远远高于汉语汉语属于孤立性语言，英语为粘着性语言原因：1.汉语表示所属关系的物主代词往往可以省略2.英语中大量使用反身代词反身代词：（译星对反身代词处理较为得当）1.英语较汉语大量使用反身代词2.汉语反身代词具有独立的指称功能，英语则依附于其他代词或名次，无独立的指称功能。
自动作文评阅系统评分效度验证及教学启示
究（MBXH19YB016）”及全国高校外语教学科研项目“教育信息化背景下大学英语写作教学模式的 构建及其有效性研究（2019JX0014B）”的阶段性研究成果。
- 67 -
语 言 与 文 化 论 坛 2020 年（ 第一辑）
效度论证纬度
表 1 AWE 系统效度论证框架 主要研究问题
评分 泛化 外推
影响
1. AWE 系统与人工评阅者所衡量的文章特征是否相同？ 2. 作文的系统分数与人工分数是否一致？
1. 系统提供的写作任务是否充分表征写作构念？ 2. 学生在完成类似的写作任务时，系统给出的分数是否相似？
作文的系统分数与其他写作任务（如多项选择题等）的分数之间存在何种关系？
- 69 -
语 言 与 文 化 论 坛 2020 年（ 第一辑）
工、机器分数建立回归模型，结果表明系统评分效度低可能是因其内部缺陷所致，机器 评分主要依据浅层文本特征，不能像人工评阅那样分析深层文本特征，机器无法真正阅 读、欣赏和判断文章，并且在分析深层句型结构或词汇搭配方面的能力不足。
国内 AWE 系统开发者在不同场合多次提到系统在英语作文评阅方面十分可靠，因 此大部分高校都将此类系统融入写作教学中。但是，一个不容忽视的问题是：这些自 动系统打出的分数与人工评阅者给出的分数是否真的高度一致？现有的研究结果并不一 致。因此本研究将对国内某 AWE 系统的评分效度进行验证，以丰富该领域的研究，并 探讨研究结果对大学英语写作教学的启示。
尽管国外研究大多报道 AWE 系统效度、信度均较高，但由于多数结果由开发者提 供，鲜有独立的学者给出，因此结果的真实性不得而知。国内某系统开发者也验证了其 开发的 AWE 系统的评分效度，比较了 1456 篇 15 分制作文的机器分和人工分的结果， 发现 92.03% 的作文的分数差在 3 分以内，换言之，其相邻吻合一致性在 90% 以上。但 这一结果亦是由开发者提供，真实情况如何，有待独立研究的进一步证实。
操纵评分自动管理系统
ｑｕ ｒ ｙａ ｄｍａ ａ ｅ ｎ ｆｔ ｅｃｃ Ｍ ａｎｆ ｎ ｔ ｎ ｎ ｅ ｉａ ｉｎ ｓｈ ｍｅｉ ｅ ｐａ ｎ ｄｆ ｒｈ ｎ ｌ ｉ ｏ ｔ ｒ ａ ｔｍａｉ ａ ｎ ｒ ｎ ｇ ｍｅ ｔ ｏ ｈ ｒ ｗ ｉ ｕ ｃ ｏ ｓｎ ｄ ｒａ ｚ ｔ ｃ ｅ ｉ ｌ ｏ ｓ ｘ ］ｉｅ ｏ ｔｅ ａ ａｙｓｓｓ ｆ ｅ（ ｕｏ ｔ ｗａ ｃｍａ ａ ｅ ｎ ｎ ｇ ｍｅ ｔ ｓ ｓｅ ｏ ｏ ｅ ａｉ ｎ ｅ ａ ｕ ｔ ｎｖ ｒ ｉｎ Ｗ Ｅ ｙ ｔ ｍ ｆ ｐ ｒ ｔ ｖ ｌ ａｉ ｅ ｓｏ Ｂ）ａｒ ａ ｙ ｐ ｔ ｎ ｏｏ ｅ ａｉ ｎ ｏ ｏ ｌｅ ｄ ｕ ｔ ｐ ｒ ｔ ． ｉ ｏ
中图分类号 ：Ｔ ３ １ ：ｕ ６ ． 文献标识码：Ａ 文章编 号；１０ ．２ Ｘ（０ ７ ０ ．０ ０ ０ Ｐ ｌ １ ２ ｇ４ ０ ０ １８ ２ ０ ） １０ ６ ． ２
Ａｕ ｏ ａ ｉ ａ ａ ｅ ｅ ｔＳ ｓｅ ｏ ｐ ｒ ｔｏ ａ ｕ ｔｏ ｔ ｍ ｔｃＭ ｎ ｇ ｍ ｎ ｙ ｔ ｍ ｆ Ｏ ｅ ａ ｉｎ Ｅｖ ｌ ａ ｉｎ
计 算 机 应 用
作者 简介：邓武 弹 （１ ｆ 一） ９４ ． ｉ
摘 要 ：为加强对机车乘务员操作悄况的 内动考砰． 通过对列车运行监控 记录装置的运行记录ｌ 男．工租 师．主安 从事机 义 件进行 自动分析． 能准确地发现存在的问题和 不足． 可掇升机车运 用水 平和对乘务员的臂理水平 阐述 丰监控装置的技术雷理工 了已投入使用的分析软件 （ 操作 湃分 向动管理 系统 ＷＥ Ｂ版 ） 的主要功能和实现方案 作 关键词 ：机 车操纵 ；列 车运 行监控记录装 毁 ；自动钎理 ：自动分析
行途中、 入库作业和库内作 、 个运行阶段 （ ５ 如表 １ 所 示 ）包括乘务 员对制动机 、 ． 监控器 、 机车 ＝柄和各类 Ｆ
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
最近单位组织了一次英语会话比赛，笔者用PowerPoint内嵌的VBA
功能制作了一个即时评分系统，受到老师和同学们的一致好评，现
将制作过程与大家分享。
准备工作：在桌面新建一个名为“评分系统”的文件夹，用于
存放参赛队的相关信息，其中Name.txt中保存了各参赛队名称（需
事先准备，每个队名占一行）。
启动工作：新建一张空白幻灯片，在“视图”菜单下找到“工
具栏”子菜单，选择其中的“控件工具箱”（大家也可根据实际需要
改变主界面风格）。调整相应控件位置，评委照片用的是“图像控件”，
下面的分数用的是“文本框”，两个按钮用的是“命令按钮”，放置
好控件之后再调整各控件的属性来美化界面，也可根据实际需要插
入图片进行修饰。
评分系统主界面中包括8个评委的照片和每个评委给出的分数
（如图），功能按钮包括“清空”、“最后得分”。
各评分得分的文本框的名称为TxtS1，TxtS2„„TxtS8，“最后
得分”按钮的名称为CommandTotal，第二张幻灯片用来显示最后得
分的标签名称为LblTotal。
设计工作：打开VBA编辑器编写代码：
'指定文件夹用于存放每组得分的统计文件
Const Path$ = "C:\windows\desktop\评分系统\"
'全局变量，最后总分
Dim sum As Single
'全局变量，最后平均得分
Dim AverageScore As Single
'全局变量，记录组次，保存后自动加1
Dim GroupNum As Integer
'清空“评委得分”，清空“最后得分”
Private Sub CommandButton1_Click()
TxtS1.Text = ""
TxtS2.Text = ""
TxtS3.Text = ""
TxtS4.Text = ""
TxtS5.Text = ""
TxtS6.Text = ""
TxtS7.Text = ""
TxtS8.Text = ""
'清空下一张幻灯片的最后总分
Slide2.LblTotal.Caption = ""
End Sub
'“最后得分”按钮
Private Sub CommandTotal_Click()
On Error GoTo er
Dim sum As Single
'将8个评委的分数相加得出总分sum
sum = sum + CSng(TxtS1.Text)
sum = sum + CSng(TxtS2.Text)
sum = sum + CSng(TxtS3.Text)
sum = sum + CSng(TxtS4.Text)
sum = sum + CSng(TxtS5.Text)
sum = sum + CSng(TxtS6.Text)
sum = sum + CSng(TxtS7.Text)
sum = sum + CSng(TxtS8.Text)
'计算出最后得分（平均分），精确到小数点后3位
AverageScore = Format(sum / 8, "#.###")
'第二张幻灯片显示最后得分
Slide2.LblTotal.Caption = AverageScore
'写入最后得分
If GroupNum>=1 AND GroupNum <= 5 Then
Open Path$ && "InpScore.txt" For Append As #1
Print #1, AverageScore
Close #1
End If
GroupNum = GroupNum + 1
er:
End Sub
新建一个模块，写入如下代码，此处为评奖模块。
'评选项一等奖1名，二等奖2名，三等奖3名，故Counter变
量设为6
Const Counter = 6
Public StrName(Counter) As String
Public SngScore(Counter) As Single
'模块功能：读取得分文件，并对得分加以排序
Public Sub ReadDataInp()
On Error GoTo er
Open Path$ && "InpName.txt" For Input As #1
For i = 1 To Counter
Input #1, StrName(i)
Next
Close #1
Open Path$ && "InpScore.txt" For Input As #2
For i = 1 To Counter
Input #2, SngScore(i)
Next
Close #2
For i = 1 To Counter
For j = 1 To Counter
If SngScore(i) > SngScore(j) Then
a = SngScore(i): SngScore(i) = SngScore(j): SngScore(j) = a
b = StrName(i): StrName(i) = StrName(j): StrName(j) = b
End If
Next
Next
er:
End Sub
新建一张幻灯片，用于显示三等奖获奖名单，按钮名称为
CmdDisply，6个文本框的名称为TxtThirdPrize1„„TxtThirdPrize6。
代码如下：
Private Sub CmdDisply_Click()
ReadDataInp
因为分数从高到低排序，因此先输出最后三组
TxtThirdPrize1.Text = StrName(4)
TxtThirdPrize2.Text = StrName(5)
TxtThirdPrize3.Text = StrName(6)
制作时你也可以加入其他的幻灯片用做修饰，比如制作一个带
动态效果的开始画面以及结束语等等，然后在比赛时用投影机作为
输出，一定会起到烘托赛场气氛的作用。