計算機論文試題庫管理系統(tǒng)畢業(yè)論文.doc

《計算機論文試題庫管理系統(tǒng)畢業(yè)論文.doc》由會員分享，可在線閱讀，更多相關(guān)《計算機論文試題庫管理系統(tǒng)畢業(yè)論文.doc（20頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、 試題庫管理系統(tǒng) （ 摘要：隨著計算機辦公自動化程度的不斷提高，開發(fā)各種數(shù)據(jù)庫管理應用軟件用于各種工作中能有效地提高工作效率，節(jié)省時間，能使學校的教學工作上一個新的臺階。傳統(tǒng)的人工命題形成試卷，往往會出現(xiàn)大量的重復勞動，并且形成的試卷因出卷人的不同其質(zhì)量會差距很大，這樣一來會直接導致考試結(jié)果波動很大，使考試的科學考評效果大幅度降低，這也往往引起學生和教師的廣泛議論和關(guān)注，解決這一早就出現(xiàn)的問題一直是許多人的迫切愿望，由于各種考試名目繁多，試卷內(nèi)容廣雜，使出卷難度加大，要出一份好試卷更是難上加難；另外，許多基礎(chǔ)學科內(nèi)容長期不變或基本不變，這就使建立試題庫成為

2、非常必要和可能。通過篩選、總結(jié)、修正，使以往大量優(yōu)秀的試題進入試題庫，繼承了前人辛勤的勞動和智慧的結(jié)晶，也順應了標準化命題的要求。 本系統(tǒng)是在WINDOWS98平臺上，以Visual Basic6.0為工具，利用OLE等技術(shù)設(shè)計實現(xiàn)了一個試題庫管理系統(tǒng)。系統(tǒng)設(shè)有特權(quán)用戶（Supervisor），對系統(tǒng)的所有資源實施管理；一般用戶只可選擇訪問已經(jīng)授權(quán)可訪問的資源。為試卷選題可通過人工進行，也可給出各種具體的條件，然后由程序自動來選定完成。試卷內(nèi)容是文本文檔處理的各種數(shù)據(jù)。 關(guān)鍵詞：OLE；試題庫；試卷生成；試卷管理 中圖分類號：TP311 應用Visual Basic6.0可視化編

3、成工具開發(fā)軟件速度快，界面實現(xiàn)簡單方便，具有高可靠性、便于維護調(diào)試和高效率等突出優(yōu)點。在深入學習和研究了Visual Basic6.0這一可視化繼承開發(fā)環(huán)境的基礎(chǔ)上和在參閱了大量文獻資料的基礎(chǔ)上，同時了解到我國大、中學校錄取新學生、考察學生學習情況的手段主要還是通過考試，而每次考試，都要花費老師大量的心血去篩選試題、組織試卷、整理試題答案等。根據(jù)這些情況，我們開發(fā)設(shè)計了該《試題庫管理系統(tǒng)》應用軟件，以實現(xiàn)課程的試題庫管理和處理，相信它必將在教學中發(fā)揮積極的作用。 1. 概述 1.1 研究背景 1. 隨著計算機辦公自動化程度的不斷提高，開發(fā)各種數(shù)據(jù)庫管理應用軟件用于

4、各種工作中能有效地提高工作效率，節(jié)省時間，能使學校的教學工作上一個新的臺階。傳統(tǒng)的人工命題形成試卷，往往會出現(xiàn)大量的重復勞動，并且形成的試卷因出卷人的不同其質(zhì)量會差距很大，這樣一來會直接導致考試結(jié)果波動很大，使考試的科學考評效果大幅度降低，這也往往引起學生和教師的廣泛議論和關(guān)注，解決這一早就出現(xiàn)的問題一直是許多人的迫切愿望，由于各種考試名目繁多，試卷內(nèi)容廣雜，使出卷難度加大，要出一份好試卷更是難上加難；另外，許多基礎(chǔ)學科內(nèi)容長期不變或基本不變，這就使建立試題庫成為非常必要和可能。通過篩選、總結(jié)、修正，使以往大量優(yōu)秀的試題進入試題庫，繼承了前人辛勤的勞動和智慧的結(jié)晶，也順應了標準化命題的要求。

5、 2. 該試題庫管理系統(tǒng)由本人和司秀華同學共同開發(fā)完成。所有的源代碼都調(diào)試運行通過，達到了所有的預期目標。優(yōu)秀的試題可進入試題庫直接參與以后的試題而生成新的試卷。可直接從中抽取試卷（必要時可稍作修改）用于考試。 1.2 本論文所做的工作 該試題庫系統(tǒng)是一個文史類試題庫管理系統(tǒng)，即:該系統(tǒng)可由特權(quán)用戶（supervisor）為課程創(chuàng)建其試題庫。系統(tǒng)設(shè)有特權(quán)用戶（supervisor）對系統(tǒng)的所有資源實施管理，同時管理用戶群：向系統(tǒng)添加用戶、撤銷用戶、分配向系統(tǒng)注冊進入的口令和用戶名。而一般用戶只可選擇訪問已經(jīng)授權(quán)可訪問的資源。以一般用戶身份向系統(tǒng)注冊進入后，“用戶管理”菜單項為不可見項。為試

6、卷選題可通過人工進行，也可給出各種具體的條件，然后由程序自動來選定完成。選題完成后可對所有試題進行預覽并可再次決定各題的去留，然后在此基礎(chǔ)上再次進行管理，直到滿意為止。能為多門課程創(chuàng)建試題庫，并對其試題庫進行維護管理。試題內(nèi)容可以是文本文檔所能處理接受的文字、數(shù)字、字母等數(shù)據(jù)。試卷最后生成于文本文檔中。自動保存歷史試卷而逐漸形成試卷庫，為直接抽取試卷（必要時可稍作修改）用于考試提供了可能。 本系統(tǒng)的一級主功能菜單有：試題管理 試卷管理 用戶管理 幫助 退出系統(tǒng) 。二級主功能菜單有：添加試題 瀏覽試題 取消選中標記 輸入選題條件 自動選題 試卷預覽 生成試卷 添加用戶

7、 刪除用戶。 單個試題有它的單個的價值和意義，而試卷有它的整體價值和意義；根據(jù)需要可以人工選定試題，然后生成試卷。 本系統(tǒng)主要有以下幾個突出的特點： 1.能自動為課程創(chuàng)建試題庫，并進行維護管理。 2.系統(tǒng)是開放的。用戶可向系統(tǒng)內(nèi)添加試題，可對其中的試題進行修改，也可對其中的試題進行刪除操作。 3.選題可手工進行，也可根據(jù)給定的條件由程序自動完成。 4.利用試題庫中試題自動生成試卷。 在試題內(nèi)容輸入后，自動生成文本文檔。 1.3 開發(fā)本系統(tǒng)的軟件和硬件環(huán)境 硬件環(huán)境： 兼容機 Pentium 4/256M RAM/40G/17’ 軟件環(huán)境：

8、 操作系統(tǒng)：Microsoft Windows XP 開發(fā)工作：Visual Basic6.0 2. 通用試題庫系統(tǒng)需求分析 按照軟件工程基本理論要求，軟件開發(fā)以前必須向用戶反復進行需求調(diào)查并形成需求規(guī)格說明書，在軟件開發(fā)中仍要繼續(xù)進行，并對已經(jīng)形成的需求規(guī)格說明進行修改和補充，直到軟件產(chǎn)品開發(fā)完成為止。下面是本系統(tǒng)已經(jīng)形成的最終的需求規(guī)格說明書。 2.1需求規(guī)格說明 1.為有效規(guī)范管理考試及試卷命題需開發(fā)該系統(tǒng)。 2.設(shè)定特權(quán)用戶（supervisor）來統(tǒng)一管理用戶群，給他們分配使用權(quán)限和口令， 通過對使用權(quán)限

9、的控制來限制某些用戶使用課程的試題庫。若用戶口令丟失可由特權(quán)用戶解鎖并重新分配口令;用戶在合法進入系統(tǒng)后能修改自己的口令。特權(quán)用戶（supervisor）可從系統(tǒng)中撤銷其他用戶，也可向系統(tǒng)中添加用戶；特權(quán)用戶（supervisor）若以其他用戶名進入系統(tǒng)“用戶管理”主菜單項不可見。 3.根據(jù)需要能為課程創(chuàng)建試題庫。每試題均有大題號、難度系數(shù)、知識點。 4.每題及其相應屬性按題型由手工輸入來完成。 5.試題內(nèi)容可以是多樣化的各種文字、字母、數(shù)字以及各種符號等等。 6.能瀏覽、修改、刪除系統(tǒng)內(nèi)任一所有試題。 7.試題選題分兩種： a).所有試題均有人工選定。 b).在人工選定試題

10、的基礎(chǔ)上，由系統(tǒng)按用戶給出的選題條件自動隨機補足剩余試題。試題條件包括題型、知識點、難度系數(shù)。其中題型和題數(shù)必須給出，知識點或難度系數(shù)可給出也可不給出，若不給出，則程序認定該項不受限制和約束，即任意數(shù)據(jù)皆可。 8.在人工選定試題的過程中，隨時可獲知已選定試題的數(shù)量等匯總情況。 9.試題選定后可進行預覽（對所有已經(jīng)選定的試題），預覽過程中可取消任意題 的選中標記，經(jīng)調(diào)整后最后結(jié)束選題。 10.試題選定按給定的難度比以及知識點覆蓋面要求進行。在由程序自動按用戶給出的選題條自動隨機補足剩余試題該情況中，可通過對難度系數(shù)和知識點的輸入的控制來實現(xiàn)這一要求。 該系統(tǒng)完全按照以上形成的需求規(guī)格說

11、明書開發(fā)設(shè)計完成，并達到了所有預期的目標。 2.2建立UML模型 試題庫系統(tǒng)用例圖 用戶管理 添加用戶 撤銷用戶 試題管理 試卷管理 輸入選題條件 自動選題 生成試卷 添加試題 瀏覽試題 取消選中標記 試卷預覽 人工選題 特權(quán)用戶 普通用戶 (特權(quán)用戶) 2.3功能級數(shù)據(jù)流圖 用戶 驗證 口令 顯示出錯信息 用戶 用戶名 口 令 添加 試題 輸入選題條件 自 動 選 題 生 成 試 卷

12、試 卷 預 覽 瀏覽 試題 人工 試題 取消選中標記 選 題 不 滿 意 3. 試題庫系統(tǒng)功能及試題庫的設(shè)計 3.1系統(tǒng)總體結(jié)構(gòu) 用 戶 名 庫 知識 點 庫 試題庫 試 卷 用戶管理模式 添加試題模式 題庫維護模式 自動抽取試題模式 生成試卷模式 主菜單控制界面 數(shù)據(jù)庫 功能實現(xiàn)層 第一層是數(shù)據(jù)庫，即試題庫

13、的底層，由知識點庫、用戶名庫、試題庫組成。其中知識點庫主要為用戶輸入數(shù)據(jù)或查詢提供基礎(chǔ)幫助數(shù)據(jù)，它存儲的主要內(nèi)容是課程卡是的知識要點，知識點代碼的劃分由章到節(jié)再到具體的節(jié)內(nèi)的點。它由6位數(shù)構(gòu)成；第一個兩位代表章，第二個兩位代表節(jié)，最后兩位落實到具體的節(jié)內(nèi)的點。試題庫用來存放試題的屬性及內(nèi)容。 第二層是功能實現(xiàn)層。系統(tǒng)的所有功能都以模塊的形式在第二層中實現(xiàn)。功能模塊包括用戶管理模塊、添加試題模塊、題庫維護模塊、自動抽取試題模塊、生成試卷模塊、試卷的編輯模塊。 第三層是面向用戶的人機交互界面，主要由主菜單系統(tǒng)構(gòu)成。 除此之外，系統(tǒng)還設(shè)計了比較完善的幫助信息系統(tǒng)。 3.2系統(tǒng)的功能結(jié)構(gòu) 試

14、題庫管理系統(tǒng)各功能以菜單的形式呈現(xiàn)給用戶： 試題管理 試卷管理 用戶管理 幫助 退出系統(tǒng) 添加用戶 刪除用戶 輸入選題條件 自動選題 試卷預覽 生成試卷 添加試題 瀏覽試題 取消選中標記 各功能模塊的簡介： 1.添加試題 向選定的試題庫試題表內(nèi)添加試題。 在“添加試題”中，將數(shù)據(jù)輸入足夠大的空白方塊內(nèi)，用戶在輸入試題內(nèi)容后，點擊確定內(nèi)容最后保存在文檔中。[ 圖示1 ] 2.瀏覽試題 順序上下翻閱每一道試題，進入瀏覽界面以前，先要給出試題過濾條件。

15、 [ 圖示2 ] 圖1.添加試題界面 圖2.進入“瀏覽試題”狀態(tài)前首先看到以下界面： 3.取消選中標記 取消所有人工或程序加在試題上的選中標記。 4.添加用戶 由特權(quán)用戶向系統(tǒng)中添加新注冊用戶名，并分配口令。 5.撤銷用戶 由特權(quán)用戶從系統(tǒng)中撤銷某一注冊用戶名，以后系統(tǒng)將拒絕以該用戶名向系統(tǒng)注冊進入。 6.選題條件：在人工選定選題的基礎(chǔ)上由系統(tǒng)按要求自動隨機補足剩余試題而要求系統(tǒng)自動選題時要給出各項具體數(shù)據(jù)要求，其中知識點和難度系數(shù)可不給出外，其余各項必須給出，未給

16、出的項即認為任意數(shù)據(jù)皆可（程序?qū)礋o法任何限制處理）；知識點上限是用來限制出題范圍的，主要是為了適應期中考試和期末考試（知識點上限不輸入即可）不同的需要，上限知識點不包括在出題知識點范圍之內(nèi)。輸入所有要求后，點擊“結(jié)束”命令結(jié)束輸入，然后點擊“自動選題”即可開始自動選題，自動選題將嚴格按照如上輸入的要求數(shù)據(jù)進行，若沒有符合條件的題則不選，最后等待進行人工調(diào)整。[ 圖示3 ] 圖3.輸入選題條件界面 7.自動選題 按“輸入選題條件”中給出的條件隨機地抽取試題。 8.生成試卷 將選定的試題自動生成文本文檔。 9.將已選定的試題按成卷的順序顯示出來供用戶翻閱瀏覽，并可再次決定各題的

17、去留。 10.退出系統(tǒng) 退出試題庫系統(tǒng)，回到操作系統(tǒng)環(huán)境。 3.3 試題由人工選定 人工選定試題在“瀏覽試題”功能中進行，該功能的操作界面是所有操作界面中比較復雜的一個，該功能也是本試題庫系統(tǒng)所有功能中使用較為頻繁的一個功能。刪除試題這一功能就在該界面中進行，這樣一來就不必再另外創(chuàng)建一個窗體來實現(xiàn)它。 點擊“上一題”、“下一題”命令按鈕即可上下翻閱每一題，點擊“選中”即可選中當前題、左上角小方框內(nèi)即出現(xiàn)“＋”符號，表現(xiàn)當前題已經(jīng)加上選中標記“＋” ；再點擊“選中”一次則取消當前題已經(jīng)加上的選中標記“＋”。 3.4 數(shù)據(jù)庫設(shè)計 試題庫采用ACCESS數(shù)據(jù)庫系統(tǒng)。

18、1.試題庫結(jié)構(gòu)： xishu 難度系數(shù) integer tag 選題狀態(tài) text 1 tag=“＋”時，說明該題處于選中狀態(tài)，否則處于非選中狀態(tài) zhishidian 知識點代號 text 50 datihao 大題號 text 50 題型代碼，選題型后由程序自動給出相應的代碼 hao

19、 integer 2 在隨機選題開始前，由程序自動填寫所有符合條件試題的序號，用以和隨機數(shù)生成函數(shù)Rnd掛鉤 2. 知識點表 知識點表結(jié)構(gòu)： zhishidian text 50 其內(nèi)容為：知識點代碼＋知識點簡單描述語 知識點的編碼： 知識點編碼采用6位數(shù)編碼，前兩位表示第幾章，中間兩位表示第幾節(jié)， 最后兩位表示該節(jié)中考試知識的出處。例如：110521，它表示該題出自11章

20、 5節(jié)的21知識內(nèi)容處，這樣編碼使題庫程序控制選題章節(jié)便于實現(xiàn)。并可按 試題進行排序。在輸入自動選題條件時，可由給出知識點來控制試題的具體出處， 同時可由給出知識點上限來控制試題選擇的連續(xù)范圍。期中考試試題范圍依此法 設(shè)定。 3.自動選題條件表 表結(jié)構(gòu)： datihao text 50 所屬大題題號 tishu integer 選題個數(shù) zhishidian text 50 知

21、識點要求 xishu text 50 難度系數(shù) 4 .關(guān)鍵技術(shù)、難點及解決方案 1.本系統(tǒng)在不同盤符下，它的路徑也發(fā)生變化，因此程序讀取數(shù)據(jù)的來源也要同步 變化，這就要求DATA控件對數(shù)據(jù)庫、表的綁定必須動態(tài)實現(xiàn)，從而保證數(shù)據(jù)的來 源與課程保持一致。如可采用如下代碼實現(xiàn)： Private Sub Form_Activate() Data1.DatabaseName = App.Path & "\tiku.mdb" Data1.Refresh End Sub 2.按用戶給出的條件，由程序自動選題功能

22、的實現(xiàn) 算法描述：首先按試題條件表中第一個選題條件從試題表中按該條件過濾出符合條件的試題 子集。若過濾出的符合條件的試題數(shù)少于或等于條件中要求的題數(shù)，則全部選中過濾出的試題； 若過濾出的符合條件的試題數(shù)多于條件中要求的題數(shù)，則調(diào)用隨機函數(shù)Rnd隨機地選出該選題條件中題數(shù)值所要求的試題數(shù)；然后按選題條件表中第二條件從試題表中過濾出符合該條件同時未加選中標記的試題子集，從中選出該試題條件中題數(shù)值所要求的試題數(shù)；然后按選題條件表中第三個條件 ……。依次進行，直到按選題條件表中的所有條件選出所有的符合條件的試題為止，最后結(jié)束自動選題。 算法的代碼實現(xiàn)如下： Load Form

23、11 Form11.Show Dim s As String s = Module1.s Data1.DatabaseName = App.Path & "\tiku.mdb" Data1.Refresh Data2.DatabaseName = App.Path & "\tiku.mdb" Data2.Refresh Dim i, j As Integer Do While Not Data1.Recordset.EOF If Len(Trim(s)) = 0 Then If IsNull(Data1.Recordset.xishu) Then

24、 If IsNull(Data1.Recordset.zhishidian) Then Data2.RecordSource = "select * from biao1 where (tag<>+ or isnull(tag))" & " and trim(datihao)=" & Trim(Data1.Recordset.datihao) & "" Else Data2.RecordSource = "select * from biao1 where (tag<>+ or isnull(tag

25、))" & " and trim(datihao)=" & Trim(Data1.Recordset.datihao) & " and trim(zhishidian) =" & Left(Trim(Data1.Recordset.zhishidian), 6) & "" End If Else If IsNull(Data1.Recordset.zhishidian) Then Data2.RecordSource = "select * from biao1 where (tag<>+ or isnul

26、l(tag))" & " and trim(datihao)=" & Trim(Data1.Recordset.datihao) & " and xishu=" & Trim(Data1.Recordset.xishu) & "" Else Data2.RecordSource = "select * from biao1 where (tag<>+ or isnull(tag))" & " and trim(datihao)=" & Trim(Data1.Recordset.datihao) & " and trim(zhishidian)

27、=" & Left(Trim(Data1.Recordset.zhishidian), 6) & " and xishu=" & Trim(Data1.Recordset.xishu) & "" End If End If Else If IsNull(Data1.Recordset.xishu) Then If IsNull(Data1.Recordset.zhishidian) Then Data2.RecordSource = "select * from biao1 whe

28、re trim(zhishidian) <" & Trim(s) & " and (tag<>+ or isnull(tag))" & " and trim(datihao)=" & Trim(Data1.Recordset.datihao) & "" Else Data2.RecordSource = "select * from biao1 where trim(zhishidian) <" & Trim(s) & " and (tag<>+ or isnull(tag))" & " and trim(datihao)=" & Trim(D

29、ata1.Recordset.datihao) & " and trim(zhishidian) =" & Left(Trim(Data1.Recordset.zhishidian), 6) & "" End If Else If IsNull(Data1.Recordset.zhishidian) Then Data2.RecordSource = "select * from biao1 where trim(zhishidian) <" & Trim(s) & " and (tag<>+ or isn

30、ull(tag))" & " and trim(datihao)=" & Trim(Data1.Recordset.datihao) & " and xishu=" & Trim(Data1.Recordset.xishu) & "" Else Data2.RecordSource = "select * from biao1 where trim(zhishidian) <" & Trim(s) & " and (tag<>+ or isnull(tag))" & " and trim(datihao)=" & Trim(Data1.Reco

31、rdset.datihao) & " and trim(zhishidian) =" & Left(Trim(Data1.Recordset.zhishidian), 6) & " and xishu=" & Trim(Data1.Recordset.xishu) & "" End If End If End If Data2.Refresh If Data2.Recordset.BOF Then Data1.Recordset.MoveNext Else i = 1

32、 1’ Do While Not Data2.Recordset.EOF Data2.Recordset.Edit Data2.Recordset.hao = i Data2.Recordset.Update Data2.Recordset.MoveNext i = i + 1 Loop

33、 2’ If i - 1 <= Data1.Recordset.tishu Then 3’ Data2.Recordset.MoveFirst Do While Not Data2.Recordset.EOF Data2.Recordset.Edit Data2.Recordset.Tag = "+" Data2.Recordset.Update Data2.Recordset.Mo

34、veNext Loop 4’ Data1.Recordset.Edit Data1.Recordset.tishu = 0 Data1.Recordset.Update Data1.Recordset.MoveNext Else Do While Data1.Recordset.tishu > 0 j = Int(Rnd

35、* 100) 5’ If j = i - 1 Or j = 1 Or (j < i - 1 And j > 1) Then Data2.Recordset.FindFirst ("Trim(hao)=" & Trim(Str(j))) If Data2.Recordset.Tag <> "+" Or IsNull(Data2.Recordset.Tag) Then Data2.Recordset

36、.Edit Data2.Recordset.Tag = "+" Data2.Recordset.Update Data1.Recordset.Edit Data1.Recordset.tishu = Data1.Recordset.tishu - 1 Data1.Recordset.Update

37、 End If End If Loop 6’ Data1.Recordset.MoveNext End If End If Loop j = MsgBox("自 動 選 題 已 經(jīng) 結(jié) 束 ?。?！", vbOKOnly, "") Unload Form10 Load Form1 Form1.Show 1’-2’：為所有過濾出的符合條件試題記錄按順序添入序號1，2，3，……

38、 3’-4’：若過濾出的符合條件的試題數(shù)少于或等于條件中要求的題數(shù)，則全部選中 過濾出的試題 5’-6’：若過濾出的符合條件的試題數(shù)多于條件中要求的題數(shù)，則調(diào)用隨機函數(shù)Rnd，當Int（Rnd * 100）等于符合條件的某試題的記錄序號且該題未被選中過，則選中它，否則再由Int （Rnd * 100）生成隨機整數(shù)然后與符合條件的試題的記錄序號比較且查看它的選中標 記，依次類推，直到所需要的試題數(shù)全部選出為止。每選中一題，選題條件中的題數(shù)值 減一，直到題數(shù)值減到零為止，然后如上步驟按下一個要求條件進行選題，直到選出 所有符合各個條件試題為止。 3.生成試卷 [ 圖示4

39、] 算法描述：采用OLE自動化技術(shù)(該技術(shù)比對象鏈接更進了一步)，利用記事本提供的OLE自動化對象已經(jīng)選擇好并按成卷合并寫入一個試卷記事本中。首先為存儲試卷創(chuàng)建一個可編輯的空記事本并打開它，然后打開第一試題對應的記事本，全選其內(nèi)容并復制到剪貼板上，激活試卷記事本文檔，將剪貼板上的內(nèi)容粘貼進來；然后打開第二試題對應的記事本，全選其內(nèi)容并復制到剪貼板上，激活試卷記事本；……。依此繼續(xù)，直到所有試題內(nèi)容都粘貼進來為止。 Private Sub Form_Activate() Data1.DatabaseName = App.Path & "\tiku.mdb" Data1.Refresh

40、Dim fso As New FileSystemObject Dim ts As TextStream Dim ts1 As TextStream Dim fl As File Dim fl1 As File Set ts = fso.CreateTextFile(App.Path & "\tikupaper.txt", True) ts.Close Set ts = fso.OpenTextFile(App.Path & "\tikupaper.txt", ForAppending, True) Do While Not Data1.Recordset.EOF

41、RichTextBox1.SaveFile App.Path & "\shiti.txt", 1 Set ts1 = fso.OpenTextFile(App.Path & "\shiti.txt", ForReading) ts.Write (ts1.ReadAll) ts.WriteBlankLines (3) ts1.Close Data1.Recordset.MoveNext Loop ts.Close OLE1.Visible = True OLE1.Class = "word.document.8" OLE1.Di

42、splayType = 0 OLE1.SourceDoc = App.Path & "\tikupaper.txt" OLE1.Action = 1 OLE1.Refresh 圖4. 已 生 成 樣 卷 示 例 結(jié)束語： 經(jīng)過二個多月的設(shè)計和開發(fā)，試題庫管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成一般科目試卷中試題的存儲和抽取。并提供部分系統(tǒng)維護功能,使用戶方便進行試題存儲、試題刪除、試題瀏覽、試卷預覽、試卷生成、用戶添加、用戶刪除功能。對于試題自動抽取也通過程序進行了有效的解決。 但是由于畢業(yè)設(shè)計

43、時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如附加功能實現(xiàn)比較少，用戶界面不夠美觀，無打印模塊等多方面問題，這些都有待進一步改善。本軟件公開使用，在以后的教學過程中，任何人、任何學校可以根據(jù)自身的需要，可進一步開發(fā)和完善，使該軟件能夠達到量體裁衣理想的使用效果。 致謝 在本次畢業(yè)設(shè)計中，我從指導老師肖輝老師身上學到了很多東西。肖輝老師認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。 另外，在系統(tǒng)開發(fā)過程中本系尹貴祥老師也給予我們很大的幫

44、助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學同樣給與我不少幫助，這里一并表示感謝。 參考文獻 [1]尹貴祥. Visual Basic6.0程序設(shè)計案例教程[M]. 中國鐵道出版社，2005.1 [2]羅仕鑒. 人機界面設(shè)計[M]. 機械工業(yè)出版社，2002.9 [3]胡志君，高燕林等譯. SQL編程習題與解答[M]. Fundamentals of SQL Programming 中信出 版社，2002.8 [4]朱三元，錢樂秋等. 軟件工程技術(shù)概論[M]. 科學出版社，2002.4 [5]薛亮. Visual Basic6.0實用教程

45、[M]. 西安電子科技大學出版社，2002.9 [6]呂偉臣，霍言編. Visual Basic6.0初級編程教程[M]. 北京大學出版社，2002.6 [7] 何光渝. VB常用算法大全[M]. 西安電子科技大學出版社，2000.9 [8] 劉燕. Visual Basic程序設(shè)計[M].交通大學出版社，2000.9 [9] [美] J.Roff. Visual Basic 6.0 數(shù)據(jù)庫開發(fā)[M]. 清華大學出版社，1999.1 [10] 徐新華. 圖形用戶界面編程技術(shù)[M]. 清華大學出版社，2000.6 [11]曾偉民，鄧勇剛等. Visual Basic6.0高級實用教程[M]. 電子工業(yè)出版社，1999.10 [12]王虹. Visual Basic6.0實用教程[M]. 人民郵電出版社，1999.3 20