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