【導(dǎo)讀】社會(huì)經(jīng)濟(jì)的飛速發(fā)展也給計(jì)算機(jī)和網(wǎng)絡(luò)技術(shù)的應(yīng)用提供了更廣闊的舞臺(tái)。樣的相互促進(jìn)的結(jié)果是，計(jì)算機(jī)的發(fā)展加快了社會(huì)生活方方面面的節(jié)奏。著學(xué)校的教學(xué)工作。在硬件設(shè)備都達(dá)到了要求之后，使用計(jì)算機(jī)和網(wǎng)絡(luò)來進(jìn)行考。試，不僅是可行的，而且是必要的。

　　

【正文】 總體需求調(diào)查 需求分析 在 對(duì)程序進(jìn)行設(shè)計(jì)的時(shí)候，我調(diào)查了這個(gè)程序目標(biāo)用戶對(duì)這個(gè)系統(tǒng)的需求和期望。在根據(jù)用戶對(duì)程序的實(shí)際需求進(jìn)行綜合后，試題庫程序應(yīng)該具備以下功能和特點(diǎn)： 十四、 友好的程序界面。要考慮考生的答題習(xí)慣，同時(shí)要注意風(fēng)格的設(shè)置，不能分散考生的注意力，也不能存在誤導(dǎo)學(xué)生思路的因素。 十五、 簡便的操作。對(duì)這個(gè)設(shè)計(jì)的初衷就是減少老師的工作量，提高學(xué)生答題速度，和提高試題設(shè)計(jì)效率。因此程序的簡便高效的特性顯得尤為重要。 十六、 符合傳統(tǒng)的出題方法 和思想。 十七、 具有分類選題、隨機(jī)選題、人工手動(dòng)選題、考生考試、成績統(tǒng)計(jì)等功能。最大程度上滿足用戶的需求。 十八、 基本的試題預(yù)覽功能。 十九、 對(duì)現(xiàn)有的試題進(jìn)行修改的功能。 二十、 對(duì)試卷使用狀態(tài)（未使用、使用次數(shù)等）進(jìn)行記錄匯總的功能。 二十一、 統(tǒng)計(jì)試題使用情況（該套題正誤率、及格率、優(yōu)生率等）的功能。 二十二、 對(duì)試題數(shù)據(jù)庫類試題使用情況進(jìn)行統(tǒng)計(jì)匯總的功能。 二十三、 考試結(jié)束具有保存答題情況并自動(dòng)閱卷的功能。 二十四、 生成考試結(jié)果，立即顯示成績，并對(duì)考試結(jié)果匯總后進(jìn)行保存，具有各種題型正誤率、總分等情況。 二十五、 考生二次登陸功能。 二十六、 程序的使用幫助，考生的使用向?qū)А? 應(yīng)用現(xiàn)狀調(diào)查 網(wǎng)絡(luò)考試一直是網(wǎng)絡(luò)教育系統(tǒng)研究的一個(gè)組成部分，考試體系的運(yùn)行與管理實(shí)現(xiàn)規(guī)范化、科學(xué)化、系統(tǒng)化已經(jīng)成為網(wǎng)絡(luò)教育發(fā)展的必然趨勢(shì)。人們要求高效、方便、客觀的出題系統(tǒng)和考試方式。采用在線考試系統(tǒng) , 較之與傳統(tǒng)的計(jì)算機(jī)試題庫相比 , 有更廣泛的適用性和先進(jìn)性。使用在線考試系統(tǒng)的教師或管理員通過互聯(lián)網(wǎng)可以在任何時(shí)間、任何地點(diǎn)進(jìn)行試題庫錄入、編輯、檢索、備份并組卷 , 而且試題庫設(shè)置還具有自主性、開放性和可擴(kuò)充性。 基于 機(jī)上的 在考試 系統(tǒng) 與無紙化辦公一樣已成為大勢(shì)所趨 ， 一個(gè)良好的考試系統(tǒng)能夠有效甚至是決定 性的提高學(xué)校、企業(yè)的考試管理效率，相反，內(nèi)容和功能貧乏的考試系統(tǒng)也就是個(gè)擺設(shè)和象征性的意義而已 !網(wǎng)絡(luò)這種信息平臺(tái)發(fā)展得這么快，對(duì)考試系統(tǒng)的要求也越來越高，而擁有一個(gè)好的考試系統(tǒng)不僅能更好的推動(dòng)學(xué)校、企業(yè)的日常管理，而且更重要的是能夠提升學(xué)校、企業(yè)的形象！ 系統(tǒng)的安全性 要求 系統(tǒng)安全性一直是管理信息系統(tǒng)開發(fā)過程中著重考慮的問題。而系統(tǒng)的安全性又突出地表現(xiàn)在了數(shù)據(jù)安全性上面。試題庫考試系統(tǒng)的設(shè)計(jì)中，對(duì)于數(shù)據(jù)的安全性一般有如下幾個(gè)要求： 在考試開始之前，保證試題不會(huì)泄露； 考試過程中，保證標(biāo)準(zhǔn)答案的安全性； 考試過程中，保證學(xué)生試卷題目不會(huì)雷同，最大程度上防止作弊； 改卷過程中，保證改卷的正確性和準(zhǔn)確性； 保證學(xué)生成績信息的安全性。 第六章 概要設(shè)計(jì) 框架設(shè)計(jì) 系統(tǒng)大的框架下面包括：考試系統(tǒng)、試題庫管理系統(tǒng)、閱卷評(píng)分系統(tǒng)、成績查詢系統(tǒng)。試題庫管理系統(tǒng)又分為：試題管理系統(tǒng)、組卷系統(tǒng)。試題管理包括：試題添加、修改、刪除。 數(shù)據(jù)庫設(shè)計(jì) 3． 2． 1 數(shù)據(jù)字典（簡稱為 DD） 試題庫表 試題編號(hào) 題型編號(hào) 試題分值 題目 選項(xiàng)一 選項(xiàng)二 選項(xiàng)三 選項(xiàng)四 正確答案 使用次數(shù) 答對(duì)次數(shù) 答錯(cuò)次數(shù) 考 生表 考生學(xué)號(hào) 考生姓名 題型表 題型編號(hào) 題型描述 管理表 帳號(hào) 密碼 權(quán)限 說明 3． 3 功能設(shè)計(jì) ● 試題錄入功能 能將每道題的全部信息（包括每道題的題型、難度系數(shù)、分值等）錄入到試題庫中，而且若試題或答案中含有圖形或公式，可以進(jìn)行相應(yīng)的錄入。 ● 題庫管理功能 對(duì)題庫中的試題與答案可進(jìn)行整體瀏覽，或根據(jù)用戶選擇的具體查詢條件進(jìn)行相應(yīng)的查詢，也可以對(duì)試題庫中的試題進(jìn)行修改、刪除等維護(hù)操作。 ● 自動(dòng)組卷功能 根據(jù)用戶指定的試題難度、試題類型從試題庫中隨機(jī)抽取 試題組成一套試卷，答案亦隨機(jī)生成。 ● 試卷瀏覽與修改功能 可對(duì)當(dāng)前試卷進(jìn)行整體瀏覽，并對(duì)不滿意的試題進(jìn)行修改和刪除。 ● 試卷輸出功能 可通過調(diào)用 Word 將當(dāng)前生成的試卷模板進(jìn)行編輯排版，從而生成一套正式的試卷，并可將其打印輸出。 ● 考試分析功能 可實(shí)現(xiàn)成績庫導(dǎo)入、成績統(tǒng)計(jì)與分析、試卷分析等功能。 ● 用戶管理功能 為不同級(jí)別的用戶設(shè)定密碼，登錄后方可實(shí)現(xiàn)對(duì)應(yīng)的操作。 第七章 詳細(xì)設(shè)計(jì) 以下對(duì)系統(tǒng)做詳細(xì)說明： 登陸界面設(shè)計(jì) 功能說明 系統(tǒng)運(yùn)行時(shí)先加載登陸窗體。只有登陸用戶才可 以使用本系統(tǒng)。用戶分為：學(xué)生、教師和系統(tǒng)管理員。 源程序分析 Dim nam As String Dim pass As String Dim user_tp, log_tp As String If Trim() = Then MsgBox 您到底是什么身份？ Exit Sub End If nam = Trim() pass = Trim() 39。 = pass user_tp = Trim() log_tp = Trim() If user_tp = 學(xué)生 Then If Trim() = Or Trim() = Then MsgBox 學(xué)號(hào)和姓名都是必填項(xiàng)！ End If If IsNumeric(nam) = False Then MsgBox 您輸入的真的是數(shù)字嗎？ = Exit Sub End If If Trim() = Then MsgBox 您第幾次登陸？ Exit Sub End If = False 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 log = + + nam + 于 + CStr(Now()) + 嘗試登陸 成功！ Open + \ For Append As 1 Print 1, log Close 1 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 ElseIf user_tp = 教師 Then If Trim() = Or Trim() = Then MsgBox 用戶名和密碼都是必填項(xiàng)！ log = + + nam + 于 + CStr(Now()) + 嘗試登陸 失?。? Open + \ For Append As 2 Print 2, log Close 2 Exit Sub End If nam = Trim() pass = UserCode(Trim()) Dim strSQL As String Dim conn As New Dim rs As New Dim rs_log As New strSQL = amp。 \ strSQL = Replace(strSQL, \\, \) If = adStateOpen Then End If = adUseClient = Provider=。Persist Security Info=False。Data Source= amp。 strSQL Select * from Users where username=39。 + nam + 39。 and pwd=39。 + pass + 39。 and user_type=39。 + user_type + 39。, conn, adOpenStatic, adLockOptimistic If And Then MsgBox 帳號(hào)密碼或者權(quán)限錯(cuò)誤！請(qǐng)檢查后重新輸入！ 39。 = 39。 = 39。 = 普通用戶 log = + + nam + 于 + CStr(Now()) + 嘗試登陸 成功！ Open + \ For Append As 4 Print 4, log Close 4 Exit Sub Else log = + + nam + 于 + CStr(Now()) + 嘗試登陸 成功！ Open + \ For Append As 3 Print 3, log Close 3 Unload Me End If End If 啟動(dòng)界面設(shè)計(jì) 功能說明 系統(tǒng)在啟動(dòng)界面對(duì)系統(tǒng)的一些必要參數(shù)進(jìn)行配置，比如抽取考題，預(yù)處理考生信息等。 源程序分析 = Provider=。Data Source= + + \。Persist Security Info=False = adUseClient = select * from systems = 0 = 100 = 0 If Trim() = 一次登陸 Then If Trim() = 1 Then = 隨機(jī) timu = Split(Trim(), |) = rnds(CInt(timu(0)), 81) = rnds(CInt(timu(1)), 81) = rnds(CInt(timu(2)), 81) = rnds(CInt(timu(3)), 81) = rnds(CInt(timu(4)), 81) ElseIf Trim() = 0 Then xuanze1 = Split(Trim(), ,) = CStr(UBound(xuanze1) + 1) xuanze2 = Split(Trim(), ,) = CStr(UBound(xuanze2) + 1) xuanze3 = Split(Trim(), ,) = CStr(UBound(xuanze3) + 1) xuanze4 = Split(Trim(), ,) = CStr(UBound(xuanze4) + 1) xuanze5 = Split(Trim(), ,) = CStr(UBound(xuanze5) + 1) End If 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 If Dir( amp。 \) Then Kill amp。 \ End If Dim Myuser, Myxuanze, Mytiankong, Mypanduan, Myjianda, Myfenxi As TableDef Dim mf1, mf2, mf3, mf11, mf12, mf13, mf21, mf22, mf23, mf31, mf32, mf33, mf41, mf42, mf43, mf51, mf52, mf53 As Field Dim MyDatabase As Database 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。創(chuàng)建數(shù)據(jù)庫 39。39。39。39。39。39。39。39。39。39。 Set MyDatabase = CreateDatabase( amp。 \testing, dbLangGeneral) , 39。39。39。39。39。39。39。39。39。39。39。創(chuàng)建 5張表，分別存儲(chǔ)學(xué)生對(duì) 5種題型的回答 39。39。39。39。39。39。39。39。39。39。39。39。39。39。 Set Myxuanze = (xuanze) Set Mytiankong = (tiankong) Set Mypanduan = (panduan) Set Myjianda = (jianda) Set Myfenxi = (fenxi) Set Myuser = (users) Set mf1 = (學(xué)號(hào) , 10, 16) Set mf2 = (姓名 , 10, 8) Set mf3 = (試題編號(hào) , 10, 16) mf1 mf2 mf3 Set mf11 = (題號(hào) , 10, 6) Set mf12 = (題目編號(hào) , 10, 6) Set mf13 = (學(xué)生答案 , 10, 4) mf11 mf12 mf13