基于VBA技术的计算机基础自动阅卷系统的设计与实现

基于Excel VBA的计算机理论知识无纸化考试系统设计摘要：利用Excel VBA设计了计算机理论知识无纸化考试系统。

该系统可以在学生登录后自动随机抽题成卷，并可在系统规定的时间内结束考试，可自动判分，减轻了教师阅卷的工作量。

关键词：Excel；VBA；考试系统；无纸化0 引言在当今飞速发展的信息化社会中，计算机已在各行各业被广泛应用，计算机应用能力已成为现代人必须具备的一种能力，所以各级学校都开设了计算机基础的公共课程。

为了加强学生对计算机知识掌握，在日常教学过程中对学生的测试是必不可少的。

而对于计算机理论知识，传统的做法是用纸质试卷测试，但教师阅卷的工作量较大，为减轻教师的工作量，便用Excel VBA设计了一个无纸化的计算机理论知识自动抽题、自动阅卷的考试系统。

1 系统实现的关键技术Excel是Microsoft Office 家族成员，它应用非常广泛，具有方便的表格式数据综合管理、强大计算统计分析和图表功能。

此外，Excel还提供了一种的宏语言Visual Basic for Application（简称VBA）,它是一种完全面向对象体系结构的编程语言，它又一种寄生于应用程序不能单独存在的编程语言。

由于其在开发方面的易用性和强大的功能，为广大用户提供了一个新的、更高层次的二次开发平台，它不但可以设计出个性化的程序，也可以使程序具有自动功能，减少大量重复繁琐的操作，提高工作效率。

2 系统的实现2.1 系统功能模块该系统主要有4个功能模块：（1）登录模块。

学生和教师分别不同身份登录。

学生只能进入考试界面，教师可以取得全部权限，可以查看评分情况，并可以修改题库内容和学生信息和基本设置。

（2）自动抽题。

该模块从题库中随机抽取规定数量的题传送到“测试题”表中，并将所抽取题目的标准答案传送到评分表。

（3）系统定时。

抽题结束后，系统将在考试系统的状态栏中显示倒计时。

并在规定的考试时间到达时，系统自动关闭并自动保存学生的所做题目。

基于EXCEL和VBA的自动组卷系统设计与实现焦乐天;王英迪;焦万合;开赛尔【期刊名称】《智能计算机与应用》【年(卷),期】2016(006)004【摘要】论文主要介绍了一款基于EXCEL和VBA的自动组卷系统的设计思路和实现方法。

相关内容既可作为EXCEL教学的高阶案例，也可直接用于学校教师或考试管理人员进行试题库管理和试卷拟制工作，以提高考试工作的质量和效率。

%This paper mainly introduces the design and implementation method of an automatic test paper system based on EXCEL and VBA. The relevant content can be used as an advanced case of EXCEL teaching, and it can also be applied directly for school’ s faculty or managers to manage examination questions and make examination papers, in order to improve the quality and efficiency of the examination work.【总页数】4页(P100-102,105)【作者】焦乐天;王英迪;焦万合;开赛尔【作者单位】石河子大学信息科学与技术学院，新疆石河子832003;上海大学环境与化学工程学院，上海200444;乌鲁木齐民族干部学院训练部，乌鲁木齐830000;乌鲁木齐民族干部学院训练部，乌鲁木齐830000【正文语种】中文【中图分类】TP391【相关文献】1.基于VBA的 Excel操作题自动阅卷系统的设计与实现 [J], 刘宇君2.基于EXCEL和VBA的自动组卷系统设计与实现 [J], 焦乐天;王英迪;焦万合;开赛尔;3.基于ExcelVBA的油田通用自动组卷软件的设计与实现 [J], 闫苏斌;王渭莉4.基于ExcelVBA的油田通用自动组卷软件的设计与实现 [J], 闫苏斌; 王渭莉5.基于Excel VBA学生体检信息采集系统的设计与实现 [J], 任宇宁因版权原因，仅展示原文概要，查看原文内容请购买。

VBA的OFFICE操作题自动批阅技术的实现唐学军【摘要】"Fundamentals of Computer Application," is one of the more important basic education classes, students learn that it is mainly to allow students to better grasp the Word, Excelland other basic work used in more applications. However, most of these applications run in VBA programming. However, when the end of the student teacher test, marking papers become their problem. On the one hand, OFFICE larger amount of operating problems, more objective questions, there is no uniform measure;other papers of these operations when the theme marking the workload is relatively large, low teacher marking efficiency. This paper will present the reasons for the development of VBA OFFICE operating problems automatically marking technology and simple exposition universities now use automatic marking technology and its principles, the last of the VBA OFFICE operation of an automatic marking simple programming.%《计算机应用基础》是我国高等教育中比较重要的基础课之一，学生学习它主要是为了让学生更好的掌握Word，Excel等最基本、工作中使用较多的应用程序。

VBA如何在Word中实现自动批注与审阅VBA（Visual Basic for Applications）是一种用于自动化Microsoft Office套件中各种任务的编程语言。

在Word中，VBA可以帮助我们实现自动批注和审阅的功能，为我们提供更高效的编辑和校对体验。

本文将介绍如何使用VBA在Word中实现自动批注与审阅的功能。

首先，我们需要在Word中打开Visual Basic编辑器。

方法是通过“开发工具”选项卡 -> “Visual Basic”按钮进入编辑器。

在编辑器中，我们可以编写和调试VBA代码。

要实现自动批注与审阅功能，我们首先需要创建一个宏，宏是一段自动执行的VBA代码。

以下是一个示例的VBA代码，可以实现在Word中自动添加批注的功能。

```VBASub 自动批注()Dim commentText As StringDim selectedText As Range'获取用户输入的批注内容commentText = InputBox("请输入批注内容：")If commentText = "" ThenExit SubEnd If'判断用户是否选择了文本If Selection.Type = wdSelectionNormal ThenSet selectedText = Selection.RangeElseExit SubEnd If'添加批注With ments.Add(selectedText, commentText)'设置批注格式.Range.Font.Size = 12 = "微软雅黑".Range.Font.Bold = TrueEnd WithEnd Sub```在上述代码中，我们首先获取用户输入的批注内容。

然后判断用户是否选择了文本，如果选择了，就通过`Comments.Add`方法在选中的文本上方添加一个批注，并设置批注的格式。

基于Excel VBA技术的调查问卷系统的实现摘要:为及时掌握学生学习的情况,提高教师的工作效率,根据学校教学质量的要求的基础上以Excel软件为开发平台,采用VBA技术为开发工具,以完成对学生调查问卷的技术实现。

关键词:调查问卷Excel VBA1 系统开发背景调查问卷是高校教学工作中的重要环节之一,也是高校教学质量评估的重要指标之一。

因此,科学地、客观地做好调查问卷是提高高校教学质量的需要。

现实中,很多老师采用的是手工统计,或用计算器以及简单的Excel软件进行分类汇总。

但是,这样的操作,计算机量大,操作步骤繁琐且容易出错。

尤其是数据量巨大时更是不可取。

鉴于以上原因,本人提出以Excel软件的基础上,通过VBA技术编写程序,设计出调查问卷这个功能,这样教师只需让学生简单的操作,就能把繁琐复杂的数据交给计算机来计算机处理,从而节省教师大量的时间和精力。

2 系统分析2.1 系统开发环境的选择Excel是目前大家最常用的办公软件之一,它提供的操作界面是大家非常熟悉且易于掌握。

Excel软件与其他数据处理软件相比,自身具有明显的又是,能够方便高效地设计出电子表格p3 系统设计3.1 系统操作流程以系统开发需解决的三大问题为设计目标,采用VBA技术设计出各个模块界面以及编写出相应的程序代码。

该系统包括学生基本资料、单项选择、多项选择和学生建议四个部分。

3.2 系统的实现3.2.1 设计学生基本资料部分的操作Dim hang As IntegerWith Worksheets(“调查问卷结果”)xrow = .[A1].CurrentRegion.Rows.Count + 1.Cells(xrow, “A”) = [d4].Cells(xrow, “B”).Resize(1, 16).Value = Application.WorksheetFunction.Transpose([G8:G23].Value) .Cells(xrow, “R”).Value = [B67].ValueEnd WithUnion([D4:E4], [G8:G23], [B67:G67]).ClearContentsMsgBox “已保存到“调查结果”工作表中！”, vbInformation, “提示”End Sub4 结语调查问卷系统经学校推广使用后,取得了良好的效果,达到了调查问卷系统的开发目的。

考试系统中操作题自动评分的设计与实现史娟【摘要】目前的计算机考试系统大多数是采用标准答案文档与考生文档直接比对的方式来实现操作题的自动阅卷,评分效率不高,成绩容易出现误差.针对这一现象,以Word 2003操作题为例,提出了改进的思路及具体的实现方法,即基于VBA技术和Word对象模型,采用将标准答案存储到数据库中的方式,利用设置好的标准答案数据库,启动自动评分系统对操作题进行自动评分.实验结果表明,采用此方法设计的评分系统,平均30s左右就可以实现一个文档的自动评分,显著提高了操作题的评分效率.%At present, the standard answer document is adopted to directly compare with the candidate documents to realize the operational problems automatic scoring in most of the computer examination systems, in which the scoring efficiency is not high and scoring results prone to error. In view of this phenomenon, taking Word 2003 operating problem as an example, an idea for improvement and a specific realization method for scoring are put forward. The method is based on visual basic for application (VBA) technology and Word object model. In this way, the standard answers are stored in the database, and the automatic scoring system conducts the automatic scoring of operation problems by means of the standard answer database. The experimental results show that the automatic scoring system designed in this way can fulfil a candidate's document scoring in about 30 s automatically. It significantly improved the scoring efficiency of operation questions.【期刊名称】《现代电子技术》【年(卷),期】2012(035)014【总页数】4页(P33-36)【关键词】考试系统;自动评分;VBA;Word对象模型【作者】史娟【作者单位】青海建筑职业技术学院,青海西宁810012【正文语种】中文【中图分类】TN919-34;TP310 引言随着计算机应用技术和网络技术的不断发展，利用计算机考试正在逐渐取代传统的考试模式。

基于VBA的信息系统设计与开发在数字化快速发展的时代，电子化信息系统的应用已成为现代社会中不可或缺的一部分。

信息系统的高效性及可靠性一定程度上取决于其设计及开发的方式。

本文将探讨基于VBA的信息系统设计与开发，以期为相关工作者提供一定的参考借鉴。

1. VBA简介Visual Basic for Applications（VBA）是一种面向对象的编程语言，用于Microsoft Office应用程序中自动化操作、宏和自定义函数的编写。

该语言可在Excel、Access、Word等应用程序内部集成应用的程序设计。

2. 基于VBA的信息系统设计在基于VBA的信息系统的设计中，VBA应用程序可以被用来创建用户界面和控制用户的交互。

可以通过开发VBA类模块来构建一个可维护和可扩展的系统设计方案。

在实现此方案之前，需要考虑以下几个方面。

（1）明确需求在开始系统设计之前，请确保您已清楚地了解需要开发的系统所有需求，根据这些需求形成系统的总体设计方案，比如业务流程、数据流向、用户界面等。

（2）界面设计用户界面是信息系统设计的一个重要部分。

在VBA中，可以利用用户窗体来创建用户界面，这些窗体可以包含各种控件（如命令按钮、文本框等）以对用户输入进行响应和输出可视化数据。

合理的用户界面设计可以增加系统的易用性和可靠性。

（3）数据库设计一个基于VBA的信息系统通常需要涉及到数据库（如Microsoft Access、SQL Server等），必须根据业务需求设计出合理的数据结构。

数据库设计不仅要考虑表和字段的命名，还必须考虑表之间的关系以及数据范围等方面。

3. 基于VBA的信息系统开发在系统设计完成之后，开发人员需要根据系统需求，编写代码逻辑并实现功能，下面是开发人员在VBA中应该注意的几个点。

（1）注释代码注释的起源是为了帮助程序员更好地维护代码，从而总结了一些约定俗成和高效的注释方法，使代码更具备代码阅读性和可维护性。

基于VBA的 Excel操作题自动阅卷系统的设计与实现刘宇君【摘要】This paper analyzes the features of Excellsoftware , and sums up some knowledge items of Excellop-eration competence tests , of which an automatic evaluation algorithm is implemented with VBA is proposed , togeth-er with a realistic example of automatic evaluating Excelldocument .%本文通过对Excel 软件功能的分析，总结出Excel考核的若干知识点，根据这些知识点提出了基于VBA技术的自动阅卷算法，并给出了一个Excel文档自动阅卷实例。

【期刊名称】《洛阳师范学院学报》【年(卷),期】2014(000)008【总页数】6页(P67-72)【关键词】VBA技术;EXCEL;自动阅卷;算法【作者】刘宇君【作者单位】太原工业学院计算机工程系，山西太原030008【正文语种】中文【中图分类】TP311.1作者及其团队成员共同开发设计了基于局域网的“计算机应用基础”考试系统软件，该软件以强化实践能力培养为目标，采用VBA、C#等技术实现，具有随机抽题、自动组卷、自动阅卷等功能.Excel是Office的组件之一，其功能非常强大.它是计算机操作技能中最基本也是需要熟练掌握的软件之一，同时也是计算机基础应用能力考核必不可少的组成部分.由于微软在Office套件中嵌入了VBA技术，因此，本文就如何基于VBA技术用C#实现Excel文档自动阅卷功能提供了一个可行的解决方案.该方案设计了一套较完整、合理、全面的自动评分算法，能够较合理、准确地实现自动评分.该算法已成功应用于我校“计算机应用基础”课程的考试中，效果良好.1 VBA技术在Excel中的应用VBA 是指“Visual Basic For Application”，它是在Office中使用的标准宏语言，与传统的宏语言不同，VBA提供了面向对象的程序设计方法，是相当完整的程序设计语言.VBA的语法类似VB，但提供了VB中没有的函数和对象，这些函数和对象都是针对Office应用的.因此，可以像编写VB程序那样来编写VBA程序，以实现某种特定的功能.对于Office中每个应用系统软件:Word、Excel、Powerpoint等，VBA都嵌入其中，成为COM的一部分，可以用宏的方式录制、执行或直接使用命令编程.它可以有效地记录Office操作的每个步骤并以命令形式控制与再现Office操作过程. COM组件对象模型是OLE和ActiveX技术的基础.它是Microsoft提出的一种基于对象的客户/服务器模型，用于实现软件模块之间或应用程序之间的相互作用. VBA标准宏语言具有跨越多种应用软件并且控制应用软件对象的能力，具有很好的易用性.由于Excel中的文档采用对象数据流的方式进行存储，结构复杂(如图1所示），从外部很难访问到这些数据.而VBA带有大量专门针对Excel文件的函数、对象，通过它们可以方便地访问到文档中的各个对象，并对它们的属性状态进行识别判断，从而判断出用户操作的结果是否正确.(1）Application对象如图1所示，在Excel中能够获得的最高层对象是Application对象，它代表的是Excel应用程序本身，Application对象公开了大量有关正在运行的应用程序、应用于该实例的选项以及在该实例中打开的当前用户的对象的信息.(2）Workbook对象.Workbook对象表示 Excel应用程序中的单个工作簿.(3）Worksheet对象图1 Excel文档对象模型及其关系Worksheet对象是Worksheets集合的成员，Excel提供Sheets集合作为Workbook对象的属性，但是 Excel中没有Sheet类.相反，Sheets集合的每个成员都是一个Worksheet对象或者一个Chart对象.Visual Studio Tools for Office提供Worksheet宿主项，并在创建项目时创建三个实例:Sheet1、Sheet2和Sheet3.(4）Range对象Range对象是 Excel应用程序中最常用的对象，Range对象表示一个单元格、一行、一列、包含一个或多个单元格块(可以连续，也可以不连续），甚至多个工作表中的一组单元格.(5）Chart对象Chart对象代表工作簿中的图表，该图表既可为嵌入图表(包含在 ChartObject 中），也可为一个单独的图表工作表.在VBA中通过Application、Workbook、Worksheet、Range和Chart等对象，可以找到操作的对象并得到其相应的属性值，从而判断出Excel单元格区域中格式(字体、底纹、边框等）、数据处理格式、数据公式/函数、图表等的变化，通过这些变化即可获知用户操作的是否正确.2 Excel自动阅卷的解决方案2.1 Excel考核内容及题目数据表设计根据考试的内容，将题目要求存放在数据表中，其结构如表1所示.每道题有5个要求，考核内容主要包括表1 Excel题目要求结构序号字段数据类型说明1 CNO varchar 考试题号2 Request1 varchar 解题要求1 3 Request2 varchar 解题要求2 4 Request3 varchar 解题要求3 5 Request4 varchar 解题要求4 6 Request5 varchar 解题要求5 7 Excel_FName varchar 考试初始xls文件名(1）工作表的操作插入/删除工作表，重新命名工作表.(2）行、列操作插入/删除行/列，设置列宽、行高，在指定的行/列编辑数据等.(3）单元格区域格式的操作单元格区域的合并、对齐、边框设置、底纹颜色设置;字体、字体大小及其样式设置等.(4）单元格内容单元格内容的编辑等.(5）单元格区域数据的操作排序(文本型、数值型）、筛选、分类汇总、利用公式/函数计算等.(6）图表操作创建图表、图表类型、图表格式等.2.2 Excel自动阅卷流程考生的答案文件ExcelPaper.xls都存放在各自机器上的答案文件夹中，自动阅卷过程与教师人工阅卷过程类似.首先利用COM技术创建Application、Worksheet等一系列OLE对象，然后通过调用VAB接口实现对EXCEL文档操作.打开考生的答案文档ExcelPaper.xls，从中获取相应对象的属性值，与标准答案比较，从而判断操作结果是否正确，并给出相应的得分.阅卷结束后将考生的考号、抽到的题号和每一项的分数进行汇总后写入到成绩文件 Paper_Excel中.自动阅卷流程如图2所示.2.3 Excel自动阅卷实例下面以图3中的内容为例，给出Excel自动阅卷的解决方案.(1）在“总成绩”列前面插入一列“平均成绩”，并设置其列宽为12.设计插入一列的函数如下:图2 Excel自动阅卷流程图图3 (a）Excel操作题要求;(b）学生答案文档通过语句Score+=insertcolumn(2，7，“平均成绩”，2）;调用插入列函数，判断Cell(2、7）单元格中的内容是否为“平均成绩”，如果是则加分，否则不加分.设置列宽与之类似，在此不再赘述.单元格内容的操作通常是在Excel工作表中输入数据等操作，单元格中输入的内容存储在Excel单元格对象Range的Value属性中，通过获取该属性值即可得到考生操作的结果，直接将其与标准答案进行比较即可.(2）将A2:H2单元格区域的字体设置为“黑体、16号”，底纹颜色设置为梅红色. 设计判断字体函数如下:通过语句 Score+=fontnamex(2，1，2，8，“黑体”）;调用判断字体函数，从而断定单元格区域中的字体是否与标准答案一致.设置字体大小、底纹颜色与之类似，在此不再赘述.单元格格式是Excel中常用的操作，比如设置单元格的字体及其大小、底纹颜色等.在考核要求中，常要求对一个区域进行格式设置，设置的结果自动保存在区域中的每个单元格中.实际考试中，考生常常设置的区域不完整或有偏差，对部分区域进行了正确的设置，另一部分操作错误或未操作，若将整个区域作为一个Range对象来评分，只有答案全部正确才给分显然是不合理的，应该分而治之.本实例采用的解决方案如图4所示.(3）利用公式计算“总成绩”和“平均成绩”.设计求和/平均值等公式的函数如下: 图4 单元格格式评阅算法流程图通过语句 Score+=jsgongshi(2，8，"=SUM(RC［-104］:RC［-101］）"，2）;调用求和函数，在指定的位置生成计算的公式，并与标准答案比较判断结果是否正确.类似的，通过语句Score+=jsgongshi(2，7，"=AVERAGE(RC［-103］:RC ［-101］）"，2）;调用求平均值函数.从上面求和、平均值的函数调用语句中可以看出，采用VBA技术，在操作结果单元格中存放的是公式/函数的字符串表达式，而非操作结果值.即在结果单元格G3中存放的是公式字符串:=AVERAGE(RC［-103］:RC［-101］），而非平均值79.3本身.因此，在算法设计中，只需要编写一个函数jsgongshi(），并通过传递不同的参数实现求和、平均值等计算即可.其中，同一个计算公式可以有不同的表达方式.例如:计算D3～F3的平均值的表达方式有:①G3=AVERAGE(D3:F3）②G3=SUM(D3:F3）/3③G3=(D3+E3+F3）/3从上可以看出，同一个问题利用公式/函数计算有多种表示方法，他们都能计算出正确的结果.但是在标准答案中穷举出所有可能的表达式是不现实的，因此，本解决方案采用如图5所示的算法.图5 公式/函数评阅算法流程图(4）将“总成绩”列按照降序排列，并给A2:H9单元格区域加上表格线(单线）. 设计排序函数如下:通过语句 Score+=isSortAD_Decimal(7，＇D＇，2）;调用排序函数，从而断定单元格区域中的数据是否按要求排序.排序的关键是定位待排序数据所在单元格的位置.(5）根据“姓名”、“英语”、“高数”和“C语言”列数据，创建一个“簇状柱形图”图表，插入到第二张工作表中，并将图表的标题命名为“成绩表”.设计生成图表、图表的类型、图表名称函数如下:通过语句Score+=createshape(2，“成绩表”，“xlColumnClustered”）;调用生成图表函数，从而与标准答案比较，断定是否按照要求的类型生成图表.3 结语本文针对Excel操作题要求，采用VBA技术获取其文档对象的属性，使用上述代码实现了自动阅卷、成绩统计等功能.本考试系统在我校计算机基础教学的考试中已应用了三年，系统运行良好，受到了学生和任课教师的欢迎，具有良好的应用前景和较高的实用价值.该系统在完善计算机考试的同时又能客观准确地评价和反映考生对计算机知识的掌握程度，自动阅卷还可以大大减低人工阅卷带来的错判概率，并能减轻教师阅卷工作量，从而提高工作效率.实践结果表明:(1）该系统性能稳定、即答即阅，结果正确可靠;(2）减轻了教师的工作负担，提高了工作效率;(3）摒弃了以前对操作题采用人工阅卷的方式，也消除了人工阅卷的人为因素，充分体现了考试的公开、公正、公平的原则.参考文献［1］教育部高等学校计算机科学与技术教学指导委员会.关于进一步加强高等学校基础教学的意见暨计算机基础课程教学基本要求(试行）［M］.北京:高等教育出版社，2006.［2］刘宇君.Visual Basic程序设计［M］.北京:高等教育出版社，2013.［3］刘宇君.Visual Basic程序设计例题解析与项目实践［M］.北京:高等教育出版社，2013.［4］林海宁.基于VBA技术的Excel自动评阅系统［J］.现代计算机，2012(07）:78-80.［5］乐颖，张伟.基于VBA技术的计算机基础自动阅卷系统的设计与实现［J］.科技信息，2009(13）:43-44.［6］高升宇.基于VBA技术的Office操作题自动阅卷设计与实现［J］.渭南师范学院学报，2011，26(12）:64-65.［7］彭作民.EXCEL文档自动阅卷评分算法设计［J］.南京师范大学学报，2007，7(3）:70-73.［8］宗德才.操作题自动评分系统的设计与实现［J］.计算机过程与设计，2010，31(5）:1156-1160.。

计算机应用基础操作智能评分系统的设计与实现黄建成【摘要】详细介绍使用.Net与VBA编程相结合开发的计算机应用基础操作智能评分系统,该系统具有可以任意自定义题目,只需提供标准答案文件、设置评分点和分值就可以对计算机应用基础操作进行评分,同时给出错误提示及错点定位;系统还具有防止用他人的操作文件提交作业的功能,既可以用于日常教学,也可以用于课程操作考试;练习模式下提供的操作演示可以为分层教学和个性化教学提供很大的便利,独立的考试题库可以保证考试的公平公正.应用实践证明:该系统的助学、助教功能明显,可以较大程度地提高课程教学质量.%This paper introduces the operation intelligent scoring system for computer application foundation by using. Net and VBA programming. The system can select any defined test item, and score the operation of computer application according to the standard answer file provided, scoring points and score. Meanwhile it can give prompt for errors and location of the incorrect points. The system also has the function of preventing submission of homework by other people's operation documents. It can be used either for daily teaching or for operation tests of courses. The operation demonstration provided by the practice mode can bring great convenience to hierarchical and individualized teaching, and the independent test question library can guarantee the fairness and justice of the examination. Practice has proved that the system has obvious effects in assisting teaching and can improve the teaching quality of the course.【期刊名称】《中国医学教育技术》【年(卷),期】2018(032)003【总页数】4页(P282-285)【关键词】计算机应用基础;VBA;智能评分;系统设计【作者】黄建成【作者单位】广西科技大学网络与现代教育技术中心,广西柳州 545005【正文语种】中文【中图分类】G434为了解决大学新生计算机基础差异大[1-2]、自然班难以实施分层教学[3-4]、批改计算机操作实验和作业难度大且反馈不及时等诸多大学计算机应用基础课程的教学问题，我们使用.Net[5]与VBA编程[6]相结合，开发了计算机应用基础操作智能评分系统(以下简称系统)。

基于EXCEL和VBA的自动组卷系统设计与实现作者：焦乐天王英迪焦万合开赛尔来源：《智能计算机与应用》2016年第04期摘要：论文主要介绍了一款基于EXCEL和VBA的自动组卷系统的设计思路和实现方法。

相关内容既可做为EXCEL教学的高阶案例，也可直接用于学校教师或考试管理人员进行试题库管理和试卷拟制工作，以提高考试工作的质量和效率。

关键词：EXCEL；VBA；自动组卷系统中国分类号：TP391 文献标识码：AAbstract： This paper mainly introduces the design and implementation method of an automatic test paper system based on EXCEL. The relevant content can be used as an advanced case of EXCEL teaching，and it can also be applied directly for school’s faculty or mana gers to manage examination questions and make examination papers， in order to improve the quality and efficiency of the examination work.Keyword： EXCEL；VBA；automatic test paper system0 引言Microsoft Office Excel办公软件功能强大、使用方便、应用广泛，精通运用EXCEL会给日常工作和生活带来极大方便。

本文旨在设计研发一款功能丰富且简单易用的，基于EXCEL 和VBA的自动组卷系统，而与学界探讨可有效运用Microsoft Office Excel办公软件来提高日常工作效率的途径和方法。

用OFFICE VBA实现WORD自动阅卷功能受学生等级考试启发，经过不断努力，完成和等级考试一样的WORD文档自动阅卷功能程序，可以把它嵌入到VB中或直接在WORD中用“宏”来操作.以下为嵌入到VB中使用时的代码,若要利用宏来操作,只需进行简单修改即可:Set wrd = CreateObject("Word.Application")wrd.Visible = Falsewrd.Documents.Open "c:\ks\word.doc"'wrd.Documents("Word.doc").Activateerrstring = ""rightstring = ""With wrd.Documents("Word.doc").PageSetupIf .LeftMargin <> 79.4 Thenerrstring = errstring & "左边距错误" & vbCrLf '本行代码检测左边距2.8cm Elserightstring = rightstring & "左边距设置正确" & vbCrLfEnd IfIf .RightMargin <> 79.4 Thenerrstring = errstring & "右边距错误" & vbCrLf '本行代码检测右边距2.8cm Elserightstring = rightstring & "右边距设置正确" & vbCrLfEnd IfIf .TopMargin <> 85.05 Thenerrstring = errstring & "上边距错误" & vbCrLf '本行代码检测上边距3cm Elserightstring = rightstring & "上边距设置正确" & vbCrLfEnd IfIf .BottomMargin <> 85.05 Thenerrstring = errstring & "下边距错误" & vbCrLf '本行代码检测下边距3cm Elserightstring = rightstring & "下边距设置正确" & vbCrLfEnd IfIf .PaperSize <> wdPaperA4 Thenerrstring = errstring & "纸型设置错误" & vbCrLf '检测是否为A4Elserightstring = rightstring & "纸型设置正确" & vbCrLfEnd IfEnd WithDim doctablecount, i As IntegerDim str1 As Stringdoctablecount = wrd.Documents("Word.doc").Tables.CountWith wrd.Documents("Word.doc")If .Sections(1).PageSetup.Orientation <> wdOrientLandscape Thenerrstring = errstring & "页面方向设置错误" & vbCrLf '本行代码检测页面设置,wdOrientLandscape为横向，wdOrientPortrait为纵向Elserightstring = rightstring & "页面方向设置正确" & vbCrLfEnd If.ActiveWindow.View.Type = wdPrintView.ActiveWindow.View.SeekView = wdSeekCurrentPageHeader '以上两行代码更改为页眉页脚视图If .Sections(1).Headers(wdHeaderFooterPrimary).Range.Text <> "恐龙博物馆" & vbCr Or .Sections(1).Headers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment <> wdAlignParagraphRight Thenerrstring = errstring & "页眉设置错误" & vbCrLf '本行代码检测页眉文字及对齐方式Elserightstring = rightstring & "页眉设置正确" & vbCrLfEnd If.ActiveWindow.View.SeekView = wdSeekCurrentPageFooter'If .Sections(1).Footers(wdHeaderFooterFirstPage).Range.T ext <> "剑龙" & vbCr Or .Sections(1).Footers(wdHeaderFooterFirstPage).Range.Paragraphs.Alignment <> wdAlignParagraphCenter Then errstring = errstring & "页脚设置错误" & vbCrLf '本行代码检测页脚文字及对齐方式If .Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Count = 0 Then errstring = errstring & "没有在页脚中插入页码" & vbCrLfElseIf .Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers(1).Alignment <> wdAlignPageNumberCenter Thenerrstring = errstring & "插入页码错误" & vbCrLf '本行代码检测是否在页脚中插入居中页码Elserightstring = rightstring & "插入页码正确" & vbCrLfEnd If.ActiveWindow.View.SeekView = wdSeekMainDocument'以下代码剪切文档中的表格If doctablecount <> 0 ThenFor i = 1 To doctablecount.Tables(i).Range.CutNext iEnd If'以下代码检测浮动对象Dim etxteft, etxtbox, epic As Booleanetxteft = etxtbox = epic = FalseFor Each Sh1 In wrd.Documents("Word.doc").ShapesIf Sh1.Type = msoT extEffect ThenIf Sh1.TextEffect.Text <> "辽宁角龙" Thenerrstring = errstring & "艺术字设置错误" & vbCrLf '本行检测艺术字Elserightstring = rightstring & "艺术字设置正确" & vbCrLfEnd Ifetxteft = TrueEnd IfIf Sh1.Type = msoTextBox ThenIf Sh1.TextFrame.T extRange.Text <> "恐龙博物馆之一" & vbCr Or Sh1.T extFrame.Orientation <> 1 Thenerrstring = errstring & "文本框版式或文本框内文字错误" & vbCrLf '检测文本框及方向：msoTextOrientationHorizontal(1)横向；msoTextOrientationVertical(4)纵向。