新课程学习信息技术2014 年 2 月 18 日目前大多数学校、教师利用 Word 命制试卷，需要花费大量的时间来收题、排版，而且排版后的试卷格式也不标准。 通过 Word 开发一款自带试题库和试卷排版功能的系统，教师可以对题库中的试题进行添加、修改和删除等管理，对选好的试题进行自动排版，生成标准的、统一的试卷，每位教师都可以在短时间内高效地完成一份高质量的试卷。一、试卷结构分析以语文试卷为例，纸型为 A3，方向为横向，版面分左右两栏，左边最上面一般为一级标题并居中显示某次语文考试试卷。 试卷正文大致包括：基础知识、现代文、文言文和写作四大块内容。 基础知识部分主要是：选择和填空，在试卷排版中题目需要左缩；现代文部分主要包含：正文内容和正文后的习题，正文内容标题需要居中，正文首行缩进 2 个字符；文言文部分的排版和现代文基本相同；写作部分排版比较麻烦的是作文格子的编排，它是上下行之间要空开一行的表格。二、系统功能模块分析本系统主要有三大功能模块：添加试题、修改试题 （ 包括修改和删除）和试卷自动生成。 数据库采用 ，主要考虑它移植方便、便于管理。 试题存放在数据库中，在对大量试卷分析时发现，一个大题中有若干个小题， 而每个大题所含的小题数都是不同的，所以在设计数据库时采用了多表并建立关系。

三、系统功能的实现1.添加试题在系统设计需求分析中考虑到教师在命制试卷时，收集试题耗时，试题的保密性差，所以在本系统中直接设计了试题库。 题库可以对试题进行有效地保密，因为题库量很大，组卷时按条件随机组卷，猜题押宝命中概率很小。 有了题库，可以马上启用备用的平行试卷，或在考试前的最后时刻随机决定平行试卷中的一套作为正式考卷，从而达到出其不意的效果。 试题库极大地方便了实现计算机科学的管理 （ 修改、增删、试卷合理生成、浏览、打印等），又因试卷的随机生成，提高了试卷的保密程度，从而进一步提高了考试的效果，充分体现出考试的严肃性和公平性。2.修改试题该模块主要实现两个功能：删除和修改。 教师对该系统库中的试题可以做出相应的修改，或者对不必要的试题进行删除操作。这一模块与上面的添加试题模块都是引用 ADO 连接 AC－CESS 数据，并对数据保存、修改和删除。3.自动排版并生成试卷该模块主要有两块内容：试卷版面设置和试卷试题设置。（ 1）试卷版面设置用户可以在 “ 试卷纸张大小”下拉框中选择相应的纸型，程序中主要是通过 VBA 的 对象的 .－up. 属性设置试卷纸张的大小；在 “ 请输入试卷大标题”文本框中输入将要生成试卷的标题。

比如， “ 2013 学年第二学期九年级第一次语文月考”，我们在程序中是通过 对象的如下属性实现：...= （ “ A3”）‘ 设置试卷页面纸型With ..‘ 对页面进行分栏.:=2.=True.=.= （ 5.84）.= （ 2.96）End With..=. （ “ 标题 1”）‘ 设置为 “ 标题 1”..Font.Name= “ 黑体” ‘ 字形...=er‘ 对标题居中对齐..Font.Size=18 ‘ 标题字号 18 号.. “ 2013 学年第二学期九年级第一次月考+Chr （ 10）” ‘ 设置一级标题，Chr （ 10）为换行（ 2）试卷试题设置该模块分为四大块：基本知识 （ 选择题和填空题）、现代文、文言文 （ 文言文阅读和古诗）和写作。

教师按照试卷的要求选择需要的题型，在对应题型下输入题数，若输入的题数大于系统库中的题数，则系统会有相应提示。试题是从试题库中随机抽取的，并要求不能再次抽中，所以，在随机生成函数 Rnd 前加上 函数，这样可以避免抽到的试题被重复抽中。（ 3）试卷的卷面内容排版试卷的排版主要包括试卷的标题、字体大小及段落格式等方面。 这些都可以利用 对象中的以下性能来实现自动排版。..=. （ “ 标题 2”）‘ 设置二级标题..Font.Size=12‘ 二级标题字号为 12 号..Font.Name= “ 黑体”‘ 二级标题字体为宋体摘要：教师一般应用 Word 来命制试卷，但收集试题和排版工作量非常繁重，利用 VBA 在 Word 中的应用，开发一个自带试题库，教师可以对题库进行添加、修改和删除试题等功能；并能够对所选择的题目进行自动排版。 教师可以高效完成一份高质量的试卷，彻底减轻教师命制试题的工作量。关键词：Word；VBA；自动排版VBA 在 Word 中的应用———自动生成试卷文/余姝华124