自动评分程序

合集下载

excel表格中怎么制作比赛自动评分表

excel表格中怎么制作比赛自动评分表

excel表格中怎么制作比赛自动评分表
1、我们新建一个工作表,命名为评分表,按照下图的格式设置好表头,单元格A1为选手编号,B1中为评委1,用自动填充的方法完成评委2至评委10的数据,B1:K1对应为评委1到评委10。

在L1中输入平均得分,M1中输入名次。

2、在A2中输入“选手1”,并将鼠标置于被选中的A2单元格右下角的“十”字(即填充柄)上,按住鼠标左键向下拖动到A11,这样就快速地输入了参赛选手的序号。

选手越多,这种自动填充方法的优势越明显。

3、在L2单元格中输入公式"=(SUM(B2:K2)-MAX(B2:K2)-
MIN(B2:K2))/8”,这个公式的意思就是求10个评分的总分,再减去评委的中最高分和最低分,再除以8;算出的结果为0,因为现在前面都还没有分数。

再用自动填充功能复制其他选手的平均得分。

4、在m2中输入公式“=RANK(L2,$L$2:$L$11)”,这个公式的功能就是计算单元格数据在整个数据区域的排名,如上面的公式是计算L2单元格数据在L2:L11这个区域中的排名,大家注意,数据区域一定要用绝对引用,即用$符号引用。

我们复制下面的公式时才不会出错。

现还没有数据,大家可以看到,所有选手的排名都为1。

5、我们在评委分数栏录入相应的数据,平均得分和排名就可以自动计算出来。

我们先录入一个选手的数据,第一个选手的平均得分已经自动计算出来了。

6、接下来我们录入其他选手的数据。

大家看平均得分全部自动求出,名次也是自动录入会自动排出。

猜你喜欢:。

VB上机操作题自动判分程序评分标准的自动生成

VB上机操作题自动判分程序评分标准的自动生成
第2 O卷
第 4期






Vo. O No 4 12 .
21 0 0年 4月
J OUR NAL OF C HANG CHUN UN VE I Y I RS T
Ap .2 0 r 01
V B上机操作题 自动判分程序评分标准的 自动生成
董迎红 ,刘 刚,宋雅娟
( 长春大学 计 算机科学技术学 院,吉林 长春 10 2 ) 3 0 2

= Cb T xt C 2 2. e 。 b


C c( 1 签L l k' I 一 1 i l… 标 宇 。
’ ’ 。
l I . “:z 号属性设置I ? e-C1Tx。 lCLk) L.otie-C1Tx。b—lc(Il 1 岱强J tt b.etC —lc(1 1Fn¥z b  ̄ 1 b. tClCik)1标签L字 e
组合框 的 lt ,代码” i值 “ s 类型主要针对窗体或控件的事件代码 , 输出” “ 类型主要是针对程序的运行结果而
设定。
在属性及值信息部分主要是设定考察的有关控件的相关属性及属性值设定信息。针对不同的类型 , 这 部 分信息 不尽 相 同。
材, 就可 自动生成 评 分标准 。
1 V B上机操作题评分标 准格式
要 想 实现对 于 V B上 机操作 题 的 自动判 分 , 须对每 种题 目有 一定 的评分 标准 , 得判 分 程序 可按 评分 必 使 标准 自动判 分 , 1即为 某个 V 图 B上机 操作题 的评 分标准 格式 [ ] 2 。评 分标 准一般 设定 为文本 格式 。
主要语种 。
Vsa Bs 程 序设计 主要 注重对 学生 实践 动 手能 力 的 培养 , 了 能够 提供 一 个很 好 的学 习平 台 , 开 i l ai u c作题 目的 自动判 分 。判分标 准可 以手工 生成 , 可 但会 额外增 加题库 维 护 人员 的工作量 , 容易 出现错误 。 为此设 计 了评 分 标 准 自动生 成 程 序 , 并 用户 只需 给 出原 始 素 材 和结 果 素

c语言自动评分系统的设计与实现

c语言自动评分系统的设计与实现

c语言自动评分系统的设计与实现设计一个C语言的自动评分系统需要明确评分规则和评分目标。

以下是一个简单的C语言自动评分系统的设计思路和实现步骤:1. 确定评分规则:根据评分目标,确定评分规则。

例如,对于一个简单的C 语言程序,评分规则可以包括语法错误、逻辑错误、运行时间等。

2. 设计评分算法:根据评分规则,设计评分算法。

例如,可以使用静态代码分析工具或动态测试技术来检查程序中是否存在语法错误或逻辑错误。

可以使用计时器来测量程序的运行时间。

3. 编写评分代码:根据评分算法,编写评分代码。

可以使用C语言编写代码,也可以使用其他编程语言。

4. 测试评分代码:对评分代码进行测试,确保其能够正确地评估程序的性能和错误。

5. 集成评分系统:将评分代码集成到自动评分系统中,以便自动评估程序的性能和错误。

以下是一个简单的C语言自动评分系统的实现示例:```cinclude <>include <>include <>include <>define MAX_LINE_LENGTH 1000define MAX_ERRORS 10int main(int argc, char argv[]) {FILE fp;char line[MAX_LINE_LENGTH];int line_num = 1;int error_count = 0;clock_t start_time, end_time;double elapsed_time;if (argc != 2) {printf("Usage: %s <file>\n", argv[0]); exit(1);}fp = fopen(argv[1], "r");if (fp == NULL) {printf("Error: could not open file %s\n", argv[1]);exit(1);}while (fgets(line, MAX_LINE_LENGTH, fp) != NULL) { // Check for syntax errorsif (strstr(line, "error") != NULL) {error_count++;printf("Error on line %d: %s\n", line_num, line); }line_num++;}fclose(fp);if (error_count > MAX_ERRORS) {printf("Too many errors (%d > %d)\n", error_count, MAX_ERRORS);exit(1);} else if (error_count > 0) {printf("Program contains %d error%s.\n", error_count,error_count > 1 ? "s" : "");exit(0); // return 0 for success, 1 for failure} else {printf("Program is free of errors.\n");exit(0); // return 0 for success, 1 for failure}}```该程序接受一个参数,即要评估的C语言源代码文件名。

基于语法树和JavaCC的程序题自动评分系统

基于语法树和JavaCC的程序题自动评分系统

g a i g a p o c e aln t v l ae t e smia i f t es u c o e t oT c o u i n y u i g s n a tu tr d s mi tca l ss r d n p r a h s c l o a u t h i lrt o o r e c d o C I e ts l t sb sn y tx sr cu e a e e y h o n i nay i. P e e ta t o rq ik y c mp rn he s u c od f s d n r g a n o r c o u o s Th p r a h i b s d o ata bs a t r s n o lf u c l o a i g t o r e c e o t e tp o r ms a d c re ts l t n . e a p o c s a n p ri a t c o u i e l r
和语 法树 生成 中使用 JvC aa C工具 , vC J a C是一个生成 a Jv 代码 的词法语 法生成 器 , 以使 用它来辅 助构造 aa 可 词 法语法生成器 , 中 , 文 使用它 的 Jt e J e 工具 来帮 r 叫 助设计语 义结构 , t e J r 适用于建立语法分析树和预处 Je 理, 通过 编写 J 文件 , 以更好地改善 JvC J t 可 aa C的逻辑 结构 。通过使用 Jt e J e 将测试 程序转换 为抽象语 法树 r 后 , 么对程序代码 的评分也 就转 换成 了对 语法 树切 那
收稿 日期 : 1 — 5 3 ; 回 日 : 1 — 9 0 2 10 —0修 0 期 2 10 -4 0 作者简介 : 屠方博 (9 6 ) 男 , 江乐清人 , 士研究生 , 究方 向 18 一 , 浙 硕 研

C语言上机考试系统中自动评分方法的探讨

C语言上机考试系统中自动评分方法的探讨

C语言上机考试系统中自动评分方法的探讨摘要:利用计算机考核学生的C语言编程实践能力,实现编程题的自动评分,已成为计算机辅助教学的一个热点。

依据程序设计题特点,总结了目前能应用于实践的几种C语言编程题的自动评分方法,并对这几种自动评分方法进行了探讨与分析。

关键词:C语言;自动评分;辅助教学目前,计算机C语言已作为各类高校计算机专业甚至其他相关专业的必修课程。

由于学习该课程的学生人数多,为了提高教学效率,避免手工阅卷时出现的费时且易出错等问题,必须采用能确保公正、客观的计算机自动评分系统。

目前,国内在C语言的上机考试系统中选择题和填空题的自动阅卷技术已经很成熟,而对用于评价实践能力的C语言编程题,计算机自动评分技术还一直处于发展与完善中。

自20世纪60年代开始,国内外许多学者致力于研究程序设计题计算机自动评分方法。

发展至今,目前较完善的C语言编程题自动评分技术已可总结为好几种。

1基于程序理解的编程题自动评分方法程序理解是通过分析程序,对程序进行抽象、推理来获取知识。

该方法将人工阅卷的某种思维过程和程序理解的几个基本策略进行结合,通过比较模板程序与学生程序,并给学生程序p文献[3]提出的基于语义相似度比较的编程题自动评分模型对程序的一些标准化规则如布尔运算和算术运算进行了改进和完善,在原有模型上采用函数调用和数组分析等一些改进方法,根据语义相似度匹配学生程序与模板程序。

该模型主要依据如下几点进行自动评分[4]:(1)首先定义好相应的模板程序,以此为标准来判断学生程序是否正确;(2)只要标准答案的其中一个语义与学生程序的语义对等,则可判断该学生程序的语义正确;(3)程序语义也可转换并通过系统依赖图SDG这种中间表示形式来表示,如果两个系统依赖图等价,则两个程序具有等价的语义;(4)语义等价转换也就是通过系统依赖图标准化语义等价程序,那么,不管程序以何种形式进行计算,只要其结果不变,则称该转换是等价的。

基于语义相似度比较的编程题自动评分模型在分析词法和语法上比较严格,虽然也已能应用于实际需要,但仍有需要完善的地方,比如,对指针和结构体的处理就不是很理想。

程序设计题自动评分系统的研究与设计

程序设计题自动评分系统的研究与设计

题的 自动评分技术相对成熟 , 但对于编程题 的考 核还 没有 好 的解 决 : , 案 以福 建 省计 算 机 等 级 考
试二 级 C语 言 的上 机 考试 系统 为 例 , 系统 中有 该 改错 、 程序 填 空 、 序 设 计等 类 的 题 目, 是 对 这 程 但 类试 题 主要 采用 的 是 结 果评 分 方 法 , 只依 据 程 即 序 运行结 果 给 出相 应 分 数 , 没 有 考查 考 生 的程 而 序 代码 ; A M 国际大 学 生 程 序 设 计 大赛 的 o. 以 C n 1 ejde为例 , i g n u 它在严 格 的 内存 和 时 间 限制 下 运 行 考生 提交 的程序 , 理一 组测 试用 例 , 用 简单 处 并 的字符 串 比较输 出与 预 期 指 明 的答 案 是 否 匹 配 , 采 用 的也 是结 果 评 分 方 法 , 在 此 基础 上 要 求 程 并 序 的高效 性 ; 结果 评 分 或 许 可 以 更好 地 检 查 学 生 是 否掌 握 了全 面 的知 识 , 这 却 无 法 满足 E常 教 但 t 学 和考查 的需 要 , 为这 与 传 统 人 工 阅卷 的评 分 因
平1
() 1 结果 文件 的可 创 建性 。有 的学 生 可能 会 不 实 现程序 而是 直 接 创 建一 个 结 果 文件 提 交 , 对
2 解 决 方案 .
本 文结 合人 工 阅 卷 的思 想 , 用 了动 静 结 合 采
于这种情况可采用 以下 2 个解决方案 : 第一是运
行 的程 序一 般要 有 输 入 , 求 在各 种 输 入情 况 下 要
为 了使 用树核 的相 似度算 法来计 算程 序 的结 构相 似度 , 本文 将对 源 程 序 的结 构 进 行深 入 的分

VB程序自动评分系统的分析与设计

VB程序自动评分系统的分析与设计

VB程序自动评分系统的分析与设计刘瑞军【摘要】非计算机专业公共必修课“VB程序设计”教学过程中的电子作业批改是一项繁重任务,目前已有的自动化评分系统系统基本是以API为核心来控制VB应用程序进行评分,存在评分误差大、开发难度大等问题。

对此,结合Windows API函数特性和VB程序自身特点,提出并设计了一种效率和精确度更高的VB程序自动评分解决方案,提高了评分精确度,同时也降低了开发难度。

%The electronic homework correcting of VB programming, a public compulsory course for non-computer profes⁃sionals, becomes an onerous task in teaching. Basically taking API as the core to control VB application in scoring, the ex⁃isting automatic scoring systems have problems such as having great errors and being difficult to develop. Combined with characteristics of Windows API function and VB program, a new design of automatic scoring system of VB program with higher efficiency and accuracy was put forward which reduces the difficulty of development.【期刊名称】《宜宾学院学报》【年(卷),期】2016(016)006【总页数】4页(P46-49)【关键词】API;VB;自动评分【作者】刘瑞军【作者单位】武夷学院实验室管理中心,福建武夷山354300【正文语种】中文【中图分类】TP311.1LIU RJ.Analysis and Design of Automatic Scoring System of VB Program [J].Journal of Yibin University,2016,16(6):46-49.随着计算机技术的发展和教学的不断改革,计算机技术逐渐成为了教学过程中的一种必备辅助工具.VB作为一门高校非计算机专业的公共基础课,依然扮演的着重要的角色,在公共教学过程中,一名教师往往要面向多个班级进行教学,人数相对较多,批改课程作业成了教师教学过程中一项艰巨任务,这极大地影响教师对于课程教学其他方面的投入,间接地影响了教学效果.因此,开发一套VB作业自动批改系统是具有现实的意义.目前,对于客观题的自动评分基本能完成,但对于程序设计题目(主观因素较多)的自动评分还处于积极探索阶段,文献[1]给出了一种基于C++开发的解决方案,将评分方案分为静态和动态方案,静态主要是关键字比对,而动态借助API函数对用户程序的控制,模拟程序功能,分析运行结果是否与要求一致.在此解决方案中,需要读取用户的静态文本,完全控制应用程序的方法,程序运行效率相对较低.鉴于此,本文提出了基于VB环境开发VB程序自动评分系统,采用标准程序注入的方法,通过注入程序对VB程序进行评分,在降低开发难度的同时提高了程序的运行效率.实现对VB应用程序的自动批阅,有两个方面的工作,一是要检测程序中的对象(即控件)的属性是否正确,此部分称之为静态检测[2];二是检测程序的行为(即功能)是否符合要求,此部分称之为动态检测[2].在批阅过程中,首先要制定标准的评分代码,然后将评分代码嵌入到学生的应用程序中,接着利用评分程序启动学生的VB程序,进行编译、运行,验证程序的正确性,最后关闭程序窗体,输出分数和评语.根据VB程序的特点,VB对象的基本属性设置都保存在窗体文件中,如下面的程序形式以纯文本格式保存在frm文件中:以文本框控件为例,文献[1]和文献[2]中对于静态检测部分的思想是利用VB 控件保存的特点,批改的方法就是将学生文件读入,然后和标准文件进行比较从而判断控件的正确性,此方法从理论角度来讲是可行的,但实际程序设计中,需要编写大量的重复代码,而且标准代码必须十分精确,否则就会出错,如丢失一个空格有可能造成判断错误,而且对于多余控件很难进行检测.对于动态检测过程,就是检测程序功能是否满足,一方面要检测的语法是否合法,另一方面检测程序的功能是否满足,对于语法的检测,可以借助VB编译系统即可完成.对于功能检测,文献[2]的基本思想是利用Windows程序运行的机制,通过Windows API函数控制窗体[3],向窗体控件发送消息,如鼠标单击、字符等,模拟程序运行过程,判断程序功能是否与既定功能一致,从而判断程序的正确与否.例如某一简单程序,效果和要求如图1所示.首先利用Windows API函数启动VB程序,并获取窗口句柄,然后向窗口发送键盘消息〈F5〉启动窗体,然后搜索窗体上的控件句柄,然后根据其句柄向其发送消息,如分别向两个文本框发送消息字符“12”和“22”,再向“=”按钮发送鼠标单击消息,最后检测第3个文本框中的值是否等于前两个文本发送消息之和,此解决方案的问题主要有:如果学生的标题设置错误,将无法获取控件的句柄;VB中的某些控件没有窗口句柄,如标签控件,利用此方法将无法进行评阅.文献[1]对此方案进行了改进,通过在学生程序的Form_Load事件过程中内嵌代码,将各控件的句柄输出到临时文件中,评分程序再将此句柄读入,从而进一步控制用户控件.事件驱动模式是VB程序设计的主流[4-5],根据此特性,提出将评分程序制作为标准VB代码,在评分过程中,将代码内嵌到学生程序中.对于静态检测部分,代码放在窗体的Active事件过程中,此代码主要是遍历学生窗体中的所有控件,然后逐一比较控件的属性,从而实现程序的静态检测;动态检测部分,代码放在Unload事件[6]过程中,在此过程中,根据程序功能调用对应的事件过程来检测程序的正确与否,这样的好处在于:一是批改程序只需要控制程序主窗体,不需要直接控制窗体控件,大大降低了程序的复杂性;二是把检测代码和学生代码集成于一个整体,大大提高了评阅程序的效率和正确性.2.1 程序流程批改程序流程的整体过程如图2所示.具体过程为:(1)制定评分代码,将所有评分的代码保存在一个文本文件中.(2)将评分代码附加到学生的窗体文件(.frm)中,静态评分代码放置在窗体的Form_Active事件过程,动态评分代码放置在Form_UnLoad事件过程中. (3)利用Shell函数启动学生的VB作业程序,利用API函数FindWindow()获取当前窗体的句柄.(4)利用PostMessage()函数向窗体发送〈F5〉键消息,从而启动程序窗体. (5-1)如果编译通过,则启动窗体程序,这时出发了窗体的Active事件,从而执行嵌入的评分代码中的Form_Active事件过程,即可评阅静态部分,如果编译没有通过,则说明程序的语法检测不通过,为了合理、公平性,在此将启动静态评分二程序,此程序的原理与文献[1]和文献[2]中方法一致,通过文本比对的方法来评阅学生的静态部分.(5-2)如果编译通过,利用API函数GetForegroundWindow()获取启动窗体的句柄.(6)关闭窗体,这时会触发窗体的UnLoad事件,从而执行嵌入的评分代码中Form_UnLoad事件过程,该事件过程的内容即可评阅动态部分.2.2 静态检测过程静态检测的首先是制作静态检测代码,静态检测代码由评分系统自动生成,系统读入作业标准文件后将会遍历作业文件中所有控件及其相关属性,最终生成标准评分代码以文本文件形式保存.静态检测过程中,系统会将评分代码注入到学生作业文件的Form_Active事件过程中,然后遍历控件数组Controls,通过名称获取控件对象,然后逐一比对其属性是否正确,其过程如下面程序所示(以判断名称为“cmd_ok”的按钮控件为例).2.3 动态检测过程动态监测需要判断程序的功能性问题,目前动态监测代码手动制作评分文件,将评分文件以文本文件形式保存.在评阅过程中,系统将动态检测的代码注入到窗体的Form_UnLoad事件过程中,当关闭窗体时,将执行评分代码,检测功能的正确与否.以图2为例,程序首先为各输入框设置值,然后调用功能程序,最后判断输出结果与期望结果是否一致.评阅过程如下程序所示.为了验证程序的功能性,以实际学生程序为例子,实验内容要求如下:随机抽取了20名学生的程序,进行评分,评分程序运行效果如图3所示.为了检测系统批改成绩的准确性,对20个学生的程序进行手动评分,两组评分结果的对比如表1所示.从实验结果数据来看,程序评分两个部分中,静态评分和手动评分没有误差,完全适应,而动态评分则存在评分结果不一致的情况,但总体来说能满足日常的教学要求.造成这样的结果有两方面的原因,一是学生程序不能通过编译,评分程序无法正常运行作业程序;二是学生没有按照作业要求编写程序,评分程序无法调用学生过程函数.本文通过对VB程序设计语言的特点,利用Windows API,基于Windows消息机制、模拟Windows系统发送消息,通过为源程序加载、注入评分代码,驱动学生程序自动运行,利用静态检测和动态检测相结合的方法实现了VB程序自动评分的功能,并通过测试数据反映了程序的稳定性和可用性,但在动态检测部分还存在一定的误差,这是后续需要改进的地方.【相关文献】[1]付亚臣.基于Windows消息机制的VB编程题评分系统的研究与应用[D].大连:大连海事大学,2012.[2]段汉周.VB程序设计考核自动评阅系统中若干问题的研究[J].计算机工程,2001(4):167-168.[3]金龙海.略论如何用API函数优化VB窗口程序[J].吉林师范大学学报(自然科学版),2012(3):55-56.[4]章可,刘永生.利用VB实现Windows操作题的自动评分[J].福建电脑,2013(4):161-163.[5]周东明,王进忠.基于VB和Windows API的游戏监控系统[J].辽宁大学学报(自然科学版),2003(3):252-254.[6]朱荆州.Windows API在VB中的应用[J].计算机与数字工程,2003(6):21-23.。

操作题自动评分系统的设计与实现

操作题自动评分系统的设计与实现
此系统主要分成两大部分,即设置标准答案系统和自动 评分系统。
由于在Word、Excel对象模型中总共有几百种对象,如果 将所有对象考虑在内系统将非常庞大,所以本系统只考虑一 些常见的对象,根据操作题考试中经常出现的操作将Word操 作分成9类,Excel操作分成6类。
收稿日期:2009·05-15;修订日期:2009.07.21. 作者简介:宗德才(1979--),男。江苏常熟人,硕士,讲师,研究方向为计算机网络、虚拟仪器及嵌入式系统。E-mail:zongdecai79@cslg.edu.姐
万方数据
宗德才:操作题自动评分系统的设计与实现
根据Word2000操作题的常见题型,将Word常用操作分 成9大类:页面设置、加标题(加段落)、段落格式、页眉页脚、首 字下沉、边框底纹、替换、艺术字、图片等。
根据Excel2000操作题的常见题型,将Excel常用操作分 成6大类:将其它格式文档转换成Excel工作表、工作表的操 作、单元格的设置、公式计算、生成图表、数据透视表操作等。
启动设置标准答案根据每小题要求确定操作类型并根据操作类型选择相应的菜单示操作对象的各项属性输入题号需要设置的备项属性值及对应的分值用鼠标点击存入标准答案数据表按钮图1设置标准答案流程设置完标准答案后就可以通过自动评分系统取出数据库标准答案表中每一小题操作对象各项属性的值与学生操作文档中相应对象的属性值迸行比较如果相同就可以得相应的分值将每一小题各项属性的得分相加作为这一小题的得分自动评分结束后系统会显示每d题的得分同时系统会自动打开学生操作文档教师此时可以快速浏览一下打开的学生文档验证一下自动评分是否合理因为有些操作对象的属性不能够通过程序直接得到例如word文档中插入的图片的名称等只能由教师亲自验证如果验证后发现评分不合理可以修改某小题的分数教师确认无误后就可以将最后成绩存入数据库学生成绩表中

Word操作题课件中自动评分功能的实现

Word操作题课件中自动评分功能的实现

Word操作题课件中自动评分功能的实现一、问题的提出:由于信息技术学科要参加中考,我们学校的机房里安装了一款自动化考试软件,学生答题完成后,评分系统可以自动反馈答题结果,帮助学生发现错误,受到学生的广泛欢迎。

但是,每周只有一节课的练习时间显然不够,所以很多学生希望能将考试题目复制到家里的电脑中,周末可以抽出时间来做题目。

显然,将考试系统安装到学生家庭电脑中成本太高,也很麻烦。

能不能将操作题做成课件发给学生呢?通过对相关技术要素进行分析,我们发现,由信息技术教师来制作这样的课件是可行的。

本文以Word 2000基本操作的课件为例,谈谈自动评分的基本思路和实现方法,Excel、PowerPoint等软件操作题自动评分的实现也可以参考本文的方法实现。

二、课件的基本要求:由于Word操作题课件仅用于学生对自己所学操作的自查自测,所以课件应尽量满足以下要求:(1)不需要其他服务的支持;(2)可以重复使用,课件要保证原始文档不被破坏;(3)操作方便,不需安装,双击即可运行。

为满足以上要求,课件必须能将原始文档、操作要求、评分功能集成于一个可执行文件中。

三、课件的设计思路和实现方法:采用VB作为课件的开发平台。

1.原始文档资源的封装和提取方法:在课件未运行时,原始的Word文档对学生应该是不可见的,所以,应该将Word文档以资源文件集成于可执行文件中,在课件运行时,提取出文档后存储于工作文件夹中,课件关闭时,再删除文档。

(1)打开VB资源编辑器窗口,添加“自定义资源”,选择原始文档。

如上图1,“CUSTOM”为自定义资源文件夹,“101”为该资源的编号。

保存自定义资源后,在“工程资源管理器”窗口中可以看到“工程1.RES”,如图2。

(2)在课件程序运行时,提取文件到工作目录中,见下面代码及注释:path = App.path '将应用程序目录作为课件的工作目录Const ExeFile = 33280 '33280是欲生成的文件的字节数Dim ExeMy() As Byte 'Btye类型的数组,存放EXE文件Dim Counter As Long '文件字节数'将文件读入数组ExeMy = LoadResData(101, "CUSTOM") '读取编号为101的自定义资源文件Open path &amp; "\wordtest.doc" For Binary As #1'从0 Byte开始因此以文件大小- 1Byte 为终值For Counter = 0 To ExeFile - 1Put #1, , ExeMy(Counter) '释放文件Next CounterClose #12.识别Word文档对象(1)基本思路:利用VBA提供的访问Word文档的接口,使用VBA编程可以识别、控制Word 文档的格式。

面向实践能力考核的程序题自动评分方法研究

面向实践能力考核的程序题自动评分方法研究
Ab t a t Th r p sd p o rmmi g o t mai r d n o e assme t f r cia a it , f h a d d t p o rm a er n i sr c : e p o o e r g a n f u o t g a i g f rt ses n p a t l b l y I t ec n i a eS r g a c n b u , n a c h o c i
e nha et e sud nt nc h t e s Drci ea lt a tc bi y i Ke y wor :p og a m i g; u om ai a i ; y sae e ac ng ses e to r cia blte ds r rm n at tcgrd ng ke ttm ntm thi ;assm n fp a tc la iiis
d s t oen’ ha e t pp op a epr g a e g i a a lte v he a r r t o r m d bu g ng c p bii s i i

i t e u t e u g gt o ot no a s rs te l t e fs d d c dd b g n e rp ro f h r o e,h nf l w ek y r e i h p i s ec oo h s tme t thn c r. t re tnietsn n s,hsga igmeh d‘ r fce t so ersl r be t e a c rt n t e n c igsoe Af xe s et ga dte ti r dn to i mo ee in ,c r eut mo eo jci , c uaea d a ma e v i a s i s v

汇编语言自动评分系统设计与实现

汇编语言自动评分系统设计与实现

段 定 义 出 错 , 误 的 原 因是 段 定 义 伪 指 令 没 有 成 对 出现 , 错 也 就 是说 段 定 义 时要 么段 开始 定 义 错 要 么 段 定 义 结 束 错 。
这 种 情 况 就 要求 算 法 1在 匹 配 到 ② 、 、 信 息 之 后 计 次 ③ ④ 数 , 累计 出现 只计 一 次 。这 种 情 况 出现 的 话 相应 子 要 点 但 分 数 应 该 只得 该 子 要 点 分 值 的 一 半 。如 果 出现 ⑤ 说 明 在
1 2 算 法 二 .
1 评 分 算 法
1 1 算 法 一 .
正 则 表 达 式 是 一 位 叫 S e h nKle e的美 国数 学 家 , tp e e n 在 Mc l c Cul h和 P ts早 期 研 究 出 的 一 种数 学方 式 来 描 述 o it 神 经 网络 的基 础 上 , 1 5 于 9 6年 发 表 了一 篇 标 题 为 “ 神经 网 事 件 的 表 示 法 ” 论 文 , 入 了 正 则 表 达 式 的概 念 。随 后 的 引 发 现 可 以 将 这 一 工 作 应 用 于 使 用 Ke o sn 的计 算 n Th mp o 搜 索算 法 的 一 些 早 期 研 究 , n Th mp o Ke o s n是 Unx的 主 i 要 发 明 人 。正 则 表 达 式 的第 一 个 实 用 应 用 程 序 就 是 Unx i
文献标识码 : A
文 章 编 号 : 6 27 0 ( 0 1 0 20 0 —2 1 7 — 8 0 2 1 ) 1 — 1 10
aae 明数 据 段 、 码 段 、 栈 段 、 et 说 代 堆 附加 数 据 段 4个 段 中
0 引 言
汇 编 语 言 是 直 接 控 制 硬 件 的计 算 机程 序设 计 语 言 , 在

利用VB实现Windows操作题的自动评分

利用VB实现Windows操作题的自动评分

UJl AN Co M PUTE辩 I f r e t u mc o d e = E RROR SUCCESS t h e n
_
值 为“ n 1 f ” , 则在 考 生 目标 文件 夹 , 有 目标 文 件存 在 , 同
Hk e y = p h k r e s u h I p v lu a e n a me =”s s h o r t d a t e ” I p r e s e r v e d = AP I NU L L
Re t u mc o d e = r e g q u e r y v a l u e e x( h k e y, i p v a l u e n a me , i p r e s e r v e d, i p t y p e , b y v l a i p d a t a , i p c b d a t a ) L p e b d a t a = l e n( 1 p d a t a ) R e t u mc o d e = r e g q u e r y v lu a e e x( h k e y , i p v lu a e n a me , i p r e s e r v e d , i p t y p e ,i p d a t a , i p c b d a t a )
L p t y p e = AP I NUL L
时源 文 件 夹 下 不存 在 源 文 件 ( 即 目标 文 件 为 空) 即可 得 分 。其它 复制 、 属性、 删 除等 操作 也应 按类似 规 则评
分。
L p d a t a = AP I NUL L L p c b d a t a = AP I NUL L
T h e n
s c o r e =s c o r e +1

java 自动打分评级规则

java 自动打分评级规则

java 自动打分评级规则在Java中,自动打分评级规则可以通过多种方式实现,具体取决于你的需求和数据源。

以下是一个简单的示例,说明如何根据一组分数自动评级:```javapublic class ScoreRating {// 评级规则private static final int[] RATING_THRESHOLDS = {90, 80, 70, 60}; private static final String[] RATING_LABELS = {"A", "B", "C", "D", "F"};/根据分数返回评级param score 分数return 评级/public static String getRating(int score) {for (int i = 0; i < RATING_; i++) {if (score >= RATING_THRESHOLDS[i]) {return RATING_LABELS[i];}}return RATING_LABELS[RATING_ - 1]; // 如果分数低于60,返回"F"}public static void main(String[] args) {(getRating(95)); // 输出 "A"(getRating(75)); // 输出 "B"(getRating(55)); // 输出 "C"(getRating(45)); // 输出 "D"(getRating(30)); // 输出 "F"}}```这个例子定义了一个简单的评级系统,根据分数返回相应的评级。

你可以根据实际需求调整阈值和评级标签。

巧用Excel实现体育成绩自动评分0

巧用Excel实现体育成绩自动评分0

巧用Excel实现体育成绩自动评分学校举行体育学业水平测试,各项目测试结束,在学生体育测试数据与成绩换算这一环节,让不少老师感到头疼。

因为需要将原始数据与国标数据进行比对,折算成绩,并且标准按年级和性别也有所不同。

实践操作过程中,尽管老师花费了大量时间和精力,但还是有很多错漏,给测试工作带来了极大不便。

其实,老师可以巧妙应用Excel即可快速完成这项统计核算工作。

操作过程中,我们只需要输入原始数据,Excel会自动核对,给出对应成绩,错漏几乎为零。

一、制作学生成绩空表首先,用Excel制作一个学生成绩空表,由于学生学籍现在实行电子档,所以很容易做到,只需要复制粘贴学生姓名、性别等数据就可以了。

为了识别方便,我们将工作表重命名为“学生成绩”表(如图1)。

二、制作体育项目评分表我们切换到Sheet2工作表,将工作表重名为“跳远评分表”,并将国标或者学校制定的评分标准数据输入,输入数据时需要注意一个细节,数据应该按照从低到高顺次输入,否则会造成评分错乱。

由于有两个测试项目,所以我们还需要用同样方法再制作一个“跳绳评分表”(如图2)。

制作这两个工作表的目的,是为了让老师在输入学生测试数据时,Excel可以自动与之比对,完成得分的自动判断。

三、自动评分的公式输入完成了以上基础工作,接下来最重要的是利用Excel的LOOKUP比对函数和IF条件判断语句,实现输入成绩后Excel自动评分,得出成绩。

我们切换到“学生成绩”工作表,双击E3单元格,也就是得分单元格,输入以下代码:=IF(C3="男",LOOKUP(D3,跳远评分表!$A$2:$A$22,跳远评分表!$C$2:$C$22),LOOKUP(D3,跳远评分表!$B$2:$B$22,跳远评分表!$C$2:$C$22)),这句代码通过判断C3单元格学生性别,将D3单元格内原始测试数据与评分标准进行比对,并将比对后取得的成绩直接显示在E3单元格内。

WEB基础上的程序设计语言实验考试自动评分系统

WEB基础上的程序设计语言实验考试自动评分系统

再通过 比较预期输入结果与结果输 出 o u t p u t . d a t 文件巾的 模块、 试卷管理模块、 户管理模块、 系统基础数据管理模块 、 后, 自动评分模块 。系统角色可 以分为三类 , 分别为 : 管理 员、 教 内容来测试是甭可 以得分或者可 以得多少分。 师、 学生 。 2 . 2 . 2潜在的 问题 1 . 2 自动评 分 整 体 思 路 当了解常见评 分方式的过程后 ,我们可 以很快找到它的 系统实现的整体思路为当学生进行作答时, 首先, 进行存 评分漏洞 。漏洞在哪里呢 ?就在 比较结果和从输入文件 ( i n . 盘操作,具体包括向数据库写入数据 与向本地硬盘创建高级 p u t . d a t ) 读入测试数据这两个操作中。这是 为输入文件 ( i n . 程序设计语言源代码文件 。 接着, 采川多线程技术 、 I DE输入/ p u t . d a t )  ̄ 1 ] 输 …文 ̄ t l : ( o u t p u t . d a t ) 可 以人为更 改。 输出模拟器与 I / O流技术编译源程序 ,这里我们记 为编译阶 I D E编译环境想必大家 定都很熟悉, I D E运行环境 以 段; 再次, 调} I 1 测试用例进行测试 , 这里我们记为测试阶段。 最 捕获输入 、 输…、 错误流 , 以达到 与用户进行交, £ | 及反馈 。们 后, 进入评分阶段 。 它们 是怎样实现的呢,我们有没有 快 的实现方法呢 ?很高 2自动评分的策略 兴的是 J a v a已经给我们提供 了一个 P r o c e s s 类。 P r o c e s s 类提 供了执行 用程序 的方法及 重定向输入输 出错误流 的方法 , 2 . 1系统总体判题/ 词 分思想 2 . 1 . 1 实时评分 我们利用它可 以很 方便地实现对 I DE输入输 f ¨的模拟。 通过 当学生提交一 道题的代码时,服 务器马上创建 ‘ 个线程 对输入输出流的重定向我们可 以不使用输出文件及输入文件, 单独进行判分处理,整个判分处理时间与试题要求 中最长运 全部采用输入输…流实现 , 进而避免 了 I : 述济布 『 u J 题。 行时间相关。 2 . 3判题 / 评 分 算 法 2 . 1 . 2 依据 5 种方式进行评分 首先 , 调用编译器对源 代码进行编译。当然 , 对于不 同的 ( 1 ) 按编译是否成功: 如果编译成功则可以得到总成绩的 源文件调用不 同的编译器 , 如J a v a 的默认编译器为 j a v a c , C / 2 O %的成绩 , 如果编译失败则只能得 0分 。( 2 ) 按测试结果进 C + + 的编译器有 V i s u a l S t u d i o C + + 6 . 0的c 1 . e x e 命令行编译器、 行评分 : 在编译通过的情况下 , 评分线程将进行实时评分, 评分 T u r b o r C 3 . 0编译器 。本系统采 用的是 V i s u a l S t u d i o C + +6 . 0 1 . e x e 编译器。 存编译的过程 中, 我们可 以通过重定向后 的 后会产生一个临时输出结束, 按测试结果评分 即测试结果与临 的 c 时输出结果进行 比较 , 如果相等则说明测试通过, 得1 0 0 分, 否 输出流及错误输 出流捕 获错误信息。其次 ,判断编译是否通 则 以编译成功计成绩 。 ( 3 ) 为按关键字进行评分 : 首先 , 提取 出 过。 当发生编译错误 时, 将编译状态变= 晕 = 设置为 F a l s e , 否则设 源代码及判题关键字 , 然后,以关键字进行统计 , 判断源代码 置为 T r u e , 并进 入评分阶段。接着 , 判 断是否为编译型语吉。 ¨ 果为编译型语言再进 行连接操作,否则进入测试阶段 。然 中, 关键字的 出现频率, 最后 以关键字 } } 5 现的频率进行评分 。 女 判断连接是否通过 。如果连接通过则进入测试 阶段 , 否则 ( 4 ) 按 占用 内存 的多少进行判分: 首先 , 记录下程序运行时大概 后 , 进入评分阶段 。再次 , 进入 了测试阶段。进入测试阶段前, 还 占用多少内存, 接下来再取出对应试题要求程序 占用 内存人小 值, 接着 , 通过 比较之间的差值来计算成绩, 如果小于试题要求 需要准备测试数据 , 准备好测试数据后 , 利用 I D E模拟器向重 程序占用内存大小值, 那么不扣分 , 否则扣试题总分的 2 %。 ( 5 ) 定 向的输入流注入数据。向重定 向的输入流注入数据后,调 按运行时间的长短进行判分 : 首先, 在进行用用例对程序进行 用生成的 日标程序, 进行测试, 在测试 的过程中要监视测试程 【 { = j 内存 的人小 ,如果耗用 时 过长或者 测试时, 记录下测试的开始时间 T 1 ( 单位 为 ms ) , 然后 , 运行测 序 的运行时间及所 占. 试程序并进行测试, 然后 , 在测试程序运行结束后, 再记录下运 占用 内存过多都计为未通过测试处理 。完成测试后 ,进入评 进入评分阶段。具体 的评分细节在 3 . 1 . 1 节中 行的结束 时间 T 2 ( 单位为 m s ) , 最后将运行 的结束时间 T 2 减 分阶段 。然后 , 去运行的开始时间 T 1 就得 出程序运行的总时间△T 。布得到 经描述, 这里不赘述。最后 , 返 回得分 。 程序运行的总时间后 ,我们从数据库取出该题最大运行 时间 T ma x , 接着 比较△T与 T ma x, 如果前者大 丁后者 , 那么我们以 参考文献 1 王晓东. 计算机算法设计与分析( 第3 版) [ M] . 北京: 电子T . ) l k 出版 社, 2 0 0 7 . 通过编译进行评分同时再进行一次关键_ 宁进行评分, 最后得分 … 【 2 】J o e Wi g g l e s w o r t h , P a u l a Me mi l l a n . J a v a 程序 设计高级 教程【 M】 一 京: 清华 为编译通过得分及关键字评分得分的总和 。 大学 f Ⅱ 版社, 2 0 0 5 . 2 . 2判题/ 词 分采用的技 术

C语言程序设计题自动评分算法的研究

C语言程序设计题自动评分算法的研究
A b tac :M o tofC a g g ut m a c U c rng sse sR e bae n e ut o pae orm akig o p o r mm i g pr lm ,c n t sr t s ln ua e a o t  ̄ y s o i y tm r s d o r slsc m r d f r n n r g a i n ob e s a
Vo .,No7 1 7 .,Ma c 01 ,p 1 8 —1 8 rh 2 p .5 5 5 8 1
T h 8 — 5l 5 9 9 3 5 9 9 4 e + 6 5 60 6 6 06 一
C语言程序设计题 自ቤተ መጻሕፍቲ ባይዱ评分算法的研究
李琦
( 四川 理 工学 院 计 算机 学 院 , I 四J f自贡 6 30 ) 4 0 0
l前 言
11国 内 外主 观 性 试题 测评 技 术 研 究 现 状和 发 展 态 势 .
C语 言 是 国 际上 广 泛 流 行 的计 算 机 高 级 程 序设 计 语 言 , 各 类 高 等 院 校 的计 算 机 及 相关 专业 中 , 在 C语 言均 被 列 为 一 门必 修 的基
础 课 程 。当前 对 该 课 程 的 考评 , 常采 用 人 工 命 题笔 试 、 通 人工 改卷 评 分 。这 种 方 式 需付 出大 量 劳 动 , 率 低 下 , 客 观性 受 到 任课 教 效 且 师 水平 、 经验 、 性甚 至 道 德 水 准 的影 响 。这 种 考 试 方 式 , 然 已 经不 适 应 计 算 机 教 育发 展 的 需 要 。利 用 计算 机 实 现 无 纸化 考 试 , 个 显 已
IS 1 0 - 0 4 S N o 9 3 4

利用VBS脚本实现考试评分的自动化

利用VBS脚本实现考试评分的自动化
进 行评 分 。
3 - 2 问题 解 决思 路
以直 接执 行 的程 序… 。正 是 因为 V B S c r i p t 可 以直 接
在 Wi n d o w s 各 版本 的操作 系统 运 行 ,所 以使用 它来 自动执 行 Wi n d o w s 操 作 系统 中重 复性 的任 务 .即可
4 程 序 功 能 模 块
根据 上 面的需 求分 析 ,对程 序要 实现 的功 能进 行 了模块划分 。根据功能划分 了 3 个模块 ,包括学生 机成 绩提 交模块 、考生 文件 夹预 处理模 块 和 自动评 分 汇总模 块 。学 生 机成绩 提 交模块 包括 结束 考试 软
用 》课 程 的期末 考 试 软件 。程 序如下 。
( 2 )从考生文件夹所 在 目录中检测所有有效 的考 生 文件夹 的名 称 ,将其 保存至 t x t 文件 ,然后 逐一调 用考生文件夹名称进行评分与 Wo r d 程序文件的保存 。
的人工操 作 .考 虑使 用计算 机程 序模 拟评 分 的方式 进 行 考 试成 绩 的记 录 。经过 多重 编 程语 言 的对 比 , 发现 V B S可 以实现键 盘和 鼠标 的模 拟操 作 .并 且程
序 简单 ,能够直 接运 行 ,最终 选择 了 V B S作 为考试 成绩 自动抄 录程 序的开 发语 言。
5 程序 实 现 关 键 编 码
在上 节 的几个 模块 中 , 自动 评 分核 心程 序是 最 重要 的处理模块 .在此模块 中 .列举 几个关键程序实 现。 ( 1 )模 拟 电脑操作进行 评分 ,操作 步骤是 先调 用评 分程序 ,模 拟键盘输 入用户名 、密码进 行登 录 . 输入 考号进 行评分 ,然后模 拟 鼠标点击 “ Wo r d 成 绩 单 ”按钮 ,获得 Wo r d成绩单 并保存 。模拟键盘操 作 实现 评分程序 的 自动 运行 ( s r e s u h p a t h为获取 到的评

高三数学批改试卷的程序

高三数学批改试卷的程序

摘要:随着教育信息化的推进,自动批改试卷系统在提高教学效率、减轻教师负担方面发挥着重要作用。

本文设计并实现了一个适用于高三数学试卷的自动批改程序,通过识别题目类型、解析答案、比对得分规则等方式,实现对学生试卷的自动评分。

一、引言高三数学试卷批改是一项耗时耗力的工作,为了提高教学效率,减轻教师负担,本文设计并实现了一个高三数学试卷自动批改程序。

该程序能够识别题目类型、解析答案、比对得分规则,实现对学生试卷的自动评分。

二、程序设计1. 系统架构高三数学试卷自动批改程序主要包括以下几个模块:(1)试卷解析模块:用于解析试卷内容,提取题目类型、答案选项等关键信息。

(2)答案解析模块:用于解析学生答案,识别正确答案。

(3)评分规则模块:根据题目类型和答案,确定得分规则。

(4)评分模块:根据得分规则,计算学生得分。

(5)结果展示模块:将评分结果以图表形式展示给学生。

2. 程序实现(1)试卷解析模块首先,程序读取试卷内容,然后根据题目类型(如选择题、填空题、解答题等)对试卷进行分类。

接着,提取题目中的关键信息,如题干、选项、答案等。

(2)答案解析模块对于选择题和填空题,程序通过比对题目选项和学生答案,判断答案是否正确。

对于解答题,程序需要解析学生答案中的关键步骤,与标准答案进行比对。

(3)评分规则模块根据题目类型和答案,程序确定得分规则。

例如,选择题每题1分,填空题每题2分,解答题每题10分。

(4)评分模块根据得分规则,程序计算学生得分。

对于选择题和填空题,直接根据答案判断得分;对于解答题,根据关键步骤的匹配程度进行评分。

(5)结果展示模块程序将评分结果以图表形式展示给学生,包括每题得分、总分、班级平均分等信息。

三、程序测试与优化1. 测试为了验证程序的有效性,我们选取了一定数量的高三数学试卷进行测试。

测试结果表明,程序能够准确识别题目类型、解析答案、比对得分规则,具有较高的准确率。

2. 优化针对测试过程中发现的问题,我们对程序进行了以下优化:(1)提高答案解析模块的准确率,通过引入自然语言处理技术,提高答案解析的准确度。

标准化试题自动评分程序

标准化试题自动评分程序
题 分 开 , 案 用户 生成后 加 密的标 准化试题 自动评 分程序 , 答 可以很好 的 解决上 述 问题 。 [ 键词 ] 标 准化 ; 题 ; 关 试 自动 评分 ; 序 程
[ 中图分 类号 ] P 1. 1 [ T 3 1 1 文献标 识码 ] [ A 文章 编 号 ]0 8— 09(08 0 0 3 0 10 8 5 20 )3— 09— 4
上号也 是 十分 困难 的事 。 考 试有 时间 的限制 。 以在试题 里设定 时 间 。 可 指 定 的时 间 一 到 , 程序 就 必须 让 考生 自动 交 卷 。
道题 , 只有完 成 了这 一步 , 才可 能对题 的正 误进
行评 分 。而在文本 文件 里最 主要 的控制 符为 回车 符 , 以 回车符成 为 程序 区分 试 卷 里每 一 道 题 的 所 主要控 制符 。但仅 使用 回车符是 不 可能完 成试 卷
平 。而且要 把题 录 人 到数 据 库 , 是 每位 教 师 都 不
能做 到的 , 不可 能 把 考试 系 统 这样 高 的权 限 给 也 每一个 教师 。 经过 对学 校使用 的许多 计算 机考 试系统 的 分 析, 针对 上述 问题 用 V B设计 了使用 方 便 , 要 每 只 道题 有标 准答案 , 能 自动评 分 的程序 。 就 首先 从易用 的 角度 出发 , 题 的编 写 一 定 要 试
[ 摘
要 ] 随计 算机的普 及 , 算机考试 系统 也逐 步 普及 。但 大 多数 考 试 系统使 用数 据 计
库抽题 , 库的建 立 需要 大 量的 时 间, 题 系统也要 有 专业人 员安 装使 用 。而且题 库 的更新也 不 方 便 。设 计 一个 用记 事本 编辑试题 , 可在试题 中设 定考 试 时间 , 自动 识 别题 目及数 量 , 案 与试 答
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

自动评分程序
设计一个由计算机来当小学低年级学生算术老师的VB应用程序,要求给出一系列的两个1~9数的四则运算的算术题,学生输入该题的答案,计算机根据学生的答案判断正确与否,并给出成绩,单击出题命令按钮,开始答题,输入答案后按回车键即可继续答下一题,单击结束命令按钮,退出应用程序。

1、用到的控件:1个PictureBox控件,1个Timer控件,2个CommandButton 控件,5个Label控件,5个TextBox控件,1个Frame控件。

2、运行界面:
3、答题过程的界面:
4、详细代码:
Option Explicit
Dim X As Integer, Y As Integer, js As Integer, arr, a As String Public cuo As Integer, zq As Integer, sum As Integer, k As String Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Randomize
X = Int((9 * Rnd) + 1)
Y = Int((9 * Rnd) + 1)
k = arr(Int(Rnd * 4))
Select Case k
Case "+"
js = X + Y
Case "-"
If Y > X Then a = X: X = Y: Y = a
js = X - Y
Case "×"
js = X * Y
Case Else
If Y > X Then a = X: X = Y: Y = a
js = X / Y
End Select
Label1.Caption = Trim(Str(X)) & k & Trim(Str(Y)) & "="
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Load()
arr = Array("+", "-", "×", "÷")
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Label1.Caption <> "" Then
sum = sum + 1
If V al(Text1.Text) = js Then
zq = zq + 1
Picture1.Print Label1.Caption & V al(Text1.Text) & " " & "√" Else
Picture1.Print Label1.Caption & V al(Text1.Text) & " " & "×" cuo = cuo + 1
End If
Text2.Text = sum
Text3.Text = zq
Text4.Text = cuo
Text5.Text = Format(Str(zq / sum) * 100, "0.00") & "%" Command2_Click
End If
KeyAscii = 0
End If
End Sub。

相关文档
最新文档