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