新課程學(xué)習(xí)信息技術(shù)2014 年 2 月 18 日目前大多數(shù)學(xué)校、教師利用 Word 命制試卷，需要花費大量的時間來收題、排版，而且排版后的試卷格式也不標(biāo)準(zhǔn)。 通過 Word 開發(fā)一款自帶試題庫和試卷排版功能的系統(tǒng)，教師可以對題庫中的試題進行添加、修改和刪除等管理，對選好的試題進行自動排版，生成標(biāo)準(zhǔn)的、統(tǒng)一的試卷，每位教師都可以在短時間內(nèi)高效地完成一份高質(zhì)量的試卷。一、試卷結(jié)構(gòu)分析以語文試卷為例，紙型為 A3，方向為橫向，版面分左右兩欄，左邊最上面一般為一級標(biāo)題并居中顯示某次語文考試試卷。 試卷正文大致包括：基礎(chǔ)知識、現(xiàn)代文、文言文和寫作四大塊內(nèi)容。 基礎(chǔ)知識部分主要是：選擇和填空，在試卷排版中題目需要左縮；現(xiàn)代文部分主要包含：正文內(nèi)容和正文后的習(xí)題，正文內(nèi)容標(biāo)題需要居中，正文首行縮進 2 個字符；文言文部分的排版和現(xiàn)代文基本相同；寫作部分排版比較麻煩的是作文格子的編排，它是上下行之間要空開一行的表格。二、系統(tǒng)功能模塊分析本系統(tǒng)主要有三大功能模塊：添加試題、修改試題 （ 包括修改和刪除）和試卷自動生成。 數(shù)據(jù)庫采用 ，主要考慮它移植方便、便于管理。 試題存放在數(shù)據(jù)庫中，在對大量試卷分析時發(fā)現(xiàn)，一個大題中有若干個小題， 而每個大題所含的小題數(shù)都是不同的，所以在設(shè)計數(shù)據(jù)庫時采用了多表并建立關(guān)系。

三、系統(tǒng)功能的實現(xiàn)1.添加試題在系統(tǒng)設(shè)計需求分析中考慮到教師在命制試卷時，收集試題耗時，試題的保密性差，所以在本系統(tǒng)中直接設(shè)計了試題庫。 題庫可以對試題進行有效地保密，因為題庫量很大，組卷時按條件隨機組卷，猜題押寶命中概率很小。 有了題庫，可以馬上啟用備用的平行試卷，或在考試前的最后時刻隨機決定平行試卷中的一套作為正式考卷，從而達到出其不意的效果。 試題庫極大地方便了實現(xiàn)計算機科學(xué)的管理 （ 修改、增刪、試卷合理生成、瀏覽、打印等），又因試卷的隨機生成，提高了試卷的保密程度，從而進一步提高了考試的效果，充分體現(xiàn)出考試的嚴肅性和公平性。2.修改試題該模塊主要實現(xiàn)兩個功能：刪除和修改。 教師對該系統(tǒng)庫中的試題可以做出相應(yīng)的修改，或者對不必要的試題進行刪除操作。這一模塊與上面的添加試題模塊都是引用 ADO 連接 AC－CESS 數(shù)據(jù)，并對數(shù)據(jù)保存、修改和刪除。3.自動排版并生成試卷該模塊主要有兩塊內(nèi)容：試卷版面設(shè)置和試卷試題設(shè)置。（ 1）試卷版面設(shè)置用戶可以在 “ 試卷紙張大小”下拉框中選擇相應(yīng)的紙型，程序中主要是通過 VBA 的 對象的 .－up. 屬性設(shè)置試卷紙張的大小；在 “ 請輸入試卷大標(biāo)題”文本框中輸入將要生成試卷的標(biāo)題。

比如， “ 2013 學(xué)年第二學(xué)期九年級第一次語文月考”，我們在程序中是通過 對象的如下屬性實現(xiàn)：...= （ “ A3”）‘ 設(shè)置試卷頁面紙型With ..‘ 對頁面進行分欄.:=2.=True.=.= （ 5.84）.= （ 2.96）End With..=. （ “ 標(biāo)題 1”）‘ 設(shè)置為 “ 標(biāo)題 1”..Font.Name= “ 黑體” ‘ 字形...=er‘ 對標(biāo)題居中對齊..Font.Size=18 ‘ 標(biāo)題字號 18 號.. “ 2013 學(xué)年第二學(xué)期九年級第一次月考+Chr （ 10）” ‘ 設(shè)置一級標(biāo)題，Chr （ 10）為換行（ 2）試卷試題設(shè)置該模塊分為四大塊：基本知識 （ 選擇題和填空題）、現(xiàn)代文、文言文 （ 文言文閱讀和古詩）和寫作。

教師按照試卷的要求選擇需要的題型，在對應(yīng)題型下輸入題數(shù)，若輸入的題數(shù)大于系統(tǒng)庫中的題數(shù)，則系統(tǒng)會有相應(yīng)提示。試題是從試題庫中隨機抽取的，并要求不能再次抽中，所以，在隨機生成函數(shù) Rnd 前加上 函數(shù)，這樣可以避免抽到的試題被重復(fù)抽中。（ 3）試卷的卷面內(nèi)容排版試卷的排版主要包括試卷的標(biāo)題、字體大小及段落格式等方面。 這些都可以利用 對象中的以下性能來實現(xiàn)自動排版。..=. （ “ 標(biāo)題 2”）‘ 設(shè)置二級標(biāo)題..Font.Size=12‘ 二級標(biāo)題字號為 12 號..Font.Name= “ 黑體”‘ 二級標(biāo)題字體為宋體摘要：教師一般應(yīng)用 Word 來命制試卷，但收集試題和排版工作量非常繁重，利用 VBA 在 Word 中的應(yīng)用，開發(fā)一個自帶試題庫，教師可以對題庫進行添加、修改和刪除試題等功能；并能夠?qū)λx擇的題目進行自動排版。 教師可以高效完成一份高質(zhì)量的試卷，徹底減輕教師命制試題的工作量。關(guān)鍵詞：Word；VBA；自動排版VBA 在 Word 中的應(yīng)用———自動生成試卷文/余姝華124