【正文】 Do Loop RandNo(index1) = tempid Next index1 （ 2）然后對(duì)生成的隨機(jī)數(shù)排序 For index1 = 1 To SJ 1 tempid = index1 For index2 = index1 + 1 To SJ If CInt(Trim(RandNo(index2))) CInt(Trim(RandNo(tempid))) Then tempid = index2 End If 24 Next index2 temp = RandNo(index1) RandNo(index1) = RandNo(tempid) RandNo(tempid) = temp Next index1 （ 3）最后將隨機(jī)號(hào)對(duì)應(yīng)的記錄集中編號(hào)取出 For index1 = 1 To SJ Dim intemp As Long intemp = CLng(RandNo(index1)) intemp 1 SaveItemSerial(index1) = Trim((“BH”)) Next index1 RItem = True 數(shù)據(jù)庫的備份與恢復(fù) 數(shù)據(jù)庫備份的部分代碼 Public Function DBBackUp() Dim fs Set fs = CreateObject() If ( amp。只響應(yīng)葉節(jié)點(diǎn) (沒有孩子 ) If = 0 Then Dim Sql As String Sql = select BH,Type,TM,ZJ,ND from amp。 圖 手動(dòng)生成試卷界面 以下為保存試卷功能的核心代碼： Private Sub Command2_Click() Dim index1 As Integer RefreshMarks Summarks=++ + + If Summarks = Then CalTestDifficult SaveContest 39。 圖 自動(dòng)生成試卷界面 實(shí)現(xiàn)該功能的核心代碼如下： Public Function LoadObject() 39。 (, 0) amp。 刪除試卷的核心代碼段如下： Private Sub Command3_Click() 39。 （ 4）題庫 錄入： 點(diǎn)擊后進(jìn)入試題錄入界面。教師權(quán)限 IsUserMode = 3 Else 39。具體代碼如下： If Trim((1)) = Trim() Then 39。39。本管理系統(tǒng)登錄界面如圖 51 所示。 （ 2） 用戶選擇一份已有試卷，系統(tǒng)自動(dòng)從數(shù)據(jù)庫表 SJT 中搜索該試卷試題的“編號(hào) ” ， “分值 ” ， “難度 ” 。 （ 3）生成試卷，系統(tǒng)判斷用戶設(shè)置分?jǐn)?shù)是否與試題總分?jǐn)?shù)相等，是則生成一份完整的試卷，并將試題的“編號(hào)”、“難度”、“分值”、“類型”等信息存入數(shù)據(jù)庫表SJT 中。 （ 5）設(shè)置試卷模板。各數(shù)據(jù)表的具體情況如表 1 至表 9 所示。 ? 手動(dòng)生成試卷模塊：顯示加入試卷，保存試卷功能。 試題管理系統(tǒng)和試卷生成系統(tǒng)是兩個(gè)連在一起的系統(tǒng)，而本系統(tǒng)主要介紹的就是試卷生成系統(tǒng)的設(shè)計(jì)和方法。這三種身份的人具有不同權(quán)限，管理員負(fù)責(zé)管理系統(tǒng)帳號(hào)；教務(wù)管理員負(fù)責(zé)管理試題、審核試題、打印試題；教師只能瀏覽和根據(jù)需要組卷。 （ 4）試卷生成速度不宜太慢。 SQL 功能強(qiáng)大，是一種完備的數(shù)據(jù)處理語言，不僅用于數(shù)據(jù)庫查詢，而且用于數(shù)據(jù)庫中的數(shù)據(jù)修改和更新，概括起來，它可以分成以下幾組： DML（ Data Manipulation Language，數(shù)據(jù)操作語言）：用于檢索或者修改數(shù)據(jù) ； DDL（ Data Definition Language，數(shù)據(jù)定義語言）： 用于定義數(shù)據(jù)的結(jié)構(gòu)，比如 創(chuàng) 6 建、修改或者刪除數(shù)據(jù)庫對(duì)象； DCL（ Data Control Language，數(shù)據(jù)控制語言）：用于定義數(shù)據(jù)庫用戶的權(quán)限 [11]。 SQL 語言有著非常突出的優(yōu)點(diǎn)， SQL 語言 是非過程化 的 語言 、 統(tǒng)一的語言 、 是所有關(guān)系數(shù)據(jù)庫的公共語言 。 SQL(Structured Query Language，結(jié)構(gòu)查詢語言 )是一個(gè)功能強(qiáng)大的數(shù)據(jù)庫語言。 Access 是一個(gè)可視化工具，是風(fēng)格與 Windows 完全一樣，用戶想要生成對(duì)象并應(yīng)用，只要使用鼠標(biāo)進(jìn)行拖放即可，非常直觀方便。 Execute 方法：執(zhí)行指定的查詢、 SQL 語句、存儲(chǔ)過程或特定提供者的文本等內(nèi)容。 Field 對(duì)象：代表使用普通數(shù)據(jù)類型的數(shù)據(jù)的列。 ADO是基于 OLEDB 之上的技術(shù)，因此 ADO 通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法。 ImageList 屬性：指定的 ImageList 控件保存在 Node 對(duì)象中使用的點(diǎn)位圖和圖標(biāo)。 ImageWidth 屬性：用來設(shè)置圖的寬度。例如窗體和控件，就是 VB的對(duì)象， VB 中的對(duì)象是由系統(tǒng)設(shè)計(jì)好提供給用戶使用的。同時(shí)也仔細(xì)說明了系統(tǒng)實(shí)現(xiàn)過程中的關(guān)鍵技術(shù)。 論文全面詳細(xì)地介紹了試卷生成系統(tǒng)的設(shè)計(jì)思想、實(shí)現(xiàn)原理和使用技巧。系統(tǒng)“體積”非常小，壓縮后只有幾百 KB。SQL 1 第一章 緒論 開發(fā)背景與研究現(xiàn)狀 隨著計(jì)算機(jī)應(yīng)用 技術(shù) 的蓬勃發(fā)展 ，計(jì)算機(jī)技術(shù)的 應(yīng)用已滲入到 我們 社會(huì)的各個(gè)領(lǐng)域之中 并發(fā)揮 出它 越來越重要的作用。 本系統(tǒng)前臺(tái)是面向?qū)ο蟮目梢暬幊坦ぞ?Visual Basic，后臺(tái)是 SQL Server 2020數(shù)據(jù)庫。文中介紹了 VB 和 SQL 的功能、特點(diǎn)，還著重說明了該系統(tǒng)的特色，例如：在試 題操作模塊允許教師加題、改題和刪題，其中的批量自動(dòng)加題給老師們帶來了極大的方便。 一個(gè)學(xué)校， 試卷 管理是學(xué)校一項(xiàng)重要工作。平時(shí)只要將一些試題或從網(wǎng)絡(luò)下載的試題，按“學(xué)科”、“章節(jié)”、“知識(shí)點(diǎn)”、“題型”、“難易程度”五個(gè)參數(shù)進(jìn)行歸類 ,錄入題庫，需要用時(shí)，只要 輸入一些查詢條件即可查出所要找的試題。論文按如下方式組織。第六部分是系統(tǒng)的測(cè)試部分，利用測(cè)試實(shí)例來說明系統(tǒng)的可用性和數(shù)據(jù)的準(zhǔn)確性 [13]。對(duì)象建立、移動(dòng)、增刪、縮放操作也是由系統(tǒng)規(guī)定好的，這比一般的面向?qū)ο蟪绦蛟O(shè)計(jì)中的操作要簡(jiǎn)單的多，因此本軟件選擇了 作為開發(fā)工具[4]。 MSFlexGrid 控件： Rows 屬性：返回或設(shè)置在一個(gè) MSHFlexGrid 中的總行數(shù)。 Node 屬性：可以表現(xiàn)為文本，點(diǎn)位 圖，線條和加減號(hào)的 8 種組合之一。本系統(tǒng)就是用 ADO 對(duì)象來連接數(shù)據(jù)庫的 [5]。 Recordset 對(duì)象含有由 Field 對(duì)象組成的 Fields 集合。 SQL Server2020 和 SQL 語言 SQL Server 是一個(gè)關(guān)系數(shù)據(jù)庫管理系統(tǒng) , 它最初是由 Microsoft Sybase 和AshtonTate 三家公司共同開發(fā)的 。系統(tǒng)還提供了表生成器、查詢生成器、報(bào)表設(shè)計(jì)器以及數(shù)據(jù)庫向?qū)?、表向?qū)А⒉樵兿驅(qū)?、窗體向?qū)А?bào)表向?qū)У裙ぞ?，使得操作?jiǎn)便，容易使用和掌握。 SQL通常使用于數(shù)據(jù)庫的通訊。 非過程化語言 ： SQL 是一個(gè)非過程化的語言，因?yàn)樗淮翁幚硪粋€(gè)記錄，對(duì)數(shù)據(jù)提供自動(dòng)導(dǎo)航。 7 第三章 需求分析 用戶和功能需求 利用計(jì)算機(jī)建立試題庫，實(shí)現(xiàn)計(jì)算機(jī)自動(dòng)選題組卷，是 CAI 工程的重要組成部分，也是實(shí)現(xiàn)教考分離的一個(gè)重要手段。 （ 5）生成的試卷按照規(guī)定的模板輸出，并能導(dǎo)出到 word 文檔中。本系統(tǒng)主要是對(duì)試題組卷的管理，根據(jù)需求分析，可以得到系統(tǒng)流程 如圖 31 所示 。 系統(tǒng)功能模塊圖 根據(jù)需求分析，將系統(tǒng)分為四個(gè)模塊： 系 統(tǒng)管理模塊，試卷生成管理模塊，數(shù)據(jù)庫管理系統(tǒng)，系統(tǒng)幫助模塊。 ? 自動(dòng)生成模塊：顯示生成試卷，預(yù)覽試卷，預(yù)覽答案，保存試卷功能。 表 41 用戶信息表 (usermanagement) 字段中文名 字段英文名 字段類型 字段長度 姓名 NameID char 20 密碼 PWD char 20 用戶類型 QX int 2 系統(tǒng)幫助 系統(tǒng)關(guān)于 幫助 數(shù)據(jù)庫管理 數(shù)據(jù)庫還原 數(shù)據(jù)庫備份 12 表 42 題型表 (TX) 字段中文名 字段英文名 字段類型 字段長度 題型 Type char 10 名稱 TypeName char 10 表 43 難度程度表 (NYD) 字段中文名 字段英文名 字段類型 字段長度 編號(hào) BH int 4 難易度 ND char 4 表 44 選擇題表 (selects) 字段中文名 字段英文名 字段類型 字段長度 題號(hào) BH char 10 題型 Type char 10 題目 Topic char 100 選項(xiàng) A A char 100 選項(xiàng) B B char 100 選項(xiàng) C C char 100 選項(xiàng) D D char 100 正確答案 Answer char 1 難易度 ND char 4 出自章節(jié) ZJ char 2 表 45 填空題表 (adds) 字段中文名 字段英文名 字段類型 字段長度 題號(hào) BH char 10 題型 Type char 10 題目 TM char 100 空 1 K1 char 50 空 2 K2 char 50 空 3 K3 char 50 難易度 ND char 4 出自章節(jié) ZJ char 2 表 46 簡(jiǎn)答題表 (ask) 字段中文名 字段英文名 字段類型 字段長度 題號(hào) BH char 10 題型 Type char 10 13 題目 TM char 100 答案 Answer char 200 難易度 ND char 4 出自章節(jié) ZJ char 2 表 47 閱讀程序題表 (YDCX) 字段中文名 字段英文名 字段類型 字段長度 題號(hào) BH int 10 題型 Type int 10 題目 TM char 100 答案 Answer char 200 難易度 ND char 4 出自章節(jié) ZJ char 2 表 48 出卷人表 (SJ) 字段中文名 字段英文名 字段類型 字段長度 試卷代號(hào) SJDH datetime 8 出卷老師 CJLS char 20 難易度 ND char 4 表 49 已存試卷表 (SJT) 字段中文名 字段英文名 字段類型 字段長度 編號(hào) BH int 4 試卷代號(hào) SJDH datetime 8 題號(hào) ZD char 10 試卷類型 Type char 10 分?jǐn)?shù) FZ char 10 自動(dòng)組卷 與 手動(dòng)組卷 自動(dòng)組卷是時(shí)系統(tǒng)根據(jù)用戶要求，隨機(jī)選取試題，組成一份完整的試卷。 （ 6）預(yù)覽試卷，系統(tǒng)根據(jù)數(shù)據(jù)庫表 SJT 中信息搜索題庫試題內(nèi)容，并按設(shè)置好的試卷模板導(dǎo)入 Word 中，生成一份完整的試卷，并以 *.doc 文件的形式保存。且生成“試卷代號(hào)、”試卷創(chuàng)建者“，并判斷”試卷難度“，存入數(shù)據(jù)庫表 SJ中。 （ 3） 預(yù)覽試卷，系統(tǒng)根據(jù)數(shù)據(jù)庫表 SJT 中信息搜索題庫試題內(nèi)容，并按設(shè)置好的試卷模板導(dǎo)入 Word 中，生成一份完整的試卷，并以 *.doc 文件的形式打開 。 登陸功能實(shí)現(xiàn)的核心代碼如下。判斷是否有這個(gè)用戶 txtSql = select * from 用戶信息表 where 用戶名稱 = 39。39。39。 （ 5）數(shù)據(jù)備份：點(diǎn)擊后自動(dòng)備份數(shù)據(jù)庫。刪除試卷 Dim rst As Recordset If MsgBox(是否刪除該試卷？ , vbYesNo, 確認(rèn) ) = vbYes Then strSQl = select * from SJ where SJDH= 39。 39。加載選擇題 On Error GoTo DealError strSQl = select * from Choice order by BH 39。保存試卷，調(diào)用函數(shù) MsgBox 保存成功 , vbInformation Else MsgBox 您設(shè)計(jì)的試卷與 實(shí)際總分不合，請(qǐng)修改 , vbCritical End If 生成試卷的模版 22 生成的試卷必須按照定義的模板保存，圖 給出了定義的模板示意。 ItemInfo Sql = Sql amp。 \數(shù)據(jù)庫備份 \) Then amp。黑