【正文】 目放到試卷庫中，如果與已取出的題目重復(fù)，則放棄該題目，由隨機(jī)數(shù)組重新在產(chǎn)生一個(gè)隨機(jī)數(shù)，再一次進(jìn)行比較，直到組成試卷為止。 所以，在執(zhí)行完這一組程序后，試卷庫中應(yīng)為空。 圖 35 答題界面示意圖 2021 屆本科生畢業(yè)論文（設(shè)計(jì)） 10 交卷功能的設(shè)計(jì) 考試最終要把答案交到數(shù)據(jù)庫當(dāng)中， 在本系統(tǒng)中，由于采用了計(jì)時(shí)功能設(shè)計(jì)，所以交卷分為考生主動(dòng)交卷和系統(tǒng)強(qiáng)制交卷兩種。考生答完題后，由系統(tǒng)自動(dòng)評(píng)分，能夠立刻知道自己的分?jǐn)?shù)和那些答錯(cuò)的題，不用等待幾天去天天在心里想著能拿多少分。得分最后保存到考生的數(shù)據(jù)庫中 [6] [7]。定義一個(gè)變量 T，令 T=DateDiff(s, Now, Time_end)即可。字段名和數(shù)據(jù)類型如表 32。 數(shù)據(jù)庫的管理和維護(hù) 數(shù)據(jù)庫是考試系統(tǒng)計(jì)數(shù)據(jù)的來源， 數(shù)據(jù)庫管理模塊是系統(tǒng)重要的組成部分，主要功能是科學(xué)的對(duì)數(shù)據(jù)庫的管理和維護(hù) 。 現(xiàn)在，系統(tǒng)設(shè)計(jì)已經(jīng)初步完成， 我覺得整個(gè)系統(tǒng)的設(shè)計(jì)過程是一項(xiàng)既復(fù)雜又有樂趣的開發(fā)創(chuàng)造性活動(dòng)。 + Text1 + 39。刪除 n = For i = 1 To n Next i 39。查找學(xué)號(hào) 2021 屆本科生畢業(yè)論文（設(shè)計(jì)） 18 (題號(hào) ) = i (題目 ) = (題目 ) (A) = (A) (B) = (B) (C) = (C) (答案 ) = (答案 ) Next i 39。 = amp。H8000000F = amp。HC0FFC0 End Sub Private Sub Option2_Click() Call Sub_option (考生答案 ) = Ans = 2 = Val(Label5) = amp。顯示結(jié)果 = select 題號(hào) ,答案 ,考生答案 from 考卷 For i = 1 To 20 If (anss(i) 1) Then = 3 = i = amp。************************************************************************ [學(xué)號(hào) ]= amp。查找學(xué)號(hào) (成績(jī) ) = 5 * k End End Sub 。 得分 amp。判卷 For i = 1 To 20 If ((答案 ) = (考生答案 )) Then anss(i) = 1 k = k + 1 End If Next i 39。 學(xué)號(hào) amp。不交卷 Else Exit Sub End If 39。 = amp。 39。隨即抽題 Randomize For i = 1 To 20 Arry_num(i) = Int(Rnd * 60 + 1) Compare: For j = 1 To i 1 If Arry_num(j) = Arry_num(i) Then Arry_num(i) = Int(Rnd * 60 + 1) GoTo Compare End If Next j Next i On Error Resume Next 39。 2021 屆本科生畢業(yè)論文（設(shè)計(jì)） 14 謝 辭 在此，我要感謝我的指導(dǎo)老師 姜 老師，是她在此次的畢業(yè)設(shè)計(jì)中給了我悉心的指導(dǎo)和耐心的幫助。 而且，隨著計(jì)算機(jī)技術(shù)的發(fā)展和網(wǎng)絡(luò)的優(yōu)化，這種考試方式也將會(huì)更加成熟和完善。要利用數(shù)據(jù)控件返回?cái)?shù)據(jù)庫中記錄的集合，應(yīng)先在窗體上畫出控件，再通過他的三個(gè)屬性 Connect、 DatabaseName 和 RecordSource 設(shè)置要訪問的數(shù)據(jù)資源。字段名和數(shù)據(jù)類型如表 31。首先先對(duì)時(shí)鐘控件進(jìn)行初始化設(shè)置 Time_end = DateAdd(n, 2, Now)。 得分 amp。但是，系統(tǒng)不會(huì)因?yàn)榭忌鷽]有在規(guī)定的時(shí)間內(nèi)交卷而直接取消考生的成績(jī)，他會(huì)將考生在規(guī)定的時(shí)間內(nèi)答出的題目進(jìn)行評(píng)閱，并給予其中正確題目相應(yīng)的分?jǐn)?shù) [5]。 而且，在這個(gè)系統(tǒng)中，將選項(xiàng)“ A”、“ B”、“ C”分別設(shè)定成不同的顏色，有利于提醒考生，防止考生由于眼睛疲勞將選項(xiàng)看錯(cuò)而將答案填錯(cuò) 。 在本系統(tǒng)中， 先設(shè)定一個(gè)變量 i，使 i的取值范圍為 1 到 n， n = ，即 n是數(shù) 據(jù)庫中試題的數(shù)量。 隨機(jī)抽題 隨機(jī)抽題就是在已經(jīng)建好的試題庫中，隨機(jī)抽出符合要求數(shù)量的題目，還要確 保抽出的題目不重復(fù)。考生打開系統(tǒng)后，在登錄框中輸入學(xué)號(hào)（每名學(xué)生的學(xué)號(hào)是唯一的），計(jì)算機(jī)禁止兩人或多人使用同一學(xué)號(hào)同時(shí)登錄，點(diǎn)擊確定后，系統(tǒng)會(huì)指向數(shù)據(jù)庫中的 考生信息 表，使用學(xué)號(hào)查詢來獲得數(shù)據(jù)庫中考生的信息，與該表中存儲(chǔ)的考生信息進(jìn)行比較。 當(dāng)考生身份驗(yàn)證無誤后，就進(jìn)入了答題界面。 Access 是一種小型的數(shù)據(jù)庫系統(tǒng)，但 提供一組功能強(qiáng)大的工具，這些工具提供的功能相當(dāng)完善，能夠滿足專業(yè)開發(fā)人員的需要，而且對(duì)于新用戶來說，還十分易于上手 [4]。 通過使用查詢，用戶可以指定如何表示數(shù)據(jù)，選擇構(gòu)成查詢的表，并可以從所選表中提取出最多 255個(gè)特定的字段。所謂數(shù)據(jù)庫是指經(jīng)過組織的、關(guān)于特定主題或?qū)ο蟮男畔⒓?。同時(shí)提供的 ADO控件，不但可以用最少的代碼創(chuàng)建數(shù)據(jù)庫應(yīng)用程序，也可以取代 Data和 RDO控件，支持多種數(shù)據(jù)庫系統(tǒng)的訪問。 （ 3） 事件驅(qū)動(dòng)的編 程 機(jī)制 事件驅(qū)動(dòng) 的 編 程 方式 非常適合圖形用戶界面 。 Visual Basic 有三 種不同的版本，即學(xué)習(xí)版、專業(yè)版和企業(yè)版，用來滿足不同的開發(fā)需要，這些版本是在相同的基礎(chǔ)上建立起來的，因此大 多數(shù)應(yīng)用程序可在三種版本中通用。實(shí)現(xiàn)試題數(shù)據(jù)在每次考試結(jié)束后能夠進(jìn)行快速恢復(fù)。通過計(jì)算機(jī)的自動(dòng)組卷可以實(shí)現(xiàn)任何學(xué)生的試卷都不完全相同。老師只需要對(duì)考試題庫進(jìn)行定期修整即可省去每次考試都要出題，印題，裝訂，閱卷的苦惱。 考試是學(xué)校教學(xué)過程中一個(gè)必不可少的環(huán)節(jié) ， 老師通過考試來檢驗(yàn)教學(xué)工作和教學(xué)質(zhì)量，學(xué) 生則可通過考試來檢驗(yàn)自己對(duì)知識(shí)的掌握情況 ， 鞏固所學(xué)的知識(shí)點(diǎn)，從而進(jìn)一步更好的完成教學(xué)任務(wù)。2021 屆本科生畢業(yè)論文（設(shè)計(jì)） 基于 VB 和 Access 的考試系統(tǒng)設(shè)計(jì) 摘 要 隨著信息技術(shù)的發(fā)展和網(wǎng)絡(luò)的優(yōu)化，計(jì)算機(jī)的運(yùn)用 變得 更加多樣化 ， 而且對(duì)于現(xiàn)代教育來說，傳統(tǒng)的考試模式已經(jīng)不再適應(yīng)，計(jì)算機(jī)的無紙化考試將會(huì)成為未來考試的主導(dǎo) 。 所謂無紙化考試是充分利用了計(jì)算機(jī)和互聯(lián)網(wǎng)的優(yōu)勢(shì)，即由計(jì)算機(jī)在考試題庫中隨機(jī)抽題進(jìn)行組卷，由學(xué)生在規(guī)定的時(shí)間內(nèi)在計(jì)算機(jī)上進(jìn)行答題。這種考試方式還可以大大降低老師的工作量，老師既不用費(fèi)心費(fèi)神的出卷又不用沒日沒夜的閱卷。 它簡(jiǎn)單易學(xué)，人機(jī)對(duì)話方便，程序運(yùn)行調(diào)試方便，因此，很快得到了廣泛的應(yīng)用。 （ 2） 提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境 在 VB 集成 的 開發(fā)環(huán)境中，用戶可設(shè)計(jì)界面、編寫代碼和調(diào)試程序，把應(yīng)用程序編譯2021 屆本科生畢業(yè)論文（設(shè)計(jì)） 3 成可執(zhí)行文件 ，直至把應(yīng)用程序制作成安裝盤，以便能夠在脫離 VB 系統(tǒng)的 Windows 環(huán)境中運(yùn)行。 、使用方便的 ADO技術(shù)，該技術(shù)包括了現(xiàn)有的 ODBC，而且占有內(nèi)存少，訪問速度更快。 Access 是 Office 系列軟件中用來專門管理數(shù)據(jù)庫的應(yīng)用軟件。 查詢 ： 為來自一個(gè)或多個(gè)表的資料提供定制視圖的對(duì)象。 模塊能直接響應(yīng)窗體或 報(bào)表事件，也可以從應(yīng)用程序的任何地方被調(diào)用。 當(dāng)考生身份驗(yàn)證有誤時(shí)，系統(tǒng)會(huì)提示考生，讓考生重新輸入?？忌卿浤K的主要功能是用來識(shí)別考生的身份是否符合考試要求，對(duì)考生身 份進(jìn)行判斷，將考生的瀏覽界面指向答題頁面。對(duì)于整個(gè)系統(tǒng)來說，組卷功能是十分重要的，也是程序設(shè)計(jì)的關(guān)鍵。 試卷刪除功能 由于試卷 是存放在數(shù)據(jù)庫中，所以在提交完試卷后，系統(tǒng)應(yīng)該能夠自動(dòng)將已經(jīng)用過的試卷進(jìn)行刪除，以方便下一次在運(yùn)行程序時(shí)能夠重新進(jìn)行抽題組卷功能。 而且，在學(xué)生答題的時(shí)候，倒計(jì)時(shí)的時(shí)鐘也將顯示在界面上，能夠提醒考生剩余的時(shí)間。如果考生在規(guī)定的時(shí)間內(nèi)沒能完成所有題目，系統(tǒng)也不會(huì)給考生更多的時(shí)間繼續(xù)答題，因?yàn)橄到y(tǒng)給每個(gè)考生的答題時(shí)間都是相同的，他不會(huì)偏向于哪一個(gè)考生，這就是無紙化考試系統(tǒng)的客觀公正性。 (n k) amp。在程序運(yùn)行期間，時(shí)鐘控件并不顯示在屏幕上，通常用一個(gè)標(biāo)簽來顯示時(shí)間。 考生信息 庫設(shè)計(jì)， 該 庫中存儲(chǔ)了考生的信 息，包括考生姓名和學(xué)號(hào)，用于在考生登錄時(shí)調(diào)用對(duì)考生身份進(jìn)行驗(yàn)證，還能將考生的得分存在里面。 本系統(tǒng)采用了 VB 內(nèi)嵌的 Data 數(shù)據(jù) 控件 ， Data 是訪問數(shù)據(jù)庫的一種方便的工具，數(shù)據(jù)控件提供有限的不需要編程而能訪問現(xiàn)存數(shù)據(jù)庫 的 功能，允許將 VB的窗體與數(shù)據(jù)庫方便地進(jìn)行連接。 圖 36 數(shù)據(jù)庫創(chuàng)建圖