【導(dǎo)讀】易于使用、抽題時具有很大的隨機性等特點。在開發(fā)軟件的同時，使。本人掌握了軟件開發(fā)的基本知識，以及學(xué)到解決問題的方法。工具編寫而成的。本軟件的通用性很好，可以在大多數(shù)操作平臺上使

　　

【正文】 提示 Exit Sub End If i = 1 With .MoveFirst While Not .EOF TX = Trim(.Fields!題型 ) StrSQL = select * from 人工組卷信息 where 題型 =39。 amp。 Trim(TX) amp。 39。 = StrSQL If 0 Then FZ = 0 While Not 39。計算每一個題型的總分數(shù) FZ = FZ + CCur(!分值 ) Wend End If Select Case i Case 1 DBT = 一、 Case 2 DBT = 二、 38 Case 3 DBT = 三、 Case 4 DBT = 四、 Case 5 DBT = 五、 Case 6 DBT = 六、 Case 7 DBT = 七、 End Select = StrSQL If 1 Then MsgBox 人工組卷錯誤，當前無符合題型 amp。 Trim(TX) amp。 的試 題信息記錄！ , vbExclamation, 系統(tǒng)提示 Else TS = 0 While Not TS = TS + 1 Wend Select Case Trim(TX) Case 單項選擇題 DBT = DBT amp。 單項選擇題，本大題 共 amp。 amp。 個小題，共 amp。 Trim(FZ) amp。 分，在每小題給出的四個選項中，只有一項是符合題目要求的。 TxtNR = Trim(TxtNR) amp。 Trim(DBT) amp。 vbCrLf amp。 vbCrLf For k = 1 To TS 39 TxtNR = Trim(TxtNR) amp。 Trim(k) amp。 amp。 Trim(!題目 ) amp。 ( amp。 Trim(!分值 ) amp。 分 )( ) amp。 vbCrLf amp。 vbCrLf TxtNR = Trim(TxtNR) amp。 A、 amp。 Trim(!選項 1) amp。 B、 amp。 Trim(!選項 2) amp。 C、 amp。 Trim(!選項 3) amp。 D、 amp。 Trim(!選項 4) amp。 vbCrLf amp。 vbCrLf 39。k = k + 1 Next Case 多項選擇題 DBT = DBT amp。 多項選擇題，本大題共 amp。 amp。 個小題，共 amp。 Trim(FZ) amp。 分，在每小題給出的五 個選項中，至少有一項是符合題目要求的。 TxtNR = Trim(TxtNR) amp。 Trim(DBT) amp。 vbCrLf amp。 vbCrLf For k = 1 To TS TxtNR = Trim(TxtNR) amp。 Trim(k) amp。 amp。 Trim(!題目 ) amp。 ( amp。 Trim(!分值 ) amp。 分 )( ) amp。 vbCrLf amp。 vbCrLf TxtNR = Trim(TxtNR) amp。 A、 amp。 Trim(!選項 1) amp。 B、 amp。 Trim(!選項 2) amp。 C、 amp。 Trim(!選項 3) amp。 D、 amp。 Trim(!選項 4) amp。 E、 amp。 Trim(!選項 5) amp。 vbCrLf amp。 vbCrLf 39。k = k + 1 Next Case 判斷題 DBT = DBT amp。 判斷題，本大題共 amp。 amp。 個小題，共 amp。 Trim(FZ) amp。 分，判斷下面的題目內(nèi)容，正確的打鉤，錯誤的打叉。 TxtNR = Trim(TxtNR) amp。 Trim(DBT) amp。 vbCrLf amp。 vbCrLf For k = 1 To TS 40 TxtNR = Trim(TxtNR) amp。 Trim(k) amp。 amp。 Trim(!題目 ) amp。 ( amp。 Trim(!分值 ) amp。 分 )( ) amp。 vbCrLf amp。 vbCrLf 39。k = k + 1 Next Case 解答題 DBT = DBT amp。 解答題，本大題共 amp。 amp。 個小題，共 amp。 Trim(FZ) amp。 分，根據(jù)題目描述，在下方寫出相應(yīng)的答案。 TxtNR = Trim(TxtNR) amp。 Trim(DBT) amp。 vbCrLf amp。 vbCrLf For k = 1 To TS TxtNR = Trim(TxtNR) amp。 Trim(k) amp。 amp。 Trim(!題目 ) amp。 ( amp。 Trim(!分值 ) amp。 分 ) amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf 39。k = k + 1 Next Case 作文題 DBT = DBT amp。 作文題，本大題共 amp。 amp。 個小題，共 amp。 Trim(FZ) amp。 分，根據(jù)題目描述寫作文。 TxtNR = Trim(TxtNR) amp。 Trim(DBT) amp。 vbCrLf amp。 vbCrLf For k = 1 To TS TxtNR = Trim(TxtNR) amp。 Trim(k) amp。 amp。 Trim(!題目 ) amp。 ( amp。 Trim(!分值 ) amp。 分 ) amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf 39。 k = k + 1 Next Case 翻譯題 41 DBT = DBT amp。 翻譯題，本大題共 amp。 amp。 個小題，共 amp。 Trim(FZ) amp。 分 TxtNR = Trim(TxtNR) amp。 Trim(DBT) amp。 vbCrLf amp。 vbCrLf For k = 1 To TS TxtNR = Trim(TxtNR) amp。 Trim(k) amp。 amp。 Trim(!題目 ) amp。 ( amp。 Trim(!分值 ) amp。 分 ) amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf Next Case 論述題 DBT = DBT amp。 論述題，本大題共 amp。 amp。 個小題，共 amp。 Trim(FZ) amp。 分 TxtNR = Trim(TxtNR) amp。 Trim(DBT) amp。 vbCrLf amp。 vbCrLf For k = 1 To TS TxtNR = Trim(TxtNR) amp。 Trim(k) amp。 amp。 Trim(!題目 ) amp。 ( amp。 Trim(!分值 ) amp。 分 ) amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf 39。k = k + 1 Next End Select End If TxtNR = TxtNR amp。 vbCrLf i = i + 1 .MoveNext Wend End With MsgBox 人工組卷成功！ , vbInformation, 系統(tǒng)提示 42 試卷管理與輸出模塊 本模塊實現(xiàn)了對自動組卷或者人工組卷而成的試卷管理和輸出功能，在試卷分類管理模塊中，可以按照學(xué)校、年級、科目等條件對試卷進行分類管理；在試卷輸出模塊，可以將選定的試卷輸出為 word 文檔，方便排版打印，其運行效果圖如圖 所示。 圖 試卷管理輸出窗體 在本模塊中實現(xiàn)試卷輸出到 word 功能時所執(zhí)行的關(guān)鍵代碼如下所示： With 39。先將數(shù)據(jù)庫當中要輸出的內(nèi)容放入富文本框當中，然后再使用文本框保存 word 的功能直接輸出 word = .Fields!試卷標題 amp。 vbCrLf amp。 vbCrLf amp。 .Fields!試卷內(nèi)容 End With = 請指定要輸出的文件名 = Word 文檔 (*.doc)|*.doc = 3 43 If Trim() Then Trim() MsgBox 試卷輸出成功！ , vbInformation, 系統(tǒng)提示 End If Exit Sub 系統(tǒng)用戶管理模塊 本窗體模塊實現(xiàn)了對本系統(tǒng)用戶的相關(guān)信息進行設(shè)置的功能，包括對用戶信息的添加、修改、刪除、查詢等功能。 本子窗體設(shè)置產(chǎn)生的記錄為本系統(tǒng)使用者提供了數(shù)據(jù)依據(jù)。其運行效果 如圖 所示。 圖 系統(tǒng)用戶管理窗體 本模塊中實現(xiàn)記錄“刪除”時所執(zhí)行的部分代碼如下所示： 44 If 1 Then MsgBox 數(shù)據(jù)庫中已無任何用戶信息記錄 !刪除失敗 !, vbCritical, 刪除記錄 Exit Sub End If If MsgBox(您真的要刪除用戶名為 amp。 Trim(!用戶名 ) amp。 的相關(guān)信息記錄嗎？ , vbYesNo + vbQuestion, 刪除記錄 ) = vbYes Then MsgBox 數(shù)據(jù)刪除成功！ , vbInformation, 系統(tǒng)提示 If 1 Then = 數(shù)據(jù)庫中已無任何用戶信息記錄 AllClear Exit Sub End If ShowData End If 45 6 總結(jié) 經(jīng)過三個多月的設(shè)計和開發(fā)，試題庫管理系統(tǒng)基本開完畢。其功能基本符合學(xué)校管理者需求，能夠完成各個專業(yè)各門學(xué)科的試題錄入，根據(jù)要求自動成卷等多方面的功能。在整個應(yīng)用軟件開發(fā)過程中使用原型法，并且根據(jù)面向?qū)ο蟮姆治龊驮O(shè)計思想，進行了系統(tǒng)分析，注重與用戶的直接交流，并不斷修改原型以進一步符合用戶要求。另外，充分利用了一些工具軟件來進行輔助分析和輔助設(shè)計，效果良好。該軟件大大減輕了任課教師的工作強度，提高了教學(xué)水平和工作效率。 在編寫這個軟件的過程中，雖然我竭盡全力，但由于水平有限，設(shè)計時間較短，錯誤在所難免。 所以該系統(tǒng)還有許多不盡如人意的地方，比如手動出卷還不完善，聯(lián)機文檔比較少，系統(tǒng)運行慢，出錯處理不夠等多方面問題。這些都有待進一步改善。試題庫管理系統(tǒng)在完善之后可以順利完成學(xué)校老師出卷的任務(wù)。通過對功能的改進可以完成各科任課教師的要求。 通過畢業(yè)設(shè)計，我學(xué)到了很多東西。是我對大學(xué)多年學(xué)習(xí)生活的一個總結(jié)，使我在各個方面的知識得到充實和進一步系統(tǒng)化；使我對軟件的