【正文】 False EndProperty Height = 255 Left = 120 TabIndex = 6 Top = 240 Width = 1335 End Begin Label2 BackStyle = 0 39。False Italic = 0 39。DISABLE Left = 1200 MaxLength = 6 PasswordChar = * TabIndex = 4 Top = 705 34 Width = 1920 End Begin Label1 BackStyle = 0 39。False Strikethrough = 0 39。CenterOwner Begin Frame1 Height = 1215 Left = 240 TabIndex = 3 Top = 480 Width = 3345 Begin Combo1 Height = 315 Left = 1200 TabIndex = 8 Text = Combo1 Top = 240 Width = 1935 End Begin Text2 BeginProperty Font Name = 宋體 Size = 12 Charset = 134 Weight = 700 Underline = 0 39。False MinButton = 0 39。 BorderStyle = 1 39。 32 參考文獻(xiàn) [1] 著 ,顧斌譯 .Visual 數(shù)據(jù)庫開發(fā) [M].北京：清華大學(xué)出版社，2020： 324497. [2]程俊源 .活用 Visual 數(shù)據(jù)庫編程 [M].北京：清華大學(xué)出版社， 2020：125157. [3]雷塞門著 ,何建輝譯 .實(shí)用 Visul 教程 [M].北京：清華大學(xué)出版社， 2020：243303. [4]劉甫迎 .Visual Basic 教程 [M].成都：電子科技大學(xué)出版社， 1999： 281324. [5]董傳銀 .Visual Basic 數(shù)據(jù)庫編程技術(shù) [M].北京：希望電子出版社， 2020：152286. [6]. , 《 Database system implementation》 ,北京 :機(jī)械工業(yè)出版社 , 2020: 123156 [7].Hector GarcialMolina , Jeffrey , Jennifer Widom,《 An introduction to Database Systems(Seventh Edition), 機(jī)械工業(yè)出版社 ,2020: 132232 [8].林陳雷 , 郭安源 , 葛曉東 , 《教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航》 , 人民郵電出版社 ,2020: 223245 [9].張立科 ,《數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐》 ,人民郵電出版社 ,2020: 123129 [10].張紅軍 , 王虹 等 《 Visual basic 中文版高級(jí)應(yīng)用與開發(fā)指南》 , 人民郵電出版社 , 2020: 178199 [11].伍俊良 主編 等 《 VB 課程設(shè)計(jì)與系統(tǒng)開發(fā)案例》清華大學(xué)出版社 , 2020: 165198 [12].姚巍，《 Visual Basic 數(shù)據(jù)庫開發(fā)及工程實(shí)例》，人民郵電出版社 ,2020: 187199 [13].求是科技，《 Visual Basic 數(shù)據(jù)庫開發(fā)技術(shù)與工程實(shí)踐》，人民郵電出版社，2020: 238276 [14].劉瑞新，汪遠(yuǎn)征，《 Visual Basic 程 序設(shè)計(jì)教程》，機(jī)械工業(yè)出版社， 2020:223287 [15].劉萌，周學(xué)明，郭安源，《 Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航》，人民郵電出版社， 2020: 222288 [16].孟小峰，王珊，《數(shù)據(jù)庫系統(tǒng)導(dǎo)論》，機(jī)械工業(yè)出版社， 2020 172188 33 附錄 VERSION Begin Login BackColor = amp。 還要衷心感謝老師三年來對(duì)本人的教誨，他們不僅使本人的知識(shí)能力得到提高，更重要的是教會(huì)了本人怎樣提高自己的自學(xué)能力，怎樣去適應(yīng)社會(huì)。真誠(chéng)的希望你的參與 。 然后就是從一而終的問題了，在開發(fā)過程中我遇到了許許多多的問題，很多地方都不明白，經(jīng)常有打退堂鼓的想法，我經(jīng)常的請(qǐng)教同學(xué)，最后的成果雖然不很完美，但我盡力了，并有所收獲。由于以前根本未曾接觸過軟件的整體開發(fā)設(shè)計(jì)，所以在前期的調(diào)研中相當(dāng)不充分，開題也有些盲目，以為把屬性和表寫得越多越 好，這個(gè)問題越到后來越嚴(yán)種，而且因?yàn)榭陀^的原因耽誤了進(jìn)度，因而對(duì)開題做了修改 。 總的來說，在這次的畢業(yè)設(shè)計(jì)種遇到了不少的問題，大部分得到了很好的解決，但也有少部分遺留的問題。通過這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒有學(xué)到的 VB 開發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。 由對(duì)各個(gè)模塊的功能測(cè)試可知，本系統(tǒng)各種功能都能正常使用，對(duì)于各數(shù)據(jù)的關(guān)系也處理的很準(zhǔn)確，具有了一定的實(shí)用性。 圖 使用第一個(gè)測(cè)試用例后 第二次添加同一試題后，測(cè)試結(jié)果如圖 所示。 測(cè)試自動(dòng)生成試卷模 塊 表 64 自動(dòng)抽取試卷模塊用例 試題總分 設(shè)置的試卷總分 預(yù)期結(jié)果 100 100 生成試卷成功 100 150 生成試卷失敗 圖 使用第一個(gè)用例后 圖 使用第二個(gè)用例后 通過測(cè)試用例可知，試題的總分要與用戶設(shè)置的試題總分要相等才能生成試卷，否 28 則提示“你設(shè)計(jì)的試卷與試題總分不合”，生成試卷失敗。其過程顯示刪除試卷功能運(yùn)行正常。 測(cè)試抽取現(xiàn)有試卷模塊 表 61 抽取現(xiàn)有試卷模塊用例表 創(chuàng)建時(shí)間 創(chuàng)建者 試題 難度 預(yù)期結(jié)果 100517 13： 55： 53 鄭杰 中等 顯示本試卷內(nèi)容 100617 17： 57： 40 鄭杰 中等 刪除成功 第一個(gè)用例是測(cè)試系統(tǒng)的預(yù)覽試卷功能，其測(cè)試結(jié)果為如圖 所示。 測(cè)試目的和過程 本系統(tǒng)各功能已經(jīng)了解清楚，所以對(duì)其進(jìn)行黑盒測(cè)試。測(cè)試已經(jīng)不僅僅局限于軟件開發(fā)中的一個(gè)階段，它已經(jīng)開始貫穿于整個(gè)軟件開發(fā)過程，人們已經(jīng)開始認(rèn)識(shí)到：測(cè)試開始的時(shí)間越早，測(cè)試 26 執(zhí)行的越頻繁，所帶來的整個(gè)軟件開發(fā)成本的下降就會(huì)越多。 測(cè)試在軟件開發(fā)過程中一直都是備受關(guān)注的，即使在傳統(tǒng)的軟件工程中，也有一個(gè)明確、獨(dú)立的測(cè)試階段。 打印機(jī)：推薦 EPSON LQ1600KII 軟件配置要求 ： WINDOWS2020/xp 中文版操作系統(tǒng)。 內(nèi)存： 256MB 以上。 白盒測(cè)試 白盒測(cè)試也稱結(jié)構(gòu)測(cè)試或邏輯驅(qū)動(dòng)測(cè)試，它是知道產(chǎn)品內(nèi)部工作過程，可通過測(cè)試來檢測(cè)產(chǎn)品內(nèi)部動(dòng)作是否按照規(guī)格說明書的規(guī)定正常進(jìn)行，按照程序內(nèi)部的結(jié)構(gòu)測(cè)試程序，檢驗(yàn)程序中的每條通路 是否都有能按預(yù)定要求正確工作，而不顧它的功能，白盒測(cè)試的主要方法有邏輯驅(qū)動(dòng)、基路測(cè)試等，主要用于軟件驗(yàn)證?！?黑盒 ” 法是窮舉輸入測(cè)試，只有把所有可能的輸入都作為測(cè)試情況使用，才能以這種方法查出程序中所有的錯(cuò)誤。黑盒測(cè)試方法主要有等價(jià)類劃分、邊值分析、因 — 果圖、錯(cuò)誤推測(cè) 等，主要用于軟件確認(rèn)測(cè)試。 \數(shù)據(jù)庫備份 \, amp。 \) Then amp。 \, amp。 \數(shù)據(jù)庫備份 \) Then amp。 If ItemInfo = “Choice” Then If ((0).Text) = True Then Text1(0).Text = Text1(0).Text + 1 = Text1(0).Text (4).Text ‘判斷添加試題難度，并統(tǒng)計(jì) (0).Text, Text1(0).Text 1 MsgBox “添加成功！ ”, vbInformation Else MsgBox “您已經(jīng)選擇了此題！ ”, vbCritical 自動(dòng)生成試卷時(shí)生成一個(gè)覆蓋知識(shí)點(diǎn)廣且試題不重復(fù)的試卷處理 自動(dòng)生成試卷時(shí)如何生成一個(gè)覆蓋知識(shí)點(diǎn)廣且試題不重復(fù)的試卷，處理該問題的關(guān)鍵算法在于如何生成一個(gè)不重復(fù)的隨機(jī)數(shù)序列。 39。 Sql = Sql amp。 ItemInfo Sql = Sql amp。其具體算法代碼如下： If Not Is Nothing Then 39。 Dim rs As String。但是在顯示章節(jié)信息的時(shí)候必須按照書本的章節(jié)順序來顯示。保存試卷，調(diào)用函數(shù) MsgBox 保存成功 , vbInformation Else MsgBox 您設(shè)計(jì)的試卷與 實(shí)際總分不合，請(qǐng)修改 , vbCritical End If 生成試卷的模版 22 生成的試卷必須按照定義的模板保存，圖 給出了定義的模板示意。 其界面如圖 所示。 End Function 3. 手動(dòng)生成試卷 自動(dòng)生成試卷界面下可進(jìn)行如下操作： ? 加入試卷 ： 選定加入試卷的題目，并記錄其信息 。打開紀(jì)錄集 If 0 Then Do Until If (ND) = 5 Then int1 = int1 + 1 Else If (ND) = 10 Then int2 = int2 + 1 Else If (ND) = 15 Then int3 = int3 + 1 End If Loop int4 = int1 + int2 + int3 Label10(0).Caption = int1 Label10(1).Caption = int2 Label10(2).Caption = int3 21 Label10(3).Caption = int4 End If Set rs = Nothing Exit Function DealError: ShowError 程序執(zhí)行出錯(cuò)，錯(cuò)誤信息如下： amp。加載選擇題 On Error GoTo DealError strSQl = select * from Choice order by BH 39。 其界面如圖 所示。 ? 預(yù)覽答案：通過 WORD 文檔打開剛生成試卷答案，可以瀏覽試卷答案。確定操作的表和方式 Set rst = QueryExt(strSQl) Do Until Loop MsgBox 刪除成功 , vbExclamation InitGrid1 InitGrid2 2. 自動(dòng)生成試卷 20 自動(dòng)生成試卷界面下可進(jìn)行如下操作： ? 生成 試卷：系統(tǒng)根據(jù)用戶要求隨機(jī)選題，生成試卷。 39。 amp。 39。 (, 0) amp。刪除試卷 Dim rst As Recordset If MsgBox(是否刪除該試卷？ , vbYesNo, 確認(rèn) ) = vbYes Then strSQl = select * from SJ where SJDH= 39。 ? 刪除試卷：徹底清除已存試卷的任何信息。 1. 題庫已有試卷 如果題庫中已經(jīng)存在試卷，可以直接從已經(jīng)存在的試卷中抽取