【文章內容簡介】 的角度出發(fā)，精心設計最有可以暴露程序系統(tǒng)缺陷的測試方案。因此軟件測試的目標應該是以盡可能少的代價和時間找出軟件系統(tǒng)中潛在的錯誤和缺陷。從產品角度看，測試計劃中的測試項目包括軟件結構中的分系統(tǒng)層、子系統(tǒng)層、功能模塊層、程序模塊層中的各類模塊，從測試本身看，分為單元測試，組合測試，確認測試等。測試對象是隨不同階段而異的，最基本、最初的測試是單元測試，后面的組合測試、確認測試都是以被測過的模塊作為測試對象的。(1)單元測試：單元測試也稱模塊測試或程序測試，單元測試是對每個模塊單獨進行的，驗證模塊接口與設計說明書是否一致，對模塊的所有主要處理路徑進行測試且與預期的結構進行對照，還要對所有錯誤處理路徑進行測試。對源碼進行審查，對照設計說明書，表態(tài)地檢查源程序是否符合功能的邏輯要求，是進行單元測試前的重要工作工。單元測試一般是由程序員完成，也稱程序調試。(2)組合測試組合測試也稱集成測試或子系統(tǒng)測試，通常采用自頂向下測試和自底向上測試兩種測試方法。組合測試的對象是指已經通過單元測試的模塊，不是對零散模塊進行單個測試，而是用系統(tǒng)化的方法裝配和測試軟件系統(tǒng)，是一個嚴格的過程，必須認真地進行，其計劃的產生和單元模塊測試的完成日期要協(xié)調起來，這種測試應在系統(tǒng)目標機上進行，造成系統(tǒng)應用的環(huán)境條件，除了開發(fā)部分項目負責人參加以外，還應該有相應系統(tǒng)的用戶參加，給評審員進行演示。(3)確認測試確認測試是對通過組合測試的軟件進行的，這些軟件已經存于系統(tǒng)目標設備的介質上，確認測試的目的是表明軟件是可以工作的，并且符合“軟件需求說明書”中規(guī)定的全部功能和性能要求。確認測試是按照這些要求定出的“確認測試計劃”進行的。測試工作是由一個獨立的組織進行，而且測試要從用戶的角度出發(fā)。(4)系統(tǒng)測試系統(tǒng)測試是對整體性能的測試，主要解決各子系統(tǒng)之間的數據通信和數據共享問題以及檢測系統(tǒng)是否達到用戶的實際要求，系統(tǒng)測試的依據是系統(tǒng)分析報告。系統(tǒng)測試應在系統(tǒng)的整個范圍內進行，這種測試不只對軟件進行，而是對構成系統(tǒng)的硬、軟件一起進行。系統(tǒng)測試與建構同時進行或略慢。系統(tǒng)測試需要確認從頭到尾的功能正常才算完成，應當盡量避免系統(tǒng)測試延到項目末尾進行。(5)用戶驗收測試在系統(tǒng)測試完成后，進行用戶的驗收測試，它是用戶在實際應用環(huán)境中所進行的真實數據測試。在具體的測試中，一般應遵循以下原則：由程序設計者之外的人進行測試；測試用例應由兩部分組成：輸入數據和預期輸出結果；應選用不合理的輸入數據與非法輸入測試；不僅要檢驗程序是否實現(xiàn)預期功能，還應檢查程序是否做了不應該做的工作；集中測試容易出錯的程序模塊；對程序修改以后，必須重新進行測試。7．3測試方法一般來說，對程序測試有兩種測試方法：如果已經知道了軟件系統(tǒng)應具有的功能，可通過測試來對每個功能是否都能正常使用；如果知道程序的內部工作過程，可以通過測試來檢測程序內部是否按照規(guī)格說明書的規(guī)定正常進行。前一種方法稱為黑盒測試，后一種方法稱為白盒子測試。黑盒測試又稱為功能測試，白盒子測試又稱為結構測試。經過幾個月的畢業(yè)設計，因為時間和任務的性質的關系，沒有完全按照上述的測試方法進行系統(tǒng)的測試，但經過一些簡單的步驟的測試，證明本系統(tǒng)具有相當程序的穩(wěn)定性。致 謝經過四個多月的構思與設計，在指導老師的精心指導和安排下，本系統(tǒng)已經設計完畢。其使用功能基本符合公司在實際工作的需要，具有一定的實用性。但是由于時間比較倉促，加上本人軟件設計經驗的不足。因此，在分析問題、解決問題時顯得不夠嚴密、完善，還需要在以后的工作中不斷地改進和完善。在這次的畢業(yè)設計中，讓我深深地體現(xiàn)到進行軟件開發(fā)不是一件簡單的事情，它需要設計者具有全面的專業(yè)知識、縝密的思維、嚴謹的工作態(tài)度以及較高的分析問題、解決問題的能力，而我在很多方面還有欠缺。最后，我要衷心感謝老師在我的設計過程中給予我的極大幫助，使我能夠及時、順利地完成此次的畢業(yè)設計。同時，也要感謝我的老師和同學們及實習企業(yè)在本系統(tǒng)的設計過程中給予我的支持和幫助。參考文獻[1]王福成等：　Visual Basic ，　清華大學出版社　2002年6月[2]郭振波編著： 深入淺出Visual Basic ， 人民郵電出版社2003年3月[3]林永等編著： Visual Basic ， 人民郵電出版社2002年11月[4]劉炳文等編著： Visual Basic 程序設計教程 ，清華大學出版社 2000年7月附錄 源程序清單Option ExplicitDim Bupdata As BooleanDim i As IntegerPrivate Sub Cmbdegree_Click() If = 定制 Then = 0 End IfEnd SubPrivate Sub Cmbdepart_Click() If = 定制 Then = 0 End IfEnd SubPrivate Sub CmdAddNew_Click() If = 添加 Then = 確認 = False = False = False For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i Txt(0).Locked = False If = employee Then (13) = (14) = Now If Opsex(0) Then (4) = 男 Else (4) = 女 End If (7) = (8) = ElseIf = leave Then (8) = (9) = Now Else (13) = (14) = Now End If Txt(0).SetFocus Else 39。OK If Txt(0).Text = Then MsgBox 不可以為空 Txt(0).SetFocus Exit Sub End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i If = employee Then 職工編號= + Txt(0).Text If Not Then MsgBox 職員編號重復 Txt(0).Text = Txt(0).SetFocus Exit Sub End If ElseIf = leave Then 假條編號= + Txt(0).Text If Not Then MsgBox 假條編號重復 Txt(0).Text = Txt(0).SetFocus Exit Sub End If Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i 工資編號= + Txt(0).Text If Not Then MsgBox 工資編號重復 Txt(0).Text = Txt(0).SetFocus Exit Sub End If End If = 添加 = True = True End IfEnd SubPrivate Sub CmdCacel_Click() If = 確認 Then End If = True Unload Me If = employee Then (性別).Button = True (學歷).Button = True (部門).Button = TrueEnd IfEnd SubPrivate Sub CmdDel_Click() = False If Then End If End SubPrivate Sub cmdOK_Click() If Txt(0).Text = Then MsgBox 不可以為空 Txt(0).SetFocus Exit Sub End If Bupdata = False If = leave Then (8) = (9) = Now ElseIf = employee Then (13) = (14) = Now If Opsex(0) Then (4) = 男 Else (4) = 女 End If (7) = (8) = (13) = (14) = Now Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i (13) = (14) = Now End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 39。(i) = 0 Next i End SubPrivate Sub DataA_Validate(Action As Integer, Save As Integer) If Action = 11 And Bupdata Then Save = 0 End IfEnd SubPrivate Sub Lab_Click(Index As Integer)End SubPrivate Sub Txt_KeyPress(Index As Integer, KeyAscii As Integer) I