【正文】 在此不一一列舉，謝謝她們對(duì)我的支持！第 43 頁(yè) 共 46 頁(yè)。機(jī)械工業(yè)出版，2003.[6] 中信銀行 [7] 個(gè)人購(gòu)房借款合同 致 謝在整個(gè)畢業(yè)設(shè)計(jì)的過(guò)程中，老師和朋友給了我很大的幫助，特別是王聽(tīng)忠老師給我提供了很多的指導(dǎo)和幫助，從他身上我學(xué)到了很多東西，他認(rèn)真負(fù)責(zé)的工作態(tài)度和深厚的理論水平都使我受益匪淺。但是相信隨著時(shí)間的推移和自身技術(shù)的不斷提高，該智能查詢(xún)系統(tǒng)將會(huì)越來(lái)越完善。但是由于時(shí)間等方面的原因，所開(kāi)發(fā)的系統(tǒng)還不盡如人意：，使用范圍受到了限制；。系統(tǒng)雖然是基于中信銀行進(jìn)行開(kāi)發(fā)的，但是卻具有廣泛的適用性。不僅熟悉了軟件開(kāi)發(fā)的過(guò)程，而且提高了自己解決問(wèn)題的能力，增強(qiáng)了信心和成就感。該系統(tǒng)在開(kāi)發(fā)的過(guò)程中遇到了不少的困難，例如打印機(jī)的連接問(wèn)題，數(shù)據(jù)正確合理性的問(wèn)題等，但通過(guò)各種途徑的學(xué)習(xí)請(qǐng)教，均得到了很好的解決。它最基本的功能是對(duì)個(gè)人購(gòu)房借款的用戶(hù)提供合同的審閱和打印，例如借款方式，還款方式，當(dāng)年的具體利率顯示或打印出來(lái)供旅客參考，客戶(hù)可以按照需要來(lái)選擇自己的貸款模式，從而為銀行節(jié)省了很多的人力資源。設(shè)計(jì)黑盒測(cè)試方案時(shí)應(yīng)考慮的問(wèn)題如下：；如：年月日的合理性，錢(qián)數(shù)的識(shí)別性；；。對(duì)某段程序輸入各類(lèi)參數(shù)值，觀察其結(jié)果。但最后經(jīng)過(guò)認(rèn)真分析、查閱資料，這些問(wèn)題大部分都得以解決。通過(guò)調(diào)試我發(fā)現(xiàn)一般錯(cuò)誤都出現(xiàn)在粗心馬虎上，比如數(shù)據(jù)類(lèi)型不符合，變量未定義等。使用Debug調(diào)試器就可以很容易地找到錯(cuò)誤并將它們改正。在測(cè)試過(guò)程中發(fā)現(xiàn)的軟件錯(cuò)誤必須及時(shí)改正，這就是調(diào)試的任務(wù)。下面將給出詳細(xì)的測(cè)試過(guò)程： 白盒測(cè)試法白盒測(cè)試是指按照程序的執(zhí)行邏輯進(jìn)行路徑檢測(cè)，即在程序?qū)嶋H運(yùn)行過(guò)程中所經(jīng)歷的每一路徑都必須測(cè)試到，檢查是否存在引起程序出現(xiàn)錯(cuò)誤的語(yǔ)句。兩者各有所長(zhǎng)，相互補(bǔ)充。一般來(lái)說(shuō)，白盒測(cè)試檢查程序現(xiàn)有的邏輯正確性；黑盒測(cè)試檢查程序是否符合設(shè)計(jì)要求，是否存在隱患。設(shè)計(jì)測(cè)試方案是測(cè)試階段的關(guān)鍵技術(shù)問(wèn)題，基本目標(biāo)是選用最少量的高效測(cè)試數(shù)據(jù)，做到盡可能完善的測(cè)試，從而盡可能多的發(fā)現(xiàn)軟件中的問(wèn)題。 元整End FunctionPublic Sub PrintSpaceY(i As Integer) Dim j As Integer For j = 0 To i NextEnd Sub第5章 軟件測(cè)試和調(diào)試目前軟件測(cè)試仍然是保證軟件可靠性的主要手段。組成漢字表達(dá)式 strCh = strCh amp。添加位 萬(wàn)億兆 strTempCh = strTempCh amp。 Trim(Mid(strSeqCh1, intLen intCounter + 1, 1)) End If 39。若某位是零 If strTempCh = 零 And intLen 1 Then 39。轉(zhuǎn)換為漢字 For intCounter = 1 To intLen 39。轉(zhuǎn)換為表示數(shù)值的字符串 StrEng = CStr(CDec(StrEng)) 39。驗(yàn)證數(shù)據(jù) If Not IsNumeric(StrEng) Then If Trim(StrEng) Then MsgBox 無(wú)效的數(shù)字, , 提示信息 CChinese = Exit Function End If 39。指定返回值 EmptyStr = eStrEnd FunctionFunction StrLen(str As String) As Integer39。 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。第十一頁(yè)Combo初始化 = (1) ((1)) ((2)) ((3)) ((4)) ((5)) ((6)) ((7)) ((8)) ((9)) ((10)) ((11)) End Sub 代碼編輯：Private Sub Text30_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text31_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text33_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text32_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Cmb21_2S3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text35_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text36_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text37_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text38_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text39_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text40_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text84_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text85_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text86_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Cmb21_2_1_aS4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text87(0).SetFocus End IfEnd SubPrivate Sub Text90_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then Text91(0).SetFocus End IfEnd SubPrivate Sub Text91_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then Text92(0).SetFocus End IfEnd SubPrivate Sub Text92_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text93_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text34_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text41_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text42_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Combo2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text94_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text95_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then