基於資料庫、OLE及VBA技術的《電腦文化基礎》整合考試系統

來源:互聯網
上載者:User
資料|資料庫
        基於資料庫、OLE及VBA技術的《電腦文化基礎》整合考試系統

           陳克力 

    內容提要:本文介紹了在VB中利用資料庫技術、對象連結技術(OLE)及VBA編程開發的整合考試系統,從而實現在《電腦文化基礎》課中對理論知識與操作技能進行無紙化考試與自動閱卷。    關鍵詞:資料庫 OLE VBA 無紙化考試                         一. 問題提出

    《電腦文化基礎》是非電腦專業都要開設的一門文化基礎課,主要考查學生必要的理論知識與熟練的操作技能。該課程的傳統考試一般分為兩個部分——筆試與操作,筆試將答案答在紙上再由教師進行人工閱卷(大型考試中也利用機讀卡閱卷)。操作考試又分為基本操作、中英文錄入、作業系統使用、文檔排版(WORD)、資料處理(EXCEL)等方面,需要在教師監考下學生將操作結果完成在磁碟上,最後由教師逐個查閱磁碟檔案再人工評分。這種考試方法很不適應當前形勢的要求,暴露出如下弊端:從出題、制卷、考試、閱卷、成績統計等考試過程繁瑣;涉及環節和人員眾多,試卷保密要求高;閱卷工作量大,特別是操作考試要在電腦上逐一檢查操作結果,費時費力,使教師不堪重負;試卷分析缺乏準確性,一般只能對總分數的結果進行大致分析如分數段統計、平均分計算,不能做到更準確的分析,如均方差、信度、效度分析等難以有效實現;更重要的是,傳統考試不能體現“微機是一項現代高科技的結晶,普及微機應用是微機教學的目的”的基本思想。    綜上所述,該課程的考試迫切需要一套能快速、自動、有效地完成考試環節的系統——無紙化考試系統。下面介紹本人用VB開發的、採用資料庫技術、OLE技術實現的無紙化考試系統的準系統與實現。

                        二. 需求分析

    經過對該課程的考試環節的分析,系統要能完成如求:    1. 筆試與操作考試一體化  對理論知識與操作技能的考試集中在電腦上完成,理論題多採用選擇題(單項選擇、多項選擇)、判斷題,以利用電腦自動評分。這樣減少了筆試環節,節省了筆試、制卷、紙張、印刷等費用。    2. 考試試卷隨機化  採用題庫技術,考試時從題量很大的題庫中隨機產生試卷,每位考生的試題均不一樣,可以有效地防止試卷泄密、考生作弊等情況的出現。    3. 評分自動化  考生在機上提交試卷後,即由電腦自動完成試卷的評分,成績可以馬上評出。節省了教師的大量時間、精力,避免了考生長時間等分數、閱卷工作中的暗箱操作等情況的出現。    4. 試卷分析科學化  在整次考試完成後,可以自動完成成績的登記、統計、分析等工作,且可以做到精確地分析出考試中均方差、信度、效度等資料,可科學指導以後的教學工作。

                   三. 功能模組設計

    1. 功能模組  主控模組負責系統安全及介面設定。其下分為三個模組:    2. 題庫管理  主要負責題庫中各種類型題目的增加、刪除、修改、統計等工作,同時還完成考試時間、題型、題量、難度、範圍等要求的設定。由教師在後台進行操作。也可藉助ACCESS輔助管理。    3. 考試監控  該模組是考生在前台操作:      3.1 登入  錄入並核對考生准考證號、姓名等資訊;      3.2 組卷   從題庫中按照考試要求隨機抽取試題產生試卷;      3.3 考生環境初始化 完成考生操作考試所要求的檔案環境,如檔案夾、檔案。      3.4 考試  考生點擊開始考試後,完成考試的倒計時、顯示考試題目,考生進行理論知識的答題、動手操作;      3.5 自動評分  在到達規定時間或考生交卷後,系統自動完成試卷的評分,並將成績入庫,馬上給出考試成績。   4. 試卷分析  主要完成考試成績的總體分析、各題得分情況的分析。此模組由教師在後台操作。

                    四. 資料庫設計

    基於上述要求,資料庫系統提供如下資料庫表:    1. 考生資訊表:包括考生准考證號(C,8)、姓名(C,8)、理論成績(N,3)、上機成績(N,3)、是否合格(F)等欄位。    2. 理論題庫表:實際上是單選題、多選題、判斷題等三個資料表。每個表中含編號(N,5)、章節號(N,4)、難度(C,1)、題目(C,200)、選項A、B、C、D(C,50),答案(C,4)等欄位。    3. 操作題庫表:根據本課程所要求的操作要求,分別設計了如下幾個表:    (1) 作業系統表   考查作業系統的操作使用。根據考核的基本方面,分為編號、建立檔案、刪除檔案、複製檔案、移動檔案、設定屬性等欄位,每個欄位中前面為操作對象,後面為操作目標,中間用“,”隔開。    (2) 文字錄入表  考查文字錄入速度及正確率。設計編號及文字(M)兩欄位。    (3) 文檔排版表  考查WORD文檔排版用。除編號外,根據考試要求,對每項操作設計了一個欄位,如字型,字形,字型大小,對齊,行距,左縮排,右縮排,面面設定,頁面邊界,圖形源,圖形大小,圖形環繞等。每個欄位也分為操作對象和屬性,如字型(第四段,宋體);    (4) 資料處理表  考查EXCEL進行資料處理。設計基本同文檔排版表。    4.考試要求表  設定考試時間、開始章節、結束章節、難度、單選、多選、判斷、作業系統、文字錄入、文檔排版、資料處理等題型的數量與分數。

                    五. 程式設計中的主要問題的解決

    本系統中的主控模組、題庫管理模組的實現與一般的資料庫管理系統一樣,很容易實現。本系統中要解決有如下幾個主要問題:    1. 試卷的產生  考生登入後按照考試要求隨機產生一套試題,並形成試卷。本系統採用了與題庫中各庫表對應的試卷表。——理論試卷表、作業系統試卷表、打字試卷表、文檔處理表。下面以抽取單選題為例說明其組卷過程如下:    (1)考試要求庫    (2)取出單選題題量    (3)從單選題庫中篩選符合要求(範圍)的題目    (4)判斷題數<題量,若是則顯示錯誤資訊,退出;    (5)抽題數=0;    (6)判斷抽題數<=題量,否則進入下一大題抽取;    (7)產生在1——題數範圍內的隨機整數;    (8)判斷該題是否抽過,若是則返回(7)重新產生;    (9)抽取該題入理論題庫;    (10)抽題數增加1,返回(6);    (11)抽取下一大題。    2. 考生環境初始化    主要完成作業系統題、文檔排版題等題目所要求的檔案夾與檔案。本系統為每一位考生建立以考號為名的檔案夾,考生作業環境均在此檔案夾環境下進行。在組卷完成後,就自動從試卷庫中取出對應欄位值,建立相應檔案與檔案夾。      2.1  作業系統題環境  在VB中可用MKDIR建立檔案夾,建立檔案的命令如下:            Open  檔案名稱 for output as #檔案號 ( 開啟檔案以寫入)          write 檔案號 ,寫入內容  (寫入)          close 檔案號   (關閉)    作業系統題中只對檔案名稱進行操作,不涉及內容,因此寫入內容可任定;      2.2 文檔排版題環境  在考生檔案夾下產生WORD文檔與相應圖片檔案,並寫入相應文字內容;系統採用在程式中用OLE技術調用WORD的產生等處理檔案:   Set wrdobj = CreateObject("Word.Application")    '建立WORD應用對象   wrdobj.Visible = False    '不顯示該對象   Set vardoc = wrdobj.Documents.Add()   ‘建立文檔   cztm1 = r3.Fields("檔案內容")   wrdobj.Selection.TypeText Text:=cztm1   ‘將檔案內容欄位寫入文檔中   cztm1 = r3.Fields("檔案名稱")   vardoc.SaveAs filename:=CurDir + "\" + cztm1  ‘以指檔案件名儲存文檔   wrdobj.Quit SaveChanges:=wdSaveChanges  ‘結束該應用程式    3. 考試過程的監控    開始考試後,考生點擊對應按鈕可進入理論考試或操作考試,然後可以方便地作答;對於選擇題只須在對應選項上單擊即可選中,操作題中同樣點擊相應按鈕即可顯示WINDOWS操作題、文文書處理等題目要求,點擊“啟動WORD”可自動啟動WORD軟體。螢幕上動態顯示倒計時,在指定時間到達後系統將停止作答。考生也可點擊交卷按鈕提前交卷。交卷後進入自動評分模組。    4. 自動評分    評分中理論評分較易實現,只需要將考生答案(都是一些選擇結果)與標準答案進行比較即可快速完成評分。下面主要說明操作考試的評分:     4.1 作業系統評分   檢查考生檔案夾下是否有要求的檔案或檔案夾或是檔案屬性。下面是判斷複製檔案部分一段程式:

       st = r1.Fields("複製檔案")   ‘取得試卷庫中複製檔案操作要求欄位;       fdir1 = Left(st, InStr(st, "\") - 1)  ‘取得源檔案夾       ff = Mid(st, InStr(st, "\") + 1, InStr(st, ",") - InStr(st, "\") - 1)   ‘取得源檔案名稱       fdir2 = Mid(st, InStr(st, ",") + 1)  ‘取得目的檔案夾       If Dir(fdir2 + "\" + ff) <> "" Then osfs = osfs + fs  ‘若目的檔案夾下有源檔案名稱對應的檔案,加該部分得分     4.2 文字錄入評分  逐一比較考生錄入文字與標準文字中匹配字元數即可。     4.3 文檔排版和資料處理評分  這是本系統開發中難度最大的一部分。基本思想是:在VB中調用WORD或EXCEL開啟對應文檔,再利用VBA編程完成對操作對象的選定、返回選取的物件的屬性值、及與試卷中對應要求相比較,從而判斷考生操作結果是否正確。下面給出判斷段落對齊的一段代碼:       Set r1 = d1.OpenRecordset("WORD題")          '取得產生WORD題操作要求'       Set wrdobj = CreateObject("Word.Application")        wrdobj.Visible = True       cztm1 = r1.Fields("檔案名稱") + ".doc"       wrdobj.Documents.Open filename:=CurDir + "\" + cztm1       ActiveDocument.Select   ‘開啟操作檔案檔       With wrdobj.Selection         ActiveDocument.Select         Select Case r1.Fields("字形")   ‘字形設定要求           Case "加粗":    If .Font.Bold = True Then wordfs = wordfs + 1           Case "傾斜":       If .Font.Italic = True Then wordfs = wordfs + 1           Case "加粗傾斜":         If .Font.Bold And .Font.Italic Then                           wordfs = wordfs + 1         End Select       End with

                 六. 系統應用效果

    本系統現已試用於我校《電腦文化基礎》教學的學期考試中,學生和教師反映都較好。基本實現了考試的無紙化,將教師從繁瑣的考試環節中解放出來,節省了大量的人財物,使教師有更多的時間和精力放在題目的科學性建設中和教學內容、教學方法的鑽研中。學生也對學習微機更有興趣了。當然系統也還存在一問題:如理論題只有客觀題,操作題項目比較固定,對題庫管理中資料錄入有嚴格的要求,操作介面相對單調等,這將在以後的使用中不斷完善。                           主要參考文獻:(1).《Visual Basic 中文版自學捷徑》 林躍 ,北京大學出版社;(2).《microsoft word for visual basic 》電子版,微軟公司。

                英文資訊:      Title:  The intensive Test System Based on Database and Ole and VBA technologe      Author: Chen keli      Address: SiChuan Pharmaceutical School      Zip code: 614201       Abstract:  This article introduces a Test System without paper, which is based on  Database and OLE and VBA technologe in the VB programme  in order to realize  the theoritcal knowledge  and the operateing skill's test in the course of the Computer Culture Basis.      KeyWords: Database OLE VBA  Test without paper            電子郵件:click_ckl@163.com






相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。