【正文】 碼是由Visual Basic ，編程人員只需編寫實現(xiàn)功能的那部分代碼，從而大大提高了編程效率。⑷開放的數(shù)據(jù)庫功能與網(wǎng)絡支持由于應用程序中三層體系結(jié)構(gòu)的出現(xiàn)，使得網(wǎng)絡、應用程序以及數(shù)據(jù)庫的連接更加緊密起來。 Visual Basic ⑴硬件：586或更高的CPU（推薦P或更高的CPU），300MB以上的硬盤剩余空間，32MB以上的內(nèi)存。這些子菜單包括文件、編輯、視圖、工程、格式、調(diào)試、運行、查詢、圖表、工具、外接程序、窗口、幫助。⑷工具箱工具箱由21個按鈕形式的圖標構(gòu)成，顯示了各種控件的制作工具。窗體窗口是設計應用程序界面的地方，每個窗體窗口只容納一個窗體。其中，屬性窗口由對象列表框、屬性顯示排列方式、屬性列表框、屬性含義說明框。各個控件對象必須建立在窗體上，一個窗體對應一個窗體模塊。 控件在Visual Basic ，控件是由系統(tǒng)預先定義好的，是在程序中可以直接使用的一類對象。程序運行時，通過對這些屬性的改變，使對象的狀態(tài)發(fā)生變化。 事件事件是由用戶或系統(tǒng)觸發(fā)，可以由窗體或控件識別的操作。 工程（項目）資源管理器工程是指建立一個應用程序時所包含的文件的集合，包括窗體文件、模塊文件以及可以由Visual Basic ?？赏ㄟ^“視圖”菜單中的“工程資源管理器”菜單項來打開或關閉工程資源管理器窗口。⑶編寫代碼。建立試題庫是一個復雜的系統(tǒng)工程，首先要建立系統(tǒng)的數(shù)學模型，然后確定試題的屬性指標以及試題的組成機構(gòu)，再編寫試題。 在實際中的應用對于較大的題庫系統(tǒng)，其試題庫總體結(jié)構(gòu)是分層分塊的，總庫下有子庫，子庫中有分庫等。通?？捎梅謳熘械谝粋€試題的題序號和該庫中存放的試題總數(shù)目來標明該范圍（因題庫中題號是有順序的，題目按題號有序地存儲在分庫中）。例如，將試題中的圖形以圖段拼成，而圖段則由一些圖元組成，每個圖元給予不同的編碼，不同的編碼值代表不同的作圖算法，然后用參數(shù)表明圖的大小及它的相對位置。采用這種辦法存儲圖形，占滿監(jiān)視器一屏幕的單線圖（如電路圖）僅約占2K字節(jié)的存儲空間。但它并不直觀，不能給編程人員更多的有關這個對象的信息。本系統(tǒng)由于作者經(jīng)驗不夠，還沒能完全做到這一點. 數(shù)據(jù)庫本系統(tǒng)用的是 Microsoft Accesss數(shù)據(jù)庫。在這里作者以ID來定義每個表的主鍵。新建工程時，系統(tǒng)會自動建立一個窗體。但如果每次只顯示一道題，而題庫卻有成千上萬道題，就算精確到某一章、某一題型也還有幾十或上百道題，用戶找起題來就更不方便。因為，綜合題不但數(shù)量少，且在試卷中所占的分數(shù)比重大，較為重要。這些功能需要有對每道題設置難度系數(shù)，而且算法需要用到大量的數(shù)學模型，這些數(shù)學模型要由某課程的專業(yè)老師提供。這又是本系統(tǒng)的創(chuàng)新點之一。 運行環(huán)境本題庫只要配置好數(shù)據(jù)庫接口，即可在局域網(wǎng)內(nèi)與其他電腦的題庫連接。 主界面 圖32 系統(tǒng)主界面主界面包括：查詢、維護、組卷、打印、系統(tǒng)六個菜單和試題查詢、試卷查詢、試題維護、手工組卷、自動組卷、退出系統(tǒng)六個工具欄，其界面如上圖所示。并在學科名稱和所屬章節(jié)中填入相關內(nèi)容，在難度一欄中可以在容易、適中、難之間進行選擇，并寫上相關內(nèi)容的知識點，最后在認知層次一欄中在了解、掌握、應用中再進行選擇，它的界面如下圖所示。 圖35 試題庫管理系統(tǒng)條件按下打印設置按鈕會出現(xiàn)試卷及答案打印窗口，可以在其中按照自己的意圖進行填寫，如下圖所示。它的界面如下圖所示。② 試卷維護，包括所屬學科和試卷名稱，可在其中填入有關內(nèi)容進行相關的操作。⒈用戶管理，在它的功能一欄中包括修改密碼、添加用戶和刪除用戶三項，可以在這三項之間進行選擇來完成有關操作。 圖310 用戶管理⒉數(shù)據(jù)備份，包括備份和恢復，它的界面如下圖所示。首先在組卷條件中輸入試卷號和學科名稱，之后在題型、題數(shù)、難度和分值下進行有關的操作，填入有關內(nèi)容。① 試題打印，它包括打印信息和預覽、恢復、退出按鈕。 圖315 試題及答案打印 系統(tǒng)菜單包括關于系統(tǒng)和退出項。但是，經(jīng)驗表明審查并不能發(fā)現(xiàn)所有差錯。 測試是為了發(fā)現(xiàn)程序中的錯誤而執(zhí)行程序的過程，好的測試方案是盡可能的發(fā)現(xiàn)至今尚未發(fā)現(xiàn)的錯誤的測試萬案。 軟件測試的任務 軟件測試是軟件開發(fā)過程中的重要階段，是軟件質(zhì)量保證的重要手段。 軟件測試基本原則 (1)盡早地，不斷地進行軟件測試，把軟件測試貫穿于開發(fā)過程的始終。 (4)全面檢查每一測試結(jié)果，以防遺漏。 軟件測試基本方法 根據(jù)程序的功能說明書或程序邏輯結(jié)構(gòu)，設計一組測試實例(testcases)，在精心控制的環(huán)境下，按測試實例作為輸入執(zhí)行程序，然后對程序的行為進行檢驗，預定其是否和預期結(jié)果一致，如不一致，即可發(fā)現(xiàn)程序錯誤。 設計測試實例的方法一般有兩類:黑箱法和白箱法。關于黑箱測試和白箱測試下面還將詳細介紹。動態(tài)測試和靜態(tài)測試只能發(fā)現(xiàn)錯誤而不能證明程序中不存在錯誤，只有借助于程序正確性證明才有可能證明程序的正確性。閱讀文檔或程序，從而發(fā)現(xiàn)其中的錯誤。評審有這樣的一些特點:(1)能盡早發(fā)現(xiàn)錯誤并糾正，所以降低了開發(fā)的成本。而評審則是直接檢查軟件文檔本身，當發(fā)現(xiàn)錯誤時，原因也是顯然的。而評審安排在系統(tǒng)開發(fā)的早期，發(fā)現(xiàn)錯誤后，開發(fā)人員一般不緊張，可以較全面地權衡，選擇修改方案。系統(tǒng)是由子系統(tǒng)組成。測試實例設計完全以說明書為準。 2)白箱測試，即結(jié)構(gòu)測試，它與程序內(nèi)部結(jié)構(gòu)相關，要利用程序結(jié)構(gòu)的實現(xiàn)細節(jié)設計測試實例。 路徑測試要求程序中每條路徑最少檢查一次。每完成一個窗口，都單步運行它，看它的獨立運行效果。 對多個窗口的測試對多個窗口測試，主要是測試參數(shù)傳遞是否正確、窗口類型設置是否正確等。筆者就是因為結(jié)構(gòu)不合理而重新開發(fā)了三次，浪費了兩個月得寶貴時間，也體會到了開發(fā)前系統(tǒng)分析工作的重要性。本次畢業(yè)設計的知識面覆蓋甚廣，其中涉及有數(shù)據(jù)庫技術、查詢技術、程序編程、打印技術等系統(tǒng)開發(fā)方面的知識。在此，希望得到諸位老師的指正。 + Trim(txtLessonName) + 39。 + Trim() + 39。記錄的當前位置Private Sub cmdAction_Click(Index As Integer)39。/ = sqloledb39。password=39。/ MsgBox 服務器配置出錯！, vbInformation + vbOKOnly39。strSQL = SELECT * FROM Question WHERE 39。 amp。 .RecordSource = SELECT * FROM Question 39。If UnloadMode 0 Then 39。End If39。 .Update If CheckValid = False Then Exit Sub End If With rs .AddNew .Fields(LessonName) = txtLessonName .Fields(LessonGraph) = Val(txtLessonGraph) .Fields(TestType) = .Fields(TestDiff) = .Fields(TestDot) = Val(txtTestDot) .Fields(TestDep) = cbTestDep .Fields(TestScore) = Val(txtTestScore) .Fields(Test) = txtTest .Fields(TestAnswer) = txtTestAnswer .Update End With MsgBox 試題錄入成功！, vbInformation, 提示 = + 1 lblCurrentRecord = Trim(Str(CurrentPos + 1)) + / + Trim(Str()) 39。End SubPrivate Sub setFormModeTo(Mode As FormMode)39。刪除記錄39。 CStr()39。 amp。 Trim() amp。 39。 39。 amp。 Trim() amp。修改記錄 If cmdAction(4).Caption = 修 改 Then EditFlagTrue cmdAction(4).Caption = 保 存 Else With rs .Fields(LessonName) = txtLessonName .Fields(LessonGraph) = Val(txtLessonGraph) .Fields(TestType) = .Fields(TestDiff) = .Fields(TestDot) = Val(txtTestDot) .Fields(TestDep) = cbTestDep .Fields(TestScore) = Val(txtTestScore) .Fields(Test) = txtTest .Fields(TestAnswer) = txtTestAnswer .Update End With MsgBox 試題修改成功！, vbInformation, 提示 cmdAction(4).Caption = 修 改 setFormModeTo fmedit EditFlagFalse End IfEnd SubPublic Sub EditFlagTrue() = True = True = TrueEnd SubPublic Sub EditFlagFalse() = False = False = FalseEnd SubPrivate Function CheckValid() As Boolean 39。Data Source = amp。 where LessonName = 39。 and TestType = 39。 = strSQlq MsgBox (strSQlq) If = 0 Then MsgBox (對不起，這門學科沒有輸入這類題) ElseIf Val() Then MsgBox (對不起，填空題數(shù)量不足！) = While Not (TestName) = Val() (Th) = intTh (Sth) = (Sth) 39。 Trim() amp。 = strSQlq If 0 Then While Not intJ = Val() intSjs = Int((Rnd * ) + 1) For intI = 0 To intSjs 1 If Then Next intI If (Pzw) = 0 Then (Sjh) = Val() (Th) = intTh (Sth) = (Sth) (Pzw) = 1 intTh = intTh + 1 intJ = intJ + 1 End If Wend Else MsgBox (對不起，這類填空題不存在！) End If End IfintJ = 0intI = 0strSQlq = select * from QuestionEnd If39。 Trim() amp。 Trim() amp。 amp。 Trim() amp。 amp。 amp。 (Pzw) = 1 intTh = intTh + 1 Wend Else strSQlq = strSQlq amp。 39