基于VBA编程的网络教学试题库批量试题录入研究(2)

　　多选题的格式转换，与单选题和判断题的不同之处是对放置答案的单元格处理，要判断选项是否在答案中，如果在，则在正确的选项前加“*”。以选项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_个连续的字符串，最后按照要求的格式输出到TXT文件中。基于VBA的填空题格式批量转换代码如下： 

　　2.3对窗体按钮指定编制的宏 

　　模块编写调试成功后，最后一步是对窗体按钮指定宏，单击菜单“视图”/“工具栏”/“窗体”勾选，在文件的空白区域画出按钮后就可以指定宏了[6]，把编好的模块过程指定给该按钮，单击该按钮就可以输出符合批量输入试题的格式。 

　　2.4格式转换应用 

　　当指定编制完成后，单击按钮，就可以把原始的 Excel文件中的试题格式转换为符合军队网络教学平台要求的批量输入试题格式，将其存储到TXT文件中，把TXT文件中的内容复制，粘贴到试题批量添加输入框中，如图2所示。单击“确定”按钮就可以实现试题自动批量录入。 

　　3结语 

　　在原始的 Excel试题文件基础上，嵌入了VBA编程，通过程序完成了批量输入试题的格式转换，大大提高了试题管理效率。在军队网络教学平台《计算机基础与操作》网络课程试题库录入中采用该方法，只需几个简单的按钮操作就可以完成，提高了工作效率。虽然本文是针对军队网络教学平台设计的，但对于其它平台的操作也有借鉴意义。 

　　参考文献参考文献： 

　　[1]林海宁.基于VBA技术的 Excel自动评阅系统[J].现代计算机，2012 （21）：7880. 

　　[2]何小松.通用试题库管理系统的开发与研究[J].淮南师范学院学报，2003，5（19）：5051. 

　　[3]刘铭.基于VBA对 Excel 2007二次开发应用研究[J].现代电子技术，2010，33（10）：5558. 

　　[4]耿霞，王志军，宋维.自学考试命题及自动排版系统的设计与实现[J].中国教育信息化，2007 （21）：4143. 

　　[5]伍云辉.完全手册 Excel VBA典型实例大全 [M].北京：电子工业出版社，2008：446459. 

　　[6]韦立梅.使用Excel VBA管理工资资料[J].电脑与电信，2013 （6）：7075.