【正文】 Private Sub Text78_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text79_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text80_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text81_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text82_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If33 / 43End SubPrivate Sub Text61_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd Sub 功能實現(xiàn)/*…………………………………………………………………………………………………該 module 把 TextBox 中錄入的內(nèi)容轉(zhuǎn)換到頁面上成為我們需要的內(nèi)容，包含了驗證數(shù)據(jù)，轉(zhuǎn)換金額的大小寫數(shù)字以及漢字的表達。…………………………………………………………………………………………………*/Public Function str(ByVal Text As TextBox, ByVal length As Long) As Long str = length Len(Trim())End FunctionPublic Function ClearEmpty() Dim a As Control For Each a In If LCase(TypeName(a)) = textbox Then If Trim() / Then = Trim() End If End If Next aEnd FunctionFunction makeSpace(i As Integer) As String Dim j As Integer For j = 1 To i makeSpace = makeSpace amp。 NextEnd FunctionPublic Function EmptyStr(ByVal length As Single, ByVal str As String) As String Dim eStr As String For i = 0 To length LenB(str) eStr = eStr amp。 Next 39。指定返回值 EmptyStr = eStrEnd FunctionFunction StrLen(str As String) As Integer39。字符串長度 StrLen = LenB(StrConv(str, vbFromUnicode))End Function Function CChinese(StrEng As String) As String 39。驗證數(shù)據(jù) If Not IsNumeric(StrEng) Then If Trim(StrEng) Then MsgBox 無效的數(shù)字, , 提示信息 CChinese = Exit Function End If 39。定義變量 Dim intLen As Integer, intCounter As Integer Dim strCh As String, strTempCh As String Dim strSeqCh1 As String, strSeqCh2 As String Dim strEng2Ch As String strEng2Ch = 零壹貳叁肆伍陸柒捌玖 strSeqCh1 = 拾佰仟 拾佰仟 拾佰仟 拾佰仟 strSeqCh2 = 萬億兆 39。轉(zhuǎn)換為表示數(shù)值的字符串 StrEng = CStr(CDec(StrEng)) 39。記錄數(shù)字的長度 intLen = Len(StrEng) 39。轉(zhuǎn)換為漢字 For intCounter = 1 To intLen 39。返回數(shù)字對應的漢字35 / 43 strTempCh = Mid(strEng2Ch, Mid(StrEng, intCounter, 1) + 1, 1) 39。若某位是零 If strTempCh = 零 And intLen 1 Then 39。若后一個也是零，或零出現(xiàn)在倒數(shù)第 13 等位，則不顯示漢字“零” If Mid(StrEng, intCounter + 1, 1) = 0 Or (intLen intCounter + 1) Mod 4 = 1 Then strTempCh = Else strTempCh = strTempCh amp。 Trim(Mid(strSeqCh1, intLen intCounter + 1, 1)) End If 39。對于出現(xiàn)在倒數(shù)第 13 等位的數(shù)字 If (intLen intCounter + 1) Mod 4 = 1 Then 39。添加位 萬億兆 strTempCh = strTempCh amp。 Trim(Mid(strSeqCh2, (intLen intCounter) \ 4 + 1, 1)) End If 39。組成漢字表達式 strCh = strCh amp。 Trim(strTempCh) Next CChinese = strCh amp。 元整End FunctionPublic Sub PrintSpaceY(i As Integer) Dim j As Integer For j = 0 To i NextEnd Sub第 5 章 軟件測試和調(diào)試目前軟件測試仍然是保證軟件可靠性的主要手段。測試階段的根本任務是發(fā)現(xiàn)并改正軟件中的錯誤。設計測試方案是測試階段的關鍵技術問題，基本目標是選用最少量的高效測試數(shù)據(jù)，做到盡可能完善的測試，從而盡可能多的發(fā)現(xiàn)軟件中的問題。白盒測試盒黑盒測試是軟件測試的兩類基本方法。一般來說，白盒測試檢查程序現(xiàn)有的邏輯正確性；黑盒測試檢查程序是否符合設計要求，是否存在隱患。通常在測試過程的早期階段主要使用白盒方法，而在測試過程的后期階段主要使用黑盒方法。兩者各有所長，相互補充。該軟件主要運用兩者相結(jié)合的測試方法，以黑盒測試為主。下面將給出詳細的測試過程： 白盒測試法白盒測試是指按照程序的執(zhí)行邏輯進行路徑檢測，即在程序?qū)嶋H運行過程中所經(jīng)歷的每一路徑都必須測試到，檢查是否存在引起程序出現(xiàn)錯誤的語句。在進行白盒測試時，使用調(diào)試工具進行流程跟蹤，確保操作經(jīng)過每個流程。在測試過程中發(fā)現(xiàn)的軟件錯誤必須及時改正，這就是調(diào)試的任務。為了改正錯誤，首先必須確定錯誤的準確位置，同時盡量避免在調(diào)試過程中引進新的錯誤。使用Debug調(diào)試器就可以很容易地找到錯誤并將它們改正。下面以登錄模塊為例，來說明調(diào)試的過程和方法：第一步:打開工程1；第二步:在程序中設置斷點；第三步:在跟蹤模式下運行應用程序； 第四步:當應用程序在斷點處中斷執(zhí)行時，用戶可查看變量的值，檢查內(nèi)存中對象的屬性或者改變變量的值； 第五步:依次調(diào)試應用程序，需要時在應用程序中增加新的斷點或修改已存在的斷點；第六步:當用戶找到問題所在時，修改問題的代碼并重新運行該應用程序。通過調(diào)試我發(fā)現(xiàn)一般錯誤都出現(xiàn)在粗心馬虎上，比如數(shù)據(jù)類型不符合，變量未定義等。再有的問題就是對一些函數(shù)、方法的使用錯誤。但最后經(jīng)過認真分析、查閱資料，這些問題大部分都得以解決。Comment [U2]: 寫圖標，格式參考模板37 / 43 黑盒測試法 黑盒測試是指不關心程序內(nèi)部的邏輯結(jié)構，只檢查其輸入和輸出的內(nèi)容。對某段程序輸入各類參數(shù)值，觀察其結(jié)果。輸入的數(shù)據(jù)可以根據(jù)設計內(nèi)容而確定。設計黑盒測試方案時應考慮的問題如下：；如：年月日的合理性，錢數(shù)的識別性；；。例如在空白情況下，系統(tǒng)應能夠觸發(fā)錯誤提示，如圖所示圖 51 錯誤提示第 6 章 工作總結(jié)和展望該系統(tǒng)以中信銀行為例，實現(xiàn)企業(yè)的個人購房借款合同打印。它最基本的功能是對個人購房借款的用戶提供合同的審閱和打印，例如借款方式，還款方式，當年的具體利率顯示或打印出來供旅客參考，客戶可以按照需要來選擇自己的貸款模式，從而為銀行節(jié)省了很多的人力資源。其中核心之處在于：操作便捷化，客戶可以錄入相關的信息后，選擇需要的方式，迅速生成打印文件，便于銀行的運作等。該系統(tǒng)在開發(fā)的過程中遇到了不少的困難，例如打印機的連接問題，數(shù)據(jù)正確合理性的問題等，但通過各種途徑的學習請教，均得到了很好的解決。自身也從中學會了很多東西，體會很深，收獲很大。不僅熟悉了軟件開發(fā)的過程，而且提高了自己解決問題的能力，增強了信心和成就感。該系統(tǒng)以其方便、易操作及美觀的界面給用戶節(jié)省時間，全面實現(xiàn)對中信銀行個人貸款合同打印功能，大大減輕了銀行部門工作人員的工作量，提高了工作效率和工作服務質(zhì)量。系統(tǒng)雖然是基于中信銀行進行開發(fā)的，但是卻具有廣泛的適用性。利用系統(tǒng)自身的初始化功能，可以將所有數(shù)據(jù)信息清空，輸入新的數(shù)據(jù)信息，就可以很快構建成一個簡單實用的合同打印系統(tǒng)，因此應用前景廣泛。但是由于時間等方面的原因，所開發(fā)的系統(tǒng)還不盡如人意：，使用范圍受到了限制；。，系統(tǒng)商業(yè)化程度不高等。但是相信隨著時間的推移和自身技術的不斷提高，該智能查詢系統(tǒng)將會越來越完善。 39 / 43參考文獻[1] 王穎 Basic+SQL Sever 版社,2022 [2] 劉炳文 二級教程——Visual Basic 語言程序設計（修訂版）.高等教育社 2022 [3] 劉韜 Basic ,20222[4] 宋坤 Basic ，2022[5] 賽奎春 Basic 精彩編程 200 例。機械工業(yè)出版，2022.[6] 中信銀行 [7] 個人購房借款合同 致 謝在整個畢業(yè)設計的過程中，老師和朋友給了我很大的幫助，特別是王聽忠老師給我提供了很多的指導和幫助，從他身上我學到了很多東西，他認真負責的工作態(tài)度和深厚的理論水平都使我受益匪淺。 此外，在系統(tǒng)的開發(fā)過程中，還有其他同學的熱心幫助，共同解決了不少難點問題。在此不一一列舉，謝謝她們對我的支持