基于VBA编程网络教学试题库批量试题录入研究.docVIP

基于VBA编程网络教学试题库批量试题录入研究 　　摘要摘要：使用 Excel原始试题库文件，嵌入VBA编程，生成的TXT文件用于保存符合要求的试题格式，实现了网络教学平台批量输入试题格式的转换，提高了工作效率。 　　关键词关键词：VBA；Excel；试题库 　　0 引言 　　军队网络教学平台集课程内容、教学资源管理和考试系统为一体，通过该平台可以进行一系列教学活动。例如教员可以设计网络课程供学员进行自主学习，还可以录入试题进行考试，实现学习效果评价。试题录入工作中发现，虽然系统提供了批量试题录入方式，但由于录入时需按照规定的格式，在一定程度上不能自动批量录入，限制了试题库录入的效率。针对此问题，本文提出了基于VBA编程[1]的网络教学试题库批量录入方法，通过对原始 Excel试题库文件进行VBA编程，实现了试题格式的转换和网络教学试题库批量录入，大大提高了试题录入效率。 　　1试题添加方式 　　网络教学平台考试模块的子模块“试题管理”是其核心和基础，通过“试题管理”可对课程章节添加各种类型试题，也可根据需要删除和修改，从中抽取若干试题组成考试试卷。 　　试题管理模块设置了添加试题方式：单个添加和批量添加。对于单个添加，采用如图1所示的方式，教员从平台一个个输入，题干和答案都要通过输入框输入，每次输入完一道试题后都要点击“确定”按钮，额外增加了输入时间，影响效率。 　　系统提供了另一种试题添加方式：批量添加，如图2所示。批量添加可从批量添加框中一次性输入多个试题。然而，系统规定了单选、多选和判断题等的特定格式，格式规定和具体示例如图3所示。填空题格式与其它类型试题格式略有不同，图4展示了其一般格式和具体示例，一般试题都难以符合此格式。《计算机基础与操作》课程的许多试题都可以通过网络下载得到，一般格式为 Excel和Word类型，但这些试题都不是上述要求的试题格式。如果用手动方式，依次将试题修正为所需要的格式，无疑会花费大量的时间。 　　2基于VBA编程实现批量试题格式转换 　　2.1 Excel文件原始试题格式 　　使用微软开发的应用程序Visual Basic for Application（VBA）[2]可以编制出令Office自动的程序，对Office进行二次开发[3]，完成自动化处理Office应用文档功能，减少用户的重复操作。Internet上有很多关于《计算机基础与应用》课程的试题，可充分利用网络资源。网上下载的试题有很大部分是 Excel文件，经过简单处理后成为如图5所示的格式， Excel基于VBA编程，使程序自动按照格式要求完成从原始试题到“批量添加”试题需要的格式转换。不同类型的试题编程不同，以实现正确的格式转换[4]。 　　2.2基于VBA编程的各类试题格式转换 　　在打开 Excel试题文件后，按【Alt+F11】进入VBE编程环境，使用“插入/模块”菜单命令插入模块，在模块中定义一个过程，该过程实现格式的转换输出。 　　以下语句获得当前所有试题所占行数，前提是试题所在区域没有空行。 　　单选题的格式转换：首先输出“#”和试题类型信息，使用VBA语句从原始 Excel试题文件中分别读取A、B、C、D四个选项内容，并在每个选项内容前面加上各自的选项符号和点号。如果某一选项是正确的选项，则还需要在前面加上“*”；最后按照输出指定的格式到新建的TXT文件中[5]，难度系数和章节号先省略，因为此两项需要人为设置，核心程序如下： 　　判断题的格式转换和单选题的格式转换是类似的，都是使用VBA语句从原始 Excel试题文件中读取答案单元格中的内容，根据内容在正确的答案前加上格式所要求的*号。 　　多选题的格式转换，与单选题和判断题的不同之处是对放置答案的单元格处理，要判断选项是否在答案中，如果在，则在正确的选项前加“*”。以选项A的判断为例：使用Mid函数，Mid（Cells（i，7），k，1）表示从Cells（i，7）（即存放答案的单元格内容）中的第k位开始取1个字符，也就是从第1个字符开始遍寻存放答案的单元格内容，如果有字符是A或a，则选项A为其中一个正确的答案，在该选项内容前加上表示正确答案的“*”，其它答案选项处理类似，其核心程序段如下： 　　按格式输出TXT文件，与单选题操作类似，此处省略具体语句。 　　填空题格式转换与其它格式都不同，题干中需要填的空是由若干个“_”字符连在一起的，需要转换的格式是把需要填空的空用“{答案}”替换。 　　首先获取填空题原始题目中用于填空的“_”的个数numberof_，使用mid函数依次取number of_个字符，判断其是否等于number of_个连续的字符串，如果是，则使用Replace函数把{答案}替换number of_个