1、基于vb和access的考試系統(tǒng)設(shè)計(jì)摘要裝訂線隨著信息技術(shù)的發(fā)展和網(wǎng)絡(luò)的優(yōu)化，計(jì)算機(jī)的運(yùn)用變得更加多樣化，而且對(duì)于現(xiàn)代教育來(lái)說(shuō)，傳統(tǒng)的考試模式已經(jīng)不再適應(yīng)，計(jì)算機(jī)的無(wú)紙化考試將會(huì)成為未來(lái)考試的主導(dǎo)。這種方式不僅方便、高效，而且保密性強(qiáng)，解決了評(píng)分時(shí)人為因素的影響。本設(shè)計(jì)運(yùn)用了visual basic 6.0和access數(shù)據(jù)庫(kù)對(duì)matlab和系統(tǒng)仿真一課進(jìn)行了無(wú)紙化考試的設(shè)計(jì)與實(shí)現(xiàn)，實(shí)現(xiàn)了老師的教考分離，解決了人工出題的不可重復(fù)性。該系統(tǒng)實(shí)現(xiàn)了客觀題的隨機(jī)抽取和自動(dòng)組卷功能，并且具有考生登錄時(shí)的身份驗(yàn)證，答題結(jié)束時(shí)的答案提交，答題結(jié)果顯示和自動(dòng)評(píng)分以及自動(dòng)計(jì)時(shí)功能。由于系統(tǒng)采用了access數(shù)

2、據(jù)庫(kù)，所以方便了數(shù)據(jù)庫(kù)的更新、管理和維護(hù)。該設(shè)計(jì)保證了考試的客觀性、實(shí)時(shí)性和公正性，而且降低了老師在出題和閱卷時(shí)的工作量。關(guān)鍵詞：考試系統(tǒng)隨機(jī)組卷自動(dòng)評(píng)分?jǐn)?shù)據(jù)庫(kù)design of examination system based on vb and accessabstract with the development of information technology and network optimization, the application of computers is more varied. for modern education, traditional exams is

3、 no longer suitable , the paperless examination of computer will led the future examinations, this approach is not only convenient, efficient ,but also confidential in nature, and it will solve the problems of human factors. this design uses visual basic 6.0 and access database right, design paperle

4、ss examination of matlab system and simulation and the separation of education and examination, it solves the problem of non-repeatability. the system achieves the selection of objective title randomly and automatic test paper, it also has the candidates login authentication, hand over the answer at

5、 the end of examination, and the answer showed, automatic scoring and the automatic timing. as the system uses the access database, so it facilitates the updating of the database, management and maintenance. the design ensures the examination to be objectivity, impartiality and real-time, lowers the

6、 teachers workload in making out questions and scoring. keywords: exam systemforming examination papers in randomautomotive gradingdatabase目錄一 引言11.1 課題研究的背景及意義11.2 考試系統(tǒng)設(shè)計(jì)的目標(biāo)和指導(dǎo)思想1二 系統(tǒng)開(kāi)發(fā)的關(guān)鍵技術(shù)22.1 visual basic編程語(yǔ)言及特點(diǎn) 22.1.1 visual basic簡(jiǎn)介22.1.2 visual basic特點(diǎn)22.2 access數(shù)據(jù)庫(kù)3三 考試系統(tǒng)的開(kāi)發(fā)與設(shè)計(jì)53.1 考試系統(tǒng)組成53.2

7、 考生登錄模塊設(shè)計(jì)53.3 隨機(jī)抽題組卷設(shè)計(jì)73.3.1隨機(jī)抽題73.3.2自動(dòng)組卷83.3.3試卷刪除功能93.4 考試系統(tǒng)的答題界面93.5 交卷功能的設(shè)計(jì)103.6 自動(dòng)評(píng)分功能103.7 計(jì)時(shí)功能實(shí)現(xiàn)103.8 access數(shù)據(jù)庫(kù)的設(shè)計(jì)103.8.1數(shù)據(jù)庫(kù)設(shè)計(jì)103.8.2數(shù)據(jù)庫(kù)的訪問(wèn)123.8.3數(shù)據(jù)庫(kù)的管理和維護(hù)12四 結(jié)束語(yǔ)13謝辭14參考文獻(xiàn)15附錄16一引言1.1 課題研究的背景及意義本課題主要應(yīng)用于無(wú)紙化考試。所謂無(wú)紙化考試是充分利用了計(jì)算機(jī)和互聯(lián)網(wǎng)的優(yōu)勢(shì)，即由計(jì)算機(jī)在考試題庫(kù)中隨機(jī)抽題進(jìn)行組卷，由學(xué)生在規(guī)定的時(shí)間內(nèi)在計(jì)算機(jī)上進(jìn)行答題。考試是學(xué)校教學(xué)過(guò)程中一個(gè)必不可少的環(huán)節(jié)

8、，老師通過(guò)考試來(lái)檢驗(yàn)教學(xué)工作和教學(xué)質(zhì)量，學(xué)生則可通過(guò)考試來(lái)檢驗(yàn)自己對(duì)知識(shí)的掌握情況，鞏固所學(xué)的知識(shí)點(diǎn)，從而進(jìn)一步更好的完成教學(xué)任務(wù)。然而，傳統(tǒng)的考試是一個(gè)漫長(zhǎng)而又復(fù)雜的過(guò)程，這種考試不僅要求老師擬定試卷、打印試卷、封裝試卷、收集試卷、批改試卷，而且要在考試過(guò)程中安排大量的老師進(jìn)行監(jiān)考和巡場(chǎng)。顯然這種考試已經(jīng)不適應(yīng)現(xiàn)代教學(xué)的需要了。隨著學(xué)生人數(shù)的增加和計(jì)算機(jī)的普及，網(wǎng)上教學(xué)已成為現(xiàn)代遠(yuǎn)程教育的發(fā)展方向，實(shí)現(xiàn)教學(xué)及無(wú)紙化考試已成為必然趨勢(shì)。無(wú)紙化考試系統(tǒng)是基于計(jì)算機(jī)技術(shù)和數(shù)據(jù)庫(kù)技術(shù)的應(yīng)用系統(tǒng)，它依靠現(xiàn)代信息技術(shù)手段和優(yōu)越的數(shù)據(jù)庫(kù)資源，通過(guò)綜合組卷生成無(wú)紙化考試試題。與傳統(tǒng)的考試相比，它有傳統(tǒng)考試所

9、不可比擬的優(yōu)越性。由于無(wú)紙化考試是在題庫(kù)中隨機(jī)出題自由組卷，每個(gè)考生的考試題目都不一樣，避免了學(xué)生之間相互照抄作弊。這種考試方式還可以大大降低老師的工作量，老師既不用費(fèi)心費(fèi)神的出卷又不用沒(méi)日沒(méi)夜的閱卷。老師只需要對(duì)考試題庫(kù)進(jìn)行定期修整即可省去每次考試都要出題，印題，裝訂，閱卷的苦惱。而且這種考試方式還能夠?qū)崿F(xiàn)考試成績(jī)的準(zhǔn)確性，由于無(wú)紙化考試評(píng)分是由計(jì)算機(jī)完成的，最大限度的排除了人為因素的影響，避免了人工評(píng)卷所帶來(lái)的一些主觀和客觀的誤差，從而保證了考試的客觀性、實(shí)時(shí)行和閱卷標(biāo)準(zhǔn)的一致性。高質(zhì)量、高效率的完成對(duì)學(xué)生的測(cè)評(píng)。1.2 考試系統(tǒng)設(shè)計(jì)的目標(biāo)和指導(dǎo)思想利用vb 和access設(shè)計(jì)出matla

10、b和系統(tǒng)仿真課程考試系統(tǒng)。完成考生注冊(cè)、考生登錄、自動(dòng)計(jì)時(shí)、自動(dòng)出題、自動(dòng)閱卷和成績(jī)查詢功能，利用計(jì)算機(jī)技術(shù)實(shí)現(xiàn)無(wú)紙化考試，對(duì)數(shù)據(jù)庫(kù)中的內(nèi)容易于維護(hù)和管理。該系統(tǒng)的主要目標(biāo)是：試題庫(kù)和考生信息按照統(tǒng)一格式分別寫(xiě)入到access數(shù)據(jù)庫(kù)中，并可隨時(shí)對(duì)試題庫(kù)和考生信息進(jìn)行修改、添加或刪除。通過(guò)計(jì)算機(jī)的自動(dòng)組卷可以實(shí)現(xiàn)任何學(xué)生的試卷都不完全相同。考試界面布局合理美觀，方便學(xué)生答題。允許考生提前交卷結(jié)束考試，如果考試時(shí)間到，系統(tǒng)將會(huì)強(qiáng)制考生退出考試。通過(guò)計(jì)算機(jī)的自動(dòng)評(píng)分可以實(shí)現(xiàn)評(píng)分的高效性和客觀公正性。實(shí)現(xiàn)試題數(shù)據(jù)在每次考試結(jié)束后能夠進(jìn)行快速恢復(fù)。二系統(tǒng)開(kāi)發(fā)的關(guān)鍵技術(shù)考試系統(tǒng)的設(shè)計(jì)可采用多種編程語(yǔ)言，如

11、：c語(yǔ)言、java等。而本系統(tǒng)采用了vb6.0編程語(yǔ)言，因?yàn)関b不僅簡(jiǎn)單易學(xué)、效率高，而且功能強(qiáng)大。他其中包含了很多已經(jīng)編譯好的控件，能夠直接運(yùn)用，方便簡(jiǎn)單。在數(shù)據(jù)庫(kù)方面，本系統(tǒng)才用了office辦公軟件中的access數(shù)據(jù)庫(kù)，對(duì)比其他數(shù)據(jù)庫(kù)來(lái)說(shuō)，access數(shù)據(jù)庫(kù)具有許多其他數(shù)據(jù)庫(kù)不具備的優(yōu)點(diǎn)。下面就簡(jiǎn)單的介紹一下本系統(tǒng)所采用的這兩種軟件。2.1 visual basic編程語(yǔ)言及特點(diǎn) 2.1.1 visual basic簡(jiǎn)介visual basic語(yǔ)言是20世紀(jì)60年代美國(guó)dartmouth學(xué)院的兩位教授共同設(shè)計(jì)的計(jì)算機(jī)程序設(shè)計(jì)語(yǔ)言。它簡(jiǎn)單易學(xué)，人機(jī)對(duì)話方便，程序運(yùn)行調(diào)試方便，因此，很快得

12、到了廣泛的應(yīng)用。visual basic有三種不同的版本，即學(xué)習(xí)版、專業(yè)版和企業(yè)版，用來(lái)滿足不同的開(kāi)發(fā)需要，這些版本是在相同的基礎(chǔ)上建立起來(lái)的，因此大多數(shù)應(yīng)用程序可在三種版本中通用。學(xué)習(xí)版是visual basic的基礎(chǔ)版本，他適用于普通學(xué)習(xí)者及大多數(shù)使用visual basic開(kāi)發(fā)一般應(yīng)用程序的人員；專業(yè)版適用于專業(yè)的計(jì)算機(jī)程序開(kāi)發(fā)人員，他為專業(yè)的程序開(kāi)發(fā)人員提供了一整套用于軟件開(kāi)發(fā)的功能完備的工具，包括了學(xué)習(xí)版的全部功能以及internet控件開(kāi)發(fā)工具之類的高級(jí)特性；企業(yè)版可供專業(yè)編程人員開(kāi)發(fā)功能強(qiáng)大的組內(nèi)分布式應(yīng)用程序，除了包含專業(yè)版全部的內(nèi)容外，還有自動(dòng)化構(gòu)件管理器、數(shù)據(jù)庫(kù)管理器等工具

13、1。2.1.2 visual basic特點(diǎn)vb是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言，他簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，使用windows內(nèi)部的應(yīng)用程序接口（api）函數(shù)、動(dòng)態(tài)鏈接庫(kù)（dll）、開(kāi)放式數(shù)據(jù)連接（odbc）、動(dòng)態(tài)數(shù)據(jù)交換（ode）等技術(shù)，可以高效、快速地開(kāi)發(fā)windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)2。它的特點(diǎn)是：（1）有面向?qū)ο蟮目梢暬O(shè)計(jì)工具傳統(tǒng)程序設(shè)計(jì)語(yǔ)言都是通過(guò)編寫(xiě)程序代碼來(lái)設(shè)計(jì)用戶界面，開(kāi)發(fā)者在設(shè)計(jì)過(guò)程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察，如果想要修改界面效果，必須要返回到程序中進(jìn)行修改，這樣就影響了開(kāi)發(fā)效率。

14、在vb中，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，把程序和數(shù)據(jù)封裝起來(lái)視為一個(gè)對(duì)象，每個(gè)對(duì)象都是可視的。開(kāi)發(fā)者只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，直接在屏幕上畫(huà)出窗口、菜單、命令按鈕等不同類型的對(duì)象，并為每個(gè)對(duì)象設(shè)置屬性即可，這種方式極大的方便了界面設(shè)計(jì)。程序員所要編寫(xiě)的程序僅僅是針對(duì)對(duì)象要完成的事件過(guò)程的代碼，所以極大的提高了設(shè)計(jì)效率。（2）提供了易學(xué)易用的應(yīng)用程序集成開(kāi)發(fā)環(huán)境在vb集成的開(kāi)發(fā)環(huán)境中，用戶可設(shè)計(jì)界面、編寫(xiě)代碼和調(diào)試程序，把應(yīng)用程序編譯成可執(zhí)行文件，直至把應(yīng)用程序制作成安裝盤(pán)，以便能夠在脫離vb系統(tǒng)的windows環(huán)境中運(yùn)行。（3）事件驅(qū)動(dòng)的編程機(jī)制事件驅(qū)動(dòng)的編程方式非常適合圖形

15、用戶界面。在vb編程環(huán)境中，圖形用戶界面的應(yīng)用程序是由用戶的動(dòng)作即事件掌握著程序的運(yùn)行流向的。每個(gè)事件都能驅(qū)動(dòng)一段程序的運(yùn)行，程序設(shè)計(jì)人員只要編寫(xiě)響應(yīng)用戶動(dòng)作的代碼，各個(gè)動(dòng)作之間不一定有聯(lián)系。這樣編寫(xiě)出的應(yīng)用程序代碼較短，使得程序既易于編寫(xiě)又易于維護(hù)。（4）結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言vb具有豐富的數(shù)據(jù)類型，眾多的內(nèi)部函數(shù)，模塊化、結(jié)構(gòu)化的程序設(shè)計(jì)機(jī)制，結(jié)構(gòu)清晰，簡(jiǎn)單易學(xué)。vb語(yǔ)句簡(jiǎn)單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語(yǔ)法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。（5）強(qiáng)大的數(shù)據(jù)庫(kù)操縱功能vb中利用數(shù)據(jù)控件可以訪問(wèn)多種數(shù)據(jù)庫(kù)系統(tǒng)，如microsoft access等，也可訪問(wèn)多種電子表

16、格。vb6.0新增功能強(qiáng)大、使用方便的ado技術(shù)，該技術(shù)包括了現(xiàn)有的odbc，而且占有內(nèi)存少，訪問(wèn)速度更快。同時(shí)提供的ado控件，不但可以用最少的代碼創(chuàng)建數(shù)據(jù)庫(kù)應(yīng)用程序，也可以取代data和rdo控件，支持多種數(shù)據(jù)庫(kù)系統(tǒng)的訪問(wèn)。 （6）active技術(shù)active是在原有的ole技術(shù)上發(fā)展起來(lái)的更先進(jìn)的技術(shù)，它使開(kāi)發(fā)人員擺脫了特定語(yǔ)言的束縛，可方便的使用其他應(yīng)用程序提供的功能。使用vb能夠開(kāi)發(fā)集聲音、圖像、動(dòng)畫(huà)、字處理、電子表格和web等對(duì)象于一體的應(yīng)用程序。（7）動(dòng)態(tài)鏈接庫(kù)(dll)vb是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，所以不具備低級(jí)語(yǔ)言的功能，很難實(shí)現(xiàn)對(duì)機(jī)器硬件的訪問(wèn)。但他可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將c

17、/c+語(yǔ)言或匯編語(yǔ)言編寫(xiě)的程序加入到vb應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語(yǔ)言編寫(xiě)的函數(shù)。另外，通過(guò)動(dòng)態(tài)鏈接庫(kù)，還可以調(diào)用windows應(yīng)用程序接口(api)函數(shù)，實(shí)現(xiàn)sdk所具有的功能3。2.2 access數(shù)據(jù)庫(kù)access作為microsoft的office套件產(chǎn)品之一,成為世界上最流行的桌面數(shù)據(jù)庫(kù)系統(tǒng)。access是office系列軟件中用來(lái)專門(mén)管理數(shù)據(jù)庫(kù)的應(yīng)用軟件。所謂數(shù)據(jù)庫(kù)是指經(jīng)過(guò)組織的、關(guān)于特定主題或?qū)ο蟮男畔⒓稀ccess數(shù)據(jù)庫(kù)與許多優(yōu)秀的關(guān)系數(shù)據(jù)庫(kù)一樣，可以讓你很容易的連接相關(guān)的信息而且還對(duì)其他的數(shù)據(jù)庫(kù)系統(tǒng)有所補(bǔ)充。它能操作其它來(lái)源的資料，包括許多流行的pc數(shù)據(jù)庫(kù)

18、程序和服務(wù)器、小型機(jī)及大型機(jī)上的許多sql數(shù)據(jù)庫(kù)。access還完全支持microsoft的ole技術(shù)。access將所有有名字的東西都視為對(duì)象（object），最重要的對(duì)象有表，查詢，窗體，報(bào)表，宏和模塊，下面對(duì)這些對(duì)象作一下簡(jiǎn)單介紹。表：用戶定義的存儲(chǔ)資料的對(duì)象，是關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)的基礎(chǔ)。表中的單個(gè)信息單元（列）稱為字段，在表的頂部可以看到這些字段名；表的一行中所有數(shù)據(jù)字段的集合，稱為記錄。查詢：為來(lái)自一個(gè)或多個(gè)表的資料提供定制視圖的對(duì)象。通過(guò)使用查詢，用戶可以指定如何表示數(shù)據(jù)，選擇構(gòu)成查詢的表，并可以從所選表中提取出最多255個(gè)特定的字段。窗體：窗體是數(shù)據(jù)庫(kù)和用戶的一個(gè)聯(lián)系界面，大量的操作

19、都要通過(guò)窗體完成，用于顯示包含在表或查詢結(jié)果中的數(shù)據(jù)，或操作數(shù)據(jù)庫(kù)中的數(shù)據(jù)。報(bào)表：為格式化、計(jì)算、打印選定資料而設(shè)計(jì)的對(duì)象。它是衡量一個(gè)優(yōu)秀的數(shù)據(jù)庫(kù)的重要標(biāo)準(zhǔn)（有時(shí)甚至是唯一的標(biāo)準(zhǔn)）。宏：為了響應(yīng)已定義的事件，需要讓access去執(zhí)行一個(gè)或多個(gè)操作，而宏就是對(duì)這些操作的結(jié)構(gòu)化的定義對(duì)象。模塊：包括用vba編碼的定制過(guò)程的一個(gè)對(duì)象。在模塊中使用vba代碼的目的主要有兩個(gè)：一是創(chuàng)建在窗體、報(bào)表和查詢中使用的自定義函數(shù)；二是提供在所有類模塊中都可以使用的公共子過(guò)程。模塊能直接響應(yīng)窗體或報(bào)表事件，也可以從應(yīng)用程序的任何地方被調(diào)用。access是一種小型的數(shù)據(jù)庫(kù)系統(tǒng)，但提供一組功能強(qiáng)大的工具，這些工具提

20、供的功能相當(dāng)完善，能夠滿足專業(yè)開(kāi)發(fā)人員的需要，而且對(duì)于新用戶來(lái)說(shuō)，還十分易于上手4。由于vb和access數(shù)據(jù)庫(kù)有以上諸多特點(diǎn)，所以本系統(tǒng)采用了這兩種軟件進(jìn)行設(shè)計(jì)。三考試系統(tǒng)的開(kāi)發(fā)與設(shè)計(jì)3.1 考試系統(tǒng)組成該考試系統(tǒng)由考生登錄模塊，答題模塊和數(shù)據(jù)庫(kù)組成。該系統(tǒng)主要能夠?qū)崿F(xiàn)考生登錄時(shí)身份的驗(yàn)證，動(dòng)態(tài)組卷，自動(dòng)評(píng)分和數(shù)據(jù)庫(kù)的管理等功能。系統(tǒng)組成結(jié)構(gòu)圖見(jiàn)圖3-1。考生打開(kāi)系統(tǒng)后，首先進(jìn)入的是登錄界面。考生需要輸入自己的學(xué)號(hào)來(lái)進(jìn)行身份驗(yàn)證。當(dāng)考生身份驗(yàn)證有誤時(shí)，系統(tǒng)會(huì)提示考生，讓考生重新輸入。當(dāng)考生身份驗(yàn)證無(wú)誤后，就進(jìn)入了答題界面。系統(tǒng)通過(guò)訪問(wèn)數(shù)據(jù)庫(kù)，隨機(jī)抽出題目來(lái)生成試卷，考生即可開(kāi)始答題。在答題過(guò)

21、程中，考生只能答題，如果考生點(diǎn)擊交卷按鈕，則系統(tǒng)會(huì)做出判斷，給出提示，詢問(wèn)考生“時(shí)間未到，是否交卷”，如果考生要交卷就點(diǎn)擊“是”那么系統(tǒng)就會(huì)按照給定的正確答案進(jìn)行自動(dòng)評(píng)分并給出答錯(cuò)題目的提示。如果考生是誤點(diǎn)擊，就可以點(diǎn)擊“否”系統(tǒng)就會(huì)返回答題界面讓考生繼續(xù)答題，評(píng)分結(jié)束后將會(huì)退出系統(tǒng)。如果考生在規(guī)定的時(shí)間內(nèi)沒(méi)能完成全部題目，沒(méi)能人為交卷，系統(tǒng)將會(huì)強(qiáng)制考生退出考試并由系統(tǒng)自動(dòng)評(píng)分功能對(duì)已經(jīng)做出的題目進(jìn)行評(píng)判，給出相應(yīng)得分?jǐn)?shù)。系統(tǒng)操作流程圖見(jiàn)圖3-2。考試系統(tǒng)考生登錄模塊數(shù)據(jù)庫(kù)模塊考生答題模塊身份驗(yàn)證抽題、答題、評(píng)分、數(shù)據(jù)庫(kù)管理維護(hù) 圖3-1系統(tǒng)組成結(jié)構(gòu)圖3.2 考生登錄模塊設(shè)計(jì)當(dāng)雙擊考試系統(tǒng)的快

22、捷鍵后，系統(tǒng)進(jìn)入了考生登錄模塊，在考生登錄界面中有兩個(gè)按鈕確定和取消，分別用來(lái)完成身份輸入后的確定和取消功能。考生登錄模塊的主要功能是用來(lái)識(shí)別考生的身份是否符合考試要求，對(duì)考生身份進(jìn)行判斷，將考生的瀏覽界面指向答題頁(yè)面。考生打開(kāi)系統(tǒng)后，在登錄框中輸入學(xué)號(hào)（每名學(xué)生的學(xué)號(hào)是唯一的），計(jì)算機(jī)禁止兩人或多人使用同一學(xué)號(hào)同時(shí)登錄，點(diǎn)擊確定后，系統(tǒng)會(huì)指向數(shù)據(jù)庫(kù)中的考生信息表，使用學(xué)號(hào)查詢來(lái)獲得數(shù)據(jù)庫(kù)中考生的信息，與該表中存儲(chǔ)的考生信息進(jìn)行比較。當(dāng)與考生輸入的學(xué)號(hào)信息比較無(wú)誤時(shí)，則可以進(jìn)入答題環(huán)境，如果輸入的學(xué)號(hào)出現(xiàn)錯(cuò)誤，那么系統(tǒng)將會(huì)提示“沒(méi)有該考生”，按確定后，考生就可以自行檢查，重新輸入學(xué)號(hào)。登錄界面

23、示意圖見(jiàn)圖3-3。判斷是否交卷是系統(tǒng)自動(dòng)評(píng)分，提示錯(cuò)誤題目否退出系統(tǒng)答題時(shí)間到，強(qiáng)制交卷考生登錄身份驗(yàn)證錯(cuò)誤，重新輸入正確，進(jìn)入答題界面隨機(jī)抽題，生成試卷考生答題，開(kāi)始計(jì)時(shí)圖3-2系統(tǒng)操作流程圖圖3-3登錄界面示意圖下面將登錄模塊的主要程序代碼介紹如下：private sub form_load()data1.databasename = curdir + + db1 ；指向數(shù)據(jù)庫(kù)考生信息表中的內(nèi)容；end subprivate sub label4_click()dim student_name as stringdim student_num as stringstudent_num =

24、text1data1.recordset.findfirst 學(xué)號(hào)= + + text1 + ；查找學(xué)號(hào)；if data1.recordset.nomatch thenmsgbox 沒(méi)有該考生 , 48, 警告 ；判斷學(xué)號(hào)；elsenum_stu = data1.recordset.fields(學(xué)號(hào))name_stu = data1.recordset.fields(姓名)form2.showform1.hideend ifend subprivate sub label5_click()unload me ；取消按鈕的設(shè)置，當(dāng)點(diǎn)擊后將退出考試系統(tǒng)；end sub3.3 隨機(jī)抽題組卷設(shè)計(jì)無(wú)紙

25、化考試系統(tǒng)普遍采用隨機(jī)組卷來(lái)自動(dòng)生成試卷，隨機(jī)組卷是題庫(kù)的最終目的。本系統(tǒng)就是采用的隨機(jī)自動(dòng)組卷，用這種方式生成的試題客觀性比較強(qiáng)，不容易產(chǎn)生雷同的試卷。對(duì)于整個(gè)系統(tǒng)來(lái)說(shuō)，組卷功能是十分重要的，也是程序設(shè)計(jì)的關(guān)鍵。3.3.1隨機(jī)抽題隨機(jī)抽題就是在已經(jīng)建好的試題庫(kù)中，隨機(jī)抽出符合要求數(shù)量的題目，還要確保抽出的題目不重復(fù)。這就要求有一個(gè)隨機(jī)函數(shù)來(lái)完成在試題數(shù)據(jù)庫(kù)動(dòng)態(tài)指針不確定的指向。在本系統(tǒng)中，采用了一個(gè)隨機(jī)數(shù)組來(lái)實(shí)現(xiàn)，該數(shù)組隨機(jī)產(chǎn)生一個(gè)數(shù)，指向試題庫(kù)的相應(yīng)題目，然后將試題存放到試卷庫(kù)中，再產(chǎn)生一個(gè)隨機(jī)數(shù)，指向試題數(shù)據(jù)庫(kù)相應(yīng)題目，取出來(lái)與已經(jīng)確定的試題進(jìn)行比較，如果不重復(fù)，就將新取出的題目放到試卷

26、庫(kù)中，如果與已取出的題目重復(fù)，則放棄該題目，由隨機(jī)數(shù)組重新在產(chǎn)生一個(gè)隨機(jī)數(shù)，再一次進(jìn)行比較，直到組成試卷為止。所以，要生成i道題目，那么至少要比較i-1次才能完成試卷的組合。功能圖見(jiàn)圖3-4。由于隨機(jī)抽題是考試系統(tǒng)中的靈魂，所以在這里將主要的隨機(jī)抽題源代碼加以介紹，以供參考：randomize for i = 1 to 20 ；設(shè)置題目數(shù)量為20道；arry_num(i) = int(rnd * 60 + 1) ；由隨機(jī)數(shù)組在題庫(kù)中任意指向一個(gè)題目；compare:for j = 1 to i 1 ；另定義一個(gè)變量，用于比較抽出的題目是否重復(fù)；if arry_num(j) = arry_num

27、(i) then ；如果抽出的題目與已經(jīng)抽出的重復(fù)，則隨機(jī)數(shù)組重新產(chǎn)生一個(gè)指向題庫(kù)的隨機(jī)數(shù)；arry_num(i) = int(rnd * 60 + 1)goto compare ；繼續(xù)比較，直到完成組卷；end ifnext jnext ion error resume next隨機(jī)抽題不重復(fù)，取出試題重復(fù)，返回繼續(xù)比較存放到考卷庫(kù)組卷完成圖3-4隨機(jī)抽題功能圖3.3.2自動(dòng)組卷系統(tǒng)將隨機(jī)從試題庫(kù)中抽出的題目，存放到數(shù)據(jù)庫(kù)中考卷表中。本系統(tǒng)中，date1是指向考卷表的，date2是指向題庫(kù)表的，由date2從題庫(kù)中取出的“題目”答案選a、b、c和標(biāo)準(zhǔn)答案分別與date1所指向的對(duì)應(yīng)的表的位置

28、相等，這樣，就能把題庫(kù)中的試題和選項(xiàng)分別存放到了考卷的對(duì)應(yīng)位置，即完成了自動(dòng)組卷的過(guò)程。3.3.3試卷刪除功能由于試卷是存放在數(shù)據(jù)庫(kù)中，所以在提交完試卷后，系統(tǒng)應(yīng)該能夠自動(dòng)將已經(jīng)用過(guò)的試卷進(jìn)行刪除，以方便下一次在運(yùn)行程序時(shí)能夠重新進(jìn)行抽題組卷功能。在本系統(tǒng)中，先設(shè)定一個(gè)變量i，使i的取值范圍為1到n，n = data1.recordset.recordcount，即n是數(shù)據(jù)庫(kù)中試題的數(shù)量。date1首先指向第一個(gè)數(shù)據(jù)，通過(guò)data1.recordset.delete這一語(yǔ)句可將存放的第一個(gè)數(shù)據(jù)刪除，再利用data1.recordset.movenext語(yǔ)句使指針下移一位再進(jìn)行刪除，直到將所有的

29、存放在試卷庫(kù)中的題目刪完為止。所以，在執(zhí)行完這一組程序后，試卷庫(kù)中應(yīng)為空。3.4 考試系統(tǒng)的答題界面在答題界面中，有無(wú)紙化考試系統(tǒng)答題的基本按鈕：上下題目的選擇按鈕、抽題和交卷按鈕。有考生的基本信息：學(xué)號(hào)和姓名。如果在身份驗(yàn)證時(shí)輸入的是別人的學(xué)號(hào)，而這個(gè)學(xué)號(hào)又是存在于數(shù)據(jù)庫(kù)當(dāng)中的，那么在登錄時(shí)候系統(tǒng)將不能做出判斷，依然允許進(jìn)入答題界面，考生就可以在這個(gè)界面中進(jìn)一步驗(yàn)證自己的身份，以保證自己的考試不受影響。答題界面中還有試題顯示區(qū)域、答案內(nèi)容顯示區(qū)域及答案選項(xiàng)。而且，在學(xué)生答題的時(shí)候，倒計(jì)時(shí)的時(shí)鐘也將顯示在界面上，能夠提醒考生剩余的時(shí)間。而且，在這個(gè)系統(tǒng)中，將選項(xiàng)“a”、“b”、“c”分別設(shè)定成

30、不同的顏色，有利于提醒考生，防止考生由于眼睛疲勞將選項(xiàng)看錯(cuò)而將答案填錯(cuò)。答題界面示意圖見(jiàn)圖3-5。圖3-5答題界面示意圖3.5 交卷功能的設(shè)計(jì)考試最終要把答案交到數(shù)據(jù)庫(kù)當(dāng)中，在本系統(tǒng)中，由于采用了計(jì)時(shí)功能設(shè)計(jì)，所以交卷分為考生主動(dòng)交卷和系統(tǒng)強(qiáng)制交卷兩種。第一種，考生主動(dòng)交卷。如果考生答完試題檢查無(wú)誤或者是想結(jié)束答題而進(jìn)行交卷，由于系統(tǒng)不能判斷出是考生主觀上想交卷還是由于誤操作而交卷，系統(tǒng)將不會(huì)馬上接受交卷命令，而是給出考生提示信息“時(shí)間未到，是否交卷”，如果是考生主觀就想馬上交卷，則可點(diǎn)擊按鈕“是”，這樣系統(tǒng)將會(huì)接受考生的交卷指令。如果是考生的誤操作，考生仍想繼續(xù)答題，則可點(diǎn)擊按鈕“否”，那么

31、系統(tǒng)將不接受交卷指令，而是返回到答題界面允許考生繼續(xù)答題。第二種，系統(tǒng)強(qiáng)制交卷。如果考生在規(guī)定的時(shí)間內(nèi)沒(méi)能完成所有題目，系統(tǒng)也不會(huì)給考生更多的時(shí)間繼續(xù)答題，因?yàn)橄到y(tǒng)給每個(gè)考生的答題時(shí)間都是相同的，他不會(huì)偏向于哪一個(gè)考生，這就是無(wú)紙化考試系統(tǒng)的客觀公正性。但是，系統(tǒng)不會(huì)因?yàn)榭忌鷽](méi)有在規(guī)定的時(shí)間內(nèi)交卷而直接取消考生的成績(jī)，他會(huì)將考生在規(guī)定的時(shí)間內(nèi)答出的題目進(jìn)行評(píng)閱，并給予其中正確題目相應(yīng)的分?jǐn)?shù)5。3.6 自動(dòng)評(píng)分功能自動(dòng)評(píng)分是該系統(tǒng)的最后一個(gè)比較重要的功能。考生答完題后，由系統(tǒng)自動(dòng)評(píng)分，能夠立刻知道自己的分?jǐn)?shù)和那些答錯(cuò)的題，不用等待幾天去天天在心里想著能拿多少分。在本系統(tǒng)中，設(shè)置了一個(gè)i，i是考試

32、的題目數(shù)，范圍是1到n，因?yàn)樵陬}庫(kù)中已經(jīng)把對(duì)應(yīng)題目的正確答案輸入了進(jìn)去，所以在隨機(jī)抽題的過(guò)程中也把正確答案輸入到了試卷庫(kù)中，在判斷題目是否回答正確的過(guò)程中，如果考生答案與對(duì)應(yīng)的正確答案相同，就說(shuō)明該題考生回答正確，設(shè)一個(gè)變量k，考生每回答對(duì)一道題，k的值就加1，直到比較到n，最后k的值就是考生回答正確的題目數(shù)。考生得分根據(jù)算式s1 = 正確 & (k) & 錯(cuò)誤 & (n - k) & 得分 & (100/n * k)即可得出。得分最后保存到考生的數(shù)據(jù)庫(kù)中6 7。3.7 計(jì)時(shí)功能實(shí)現(xiàn)無(wú)論是傳統(tǒng)的在試卷上進(jìn)行的考試，還是現(xiàn)代的在計(jì)算機(jī)上的無(wú)紙化考試都要有時(shí)間要求。所以考生必須在規(guī)定的時(shí)間內(nèi)完成考

33、試，如果超出規(guī)定的時(shí)間，都會(huì)被強(qiáng)制收卷的。在本系統(tǒng)中，運(yùn)用了一個(gè)時(shí)鐘控件來(lái)實(shí)現(xiàn)計(jì)時(shí)功能。時(shí)鐘控件能有規(guī)律的以一定的時(shí)間間隔激發(fā)計(jì)時(shí)器事件而執(zhí)行相應(yīng)的程序代碼。在程序運(yùn)行期間，時(shí)鐘控件并不顯示在屏幕上，通常用一個(gè)標(biāo)簽來(lái)顯示時(shí)間。首先先對(duì)時(shí)鐘控件進(jìn)行初始化設(shè)置time_end = dateadd(n, 2, now)。當(dāng)時(shí)鐘控件開(kāi)始運(yùn)行時(shí)，計(jì)時(shí)開(kāi)始。定義一個(gè)變量t，令t=datediff(s, now, time_end)即可。如果(val(t) = 0)，那么計(jì)時(shí)就結(jié)束了8。3.8 access數(shù)據(jù)庫(kù)的設(shè)計(jì)3.8.1數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)是系統(tǒng)設(shè)計(jì)的靈魂，數(shù)據(jù)庫(kù)設(shè)計(jì)的好壞直接關(guān)系到系統(tǒng)開(kāi)發(fā)的難度。數(shù)據(jù)

34、庫(kù)中存儲(chǔ)了一些與程序運(yùn)行有關(guān)的數(shù)據(jù)用于數(shù)據(jù)調(diào)用。數(shù)據(jù)庫(kù)中所有表格的設(shè)計(jì)原則就是格式必須規(guī)范統(tǒng)一，本系統(tǒng)中所有數(shù)據(jù)信息都是以access關(guān)系數(shù)據(jù)庫(kù)為基礎(chǔ)進(jìn)行設(shè)計(jì)的，按照功能的不同設(shè)計(jì)了三個(gè)數(shù)據(jù)庫(kù)：考生信息庫(kù)、試題庫(kù)和考卷庫(kù)，下面分別介紹9。考生信息庫(kù)設(shè)計(jì)，該庫(kù)中存儲(chǔ)了考生的信息，包括考生姓名和學(xué)號(hào)，用于在考生登錄時(shí)調(diào)用對(duì)考生身份進(jìn)行驗(yàn)證，還能將考生的得分存在里面。字段名和數(shù)據(jù)類型如表3-1。試題庫(kù)設(shè)計(jì)，在試題庫(kù)中存儲(chǔ)了所有的題目信息，包括題號(hào)、題目、選項(xiàng)a、b、c和答案，用于系統(tǒng)隨機(jī)抽題時(shí)題目的選取。字段名和數(shù)據(jù)類型如表3-2。考卷庫(kù)設(shè)計(jì)，在考卷庫(kù)中存儲(chǔ)的是在試題庫(kù)中隨機(jī)抽出的題目信息，包括題號(hào)

35、、題目、選項(xiàng)a、b、c，用于組成考卷。字段名和數(shù)據(jù)類型如表3-3。表3-1考生信息表字段名稱數(shù)據(jù)類型說(shuō)明學(xué)號(hào)文本每個(gè)考生的學(xué)號(hào)姓名文本每個(gè)考生的姓名成績(jī)文本用于存放考生的最后成績(jī)表3-2題庫(kù)表字段名稱數(shù)據(jù)類型說(shuō)明題號(hào)文本用于存放考題序號(hào)題目文本存儲(chǔ)了試題內(nèi)容a文本b文本c文本答案文本對(duì)應(yīng)的正確答案表3-3考卷表字段名稱數(shù)據(jù)類型說(shuō)明題號(hào)文本指示考卷中的題號(hào)題目文本考卷中的題目a文本b文本c文本答案文本對(duì)應(yīng)的正確答案考生答案文本考生考試時(shí)選擇的答案3.8.2數(shù)據(jù)庫(kù)的訪問(wèn)本系統(tǒng)運(yùn)用的編程環(huán)境是vb6.0。vb6.0在數(shù)據(jù)庫(kù)開(kāi)發(fā)方面有強(qiáng)大的功能，提供了全面的數(shù)據(jù)庫(kù)對(duì)象編程接口。本系統(tǒng)采用了vb內(nèi)嵌的d

36、ata數(shù)據(jù)控件，data是訪問(wèn)數(shù)據(jù)庫(kù)的一種方便的工具，數(shù)據(jù)控件提供有限的不需要編程而能訪問(wèn)現(xiàn)存數(shù)據(jù)庫(kù)的功能，允許將vb的窗體與數(shù)據(jù)庫(kù)方便地進(jìn)行連接。要利用數(shù)據(jù)控件返回?cái)?shù)據(jù)庫(kù)中記錄的集合，應(yīng)先在窗體上畫(huà)出控件，再通過(guò)他的三個(gè)屬性connect、databasename和recordsource設(shè)置要訪問(wèn)的數(shù)據(jù)資源。其中connect是數(shù)據(jù)控件要連接的數(shù)據(jù)類型，在本系統(tǒng)中就是access數(shù)據(jù)庫(kù)，databasename是指定到具體使用的數(shù)據(jù)庫(kù)的文件名，recordsource確定具體可訪問(wèn)的數(shù)據(jù)即本系統(tǒng)中的考生信息表、試題庫(kù)表和試卷表10。3.8.3數(shù)據(jù)庫(kù)的管理和維護(hù)數(shù)據(jù)庫(kù)是考試系統(tǒng)計(jì)數(shù)據(jù)的來(lái)源，

37、數(shù)據(jù)庫(kù)管理模塊是系統(tǒng)重要的組成部分，主要功能是科學(xué)的對(duì)數(shù)據(jù)庫(kù)的管理和維護(hù)。通過(guò)權(quán)限設(shè)定，允許維護(hù)人員對(duì)數(shù)據(jù)庫(kù)進(jìn)行增加、刪除、改進(jìn)和查詢操作。其中對(duì)試題庫(kù)來(lái)說(shuō)，可以對(duì)所有題型以統(tǒng)一的格式進(jìn)行批量導(dǎo)入。由于老師只要記住一種輸入題目的格式，因而提高了集中輸入題目的準(zhǔn)確性和效率。數(shù)據(jù)庫(kù)創(chuàng)建見(jiàn)圖3-6。數(shù)據(jù)庫(kù)管理和維護(hù)創(chuàng)建數(shù)據(jù)庫(kù)導(dǎo)入數(shù)據(jù)庫(kù)瀏覽數(shù)據(jù)庫(kù)修改數(shù)據(jù)庫(kù)刪除數(shù)據(jù)庫(kù)圖3-6數(shù)據(jù)庫(kù)創(chuàng)建圖四結(jié)束語(yǔ)學(xué)生無(wú)紙化考試系統(tǒng)是現(xiàn)代考試發(fā)展的必然趨勢(shì)，他適應(yīng)現(xiàn)代教學(xué)的需求。而且，隨著計(jì)算機(jī)技術(shù)的發(fā)展和網(wǎng)絡(luò)的優(yōu)化，這種考試方式也將會(huì)更加成熟和完善。無(wú)紙化考試方式對(duì)學(xué)生學(xué)習(xí)過(guò)程和學(xué)習(xí)成果的評(píng)價(jià)提供了科學(xué)、有效、全面、可行

38、的測(cè)評(píng)模式。現(xiàn)在，系統(tǒng)設(shè)計(jì)已經(jīng)初步完成，我覺(jué)得整個(gè)系統(tǒng)的設(shè)計(jì)過(guò)程是一項(xiàng)既復(fù)雜又有樂(lè)趣的開(kāi)發(fā)創(chuàng)造性活動(dòng)。在設(shè)計(jì)過(guò)程中要求我既要能夠熟練使用編程語(yǔ)言又要有靈活的邏輯思維能力，在做設(shè)計(jì)的時(shí)候，通過(guò)查閱相關(guān)資料來(lái)解決一些難題。而且，在開(kāi)發(fā)過(guò)程中，對(duì)vb編程語(yǔ)言有了更加深入的了解和掌握。經(jīng)過(guò)幾個(gè)月的努力，最終完成了系統(tǒng)設(shè)計(jì)，經(jīng)過(guò)不斷的修改和調(diào)試，已經(jīng)能初步實(shí)現(xiàn)選擇題的隨機(jī)抽取、自動(dòng)組卷、自動(dòng)評(píng)分功能和考生登錄時(shí)身份驗(yàn)證的功能。該系統(tǒng)雖然不夠完善，但也有很多自己的特點(diǎn)：明朗的用戶界面，界面上的控件都見(jiàn)名知意，考生一看就知道如何去做。系統(tǒng)的隨機(jī)性，隨機(jī)性是本系統(tǒng)的核心。數(shù)據(jù)庫(kù)的管理方便，易于維護(hù)。由于是首次

39、運(yùn)用編程語(yǔ)言設(shè)計(jì)這樣大的一個(gè)系統(tǒng)，而且設(shè)計(jì)時(shí)間有限，該系統(tǒng)還存在著諸多問(wèn)題：首先，該系統(tǒng)只做了選擇題而對(duì)填空題和其他主觀題都沒(méi)能設(shè)計(jì)出來(lái)。其次，題目?jī)?nèi)容都是已經(jīng)輸入到了數(shù)據(jù)庫(kù)的題目，不能由考生選擇題目難度和范圍。第三，考生登錄時(shí)只用到了學(xué)號(hào)輸入，沒(méi)有密碼設(shè)計(jì)。鑒于這些問(wèn)題，我想我應(yīng)該在以后的日子里將其完善和改進(jìn)，通過(guò)對(duì)vb語(yǔ)言的深入學(xué)習(xí)，增加其他題型的設(shè)計(jì)，完成題目的難度和范圍選擇，并且在考生登錄的界面加強(qiáng)身份驗(yàn)證以防止其他非考生惡意登錄。謝辭在此，我要感謝我的指導(dǎo)老師姜老師，是她在此次的畢業(yè)設(shè)計(jì)中給了我悉心的指導(dǎo)和耐心的幫助。是老師從課題的選取、資料的提供和設(shè)計(jì)的指導(dǎo)給了我莫大的幫助，才能讓

40、我順利得完成系統(tǒng)的開(kāi)發(fā)，再一次對(duì)姜老師表示衷心的感謝，謝謝您！同時(shí)，我還要感謝我的同學(xué)，謝謝他們對(duì)我的幫助！最后，要感謝實(shí)驗(yàn)室的老師們，是他們提供給我了實(shí)驗(yàn)的地方！通過(guò)這次畢業(yè)設(shè)計(jì)，不但使我學(xué)會(huì)了幾種軟件的應(yīng)用，增加了知識(shí)結(jié)構(gòu)，提高了我的思維能力和動(dòng)手能力，同時(shí)還讓我學(xué)會(huì)了與他人處事的方法，為我步入社會(huì)提供了一個(gè)好的基石！參考文獻(xiàn)1唐大仕，蔡翠平visual basic程序設(shè)計(jì)北京：北京大學(xué)出版社，2002，122明日科技visual basic管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析北京：人民郵電出版社，2005，123龔沛曾，陸慰民，楊志強(qiáng)visual basic程序設(shè)計(jì)簡(jiǎn)明教程北京：高等教育出版社，

41、2002,564趙平，劉瑞挺，王成鈞access數(shù)據(jù)庫(kù)實(shí)用教程北京：清華大學(xué)出版社，2006，7325龔偉，趙珺用visual basic asp access 2002制作考試系統(tǒng)北京：人民郵電出版社，2002，1271326郭龍，馮希業(yè)visual basic程序設(shè)計(jì)北京:清華大學(xué)出版社，2005，1141227wang tiantian, su xiaohong, wang yuying semantic similarity-based grading of student programs.information and software technology, 2007,49：99

42、1078彭波visual basic程序設(shè)計(jì)北京:清華大學(xué)出版社，2002,16179趙乃真access數(shù)據(jù)庫(kù)基礎(chǔ)教程北京：清華大學(xué)出版社,2006,364310王溫君，汪洋，陳濱visual basic程序設(shè)計(jì)教程北京：清華大學(xué)出版社，2005，268269附錄考生登錄模塊程序源代碼：private sub form_load()data1.databasename = curdir + + db1end subprivate sub label4_click()dim student_name as stringdim student_num as stringstudent_num =

43、text1data1.recordset.findfirst 學(xué)號(hào)= + + text1 + 查找學(xué)號(hào)if data1.recordset.nomatch thenmsgbox 沒(méi)有該考生 , 48, 警告 判斷學(xué)號(hào)elsenum_stu = data1.recordset.fields(學(xué)號(hào))name_stu = data1.recordset.fields(姓名)form2.showform1.hideend ifend subprivate sub label5_click()unload meend subprivate sub picture2_click()end subpriva

44、te sub text1_keypress(keyascii as integer)if (keyascii = 13) thencall label4_clickend ifend sub考試模塊程序源代碼：private sub command1_click()time_end = dateadd(n, 2, now)timer1.enabled = truecommand4.enabled = truecommand1.enabled = falsecommand3.enabled = trueoption1.enabled = trueoption2.enabled = trueopt

45、ion3.enabled = truedata3.recordsource = select 題號(hào),考生答案 from 考卷data3.refreshmsflexgrid1.col = 2msflexgrid1.cellbackcolor = &hc0ffc0*隨即抽題randomizefor i = 1 to 20arry_num(i) = int(rnd * 60 + 1)compare:for j = 1 to i - 1if arry_num(j) = arry_num(i) thenarry_num(i) = int(rnd * 60 + 1)goto compareend ifne

46、xt jnext ion error resume next*刪除data1.recordset.movelastn = data1.recordset.recordcountfor i = 1 to ndata1.recordset.movefirstdata1.recordset.deletedata1.recordset.movenextnext i*加載for i = 1 to 20data2.recordset.findfirst 題號(hào)= & & arry_num(i) & 查找學(xué)號(hào)data1.recordset.addnewdata1.recordset.fields(題號(hào)) =

47、idata1.recordset.fields(題目) = data2.recordset.fields(題目)data1.recordset.fields(a) = data2.recordset.fields(a)data1.recordset.fields(b) = data2.recordset.fields(b)data1.recordset.fields(c) = data2.recordset.fields(c)data1.recordset.fields(答案) = data2.recordset.fields(答案)data1.recordset.updatenext ida

48、ta1.recordset.movefirst*顯示考題label1.forecolor = &h0&label2.forecolor = &h0&label3.forecolor = &h0&label4.forecolor = &h0&label5 = data1.recordset.absoluteposition + 1end subpublic sub command2_click()on error resume nextdata1.recordset.movepreviouspre_ans = data1.recordset.fields(考生答案)call sub_writel

49、abel5 = data1.recordset.absoluteposition + 1data3.refreshmsflexgrid1.col = 2msflexgrid1.row = val(label5)msflexgrid1.cellbackcolor = &hc0ffc0end subpublic sub command3_click()on error resume nextdata1.recordset.movenextpre_ans = data1.recordset.fields(考生答案)call sub_writelabel5 = data1.recordset.abso

50、luteposition + 1data3.refreshmsflexgrid1.col = 2msflexgrid1.row = val(label5)msflexgrid1.cellbackcolor = &hc0ffc0end subprivate sub command4_click()if (l 0) thenss = msgbox(時(shí)間未到,是否交卷?, 260, 警告)end ifif ss = 6 then交卷call sub_b不交卷elseexit subend if*end subprivate sub form_load()data1.databasename = cu

51、rdir + + db1data2.databasename = curdir + + db1data3.databasename = curdir + + db1timer1.enabled = falsecommand4.enabled = falselabel1.forecolor = &h8000000flabel2.forecolor = &h8000000flabel3.forecolor = &h8000000flabel4.forecolor = &h8000000foption1.value = falseoption2.value = falseoption3.value = falsecommand2.enabled = falsecommand3.enabled = falseoption1.enabled = falseopti