【正文】 39 / 43參考文獻[1] 王穎 Basic+SQL Sever 版社,2022 [2] 劉炳文 二級教程——Visual Basic 語言程序設計（修訂版）.高等教育社 2022 [3] 劉韜 Basic ,20222[4] 宋坤 Basic ，2022[5] 賽奎春 Basic 精彩編程 200 例。自身也從中學會了很多東西，體會很深，收獲很大。Comment [U2]: 寫圖標，格式參考模板37 / 43 黑盒測試法 黑盒測試是指不關心程序內(nèi)部的邏輯結構，只檢查其輸入和輸出的內(nèi)容。在進行白盒測試時，使用調(diào)試工具進行流程跟蹤，確保操作經(jīng)過每個流程。測試階段的根本任務是發(fā)現(xiàn)并改正軟件中的錯誤。若后一個也是零，或零出現(xiàn)在倒數(shù)第 13 等位，則不顯示漢字“零” If Mid(StrEng, intCounter + 1, 1) = 0 Or (intLen intCounter + 1) Mod 4 = 1 Then strTempCh = Else strTempCh = strTempCh amp。字符串長度 StrLen = LenB(StrConv(str, vbFromUnicode))End Function Function CChinese(StrEng As String) As String 39。1. 第九頁初始化：17 / 4339。18 行 = 16 PrintSpaceY (0) = 10 PrintStr = makeSpace(17) amp。 Trim() PrintStr 39。 Trim() PrintStr 39。 Trim() PrintStr 39。字體不加粗 = 宋體 39?！?/Private Sub Command1_Click() Dim k As Integer Dim i As Integer Dim PrintStr As String 39。第 4 章 程序詳細設計 開發(fā)及運行環(huán)境系統(tǒng)開發(fā)平臺：Visual Basic 運行平臺：Windows XP / Windows 2022 / Windows 2022 創(chuàng)建工程啟動 Visual Basic 后，在“新建工程”對話框中選擇“標準 EXE”文件，單擊“確定”按鈕。 程序性能要求該系統(tǒng)的安全性主要是防止他人非法進入系統(tǒng)，從而保證了數(shù)據(jù)的安全性，數(shù)據(jù)存儲的完整性和數(shù)據(jù)的可靠性。根據(jù)實際情況，利率會有所波動，也就要明確貸款利率調(diào)整的情況下，可能采取的措施，供用戶進行直觀有效的選擇。 3 / 43第 2 章 程序需求分析 程序需求分析設計系統(tǒng)時應該首先充分了解用戶各個方面的需求，包括現(xiàn)有的以及將來可能增加的需求，本人通過對洛陽、鄭州等站點進行詳細的實地考察以及利用網(wǎng)絡等多種渠道，了解了中信銀行在個人購房貸款方面的一些現(xiàn)狀以及政府出臺的政策，對個人借貸款方面的調(diào)控，針對中信銀行個人購房借貸款合同的各種要求，需要對合同的每一頁都進行明確的規(guī)劃，合同基本信息錄入：第一頁：要有借款人的姓名，身份證件和號碼，家庭住址，聯(lián)系電話，郵政編碼。且對管理人員不需要太多的專業(yè)培訓。改革開放以來，我國的經(jīng)濟建設取得了長足的發(fā)展，然而長期以來，由于在合同管理中實行手工作業(yè)，合同審批流程不明確，造成合同管理過程中業(yè)務處理效率低，浪費了大量的人力、物力，各部門之間合同流轉時間長而且特別容易出錯等問題。由于合同形式的多樣性，履行過程的多變性，同時合同執(zhí)行周期長，信息量大，重復性高，許多企業(yè)對合同打印一直沒有好的辦法。 CITIC Bank。合同是商品經(jīng)濟的產(chǎn)物，是商品交換的法律表現(xiàn)形式。并以中信銀行個人購房貸款為背景的應用實例。所以，合同的確立以書面簽字的形式體現(xiàn)，要確保合同有效，雙方的簽字必須是法人或者委托代理人。 程序研究目的和意義合同，又稱契約，它是當事人雙方或數(shù)方設立、變更和中止相互權利和義務關系的協(xié)議。傳統(tǒng)的合同打印方法，存在諸多缺點，如：效率低，保密性差，時間一長就會產(chǎn)生大量的文件和數(shù)據(jù)積壓，這對于往后的合同管理帶來了不少困難，也造成了勞動力的浪費。因此，在看中房屋簽署相關購房協(xié)議前，了解貸款政策、確認貸款細節(jié)是購房者必不可少的一門功課。第九頁：借款合同中最重要的就是貸款的金額。共有 11 種還款方式。Visual Basic 的主要功能特點：(1)可視化編程、 （２）面向對象的程序設計、（３）結構化程序設計語言、 （４）事件驅動編程機制、 （５）訪問數(shù)據(jù)庫Visual 是由微軟公司推出的一套完整的 windows 系統(tǒng)軟件開發(fā)工具，可用股開發(fā) windows 環(huán)境下的各類應用程序，是一種可視化、真正面向對象、采用事件驅動方式的結構化高級程序設計語言和工具的完美集成。根據(jù)程序需求，我們要在代碼窗口中對每個命令按鈕的單擊事件編程。紙張寬度 = 27 39。初始化 39。4 行 = 15 PrintSpaceY (0) = 10 PrintStr = makeSpace(22) amp。8 行 = 16 PrintSpaceY (0) = 10 PrintStr = makeSpace(17) amp。 Trim() PrintStr 39。 Trim() PrintStr 39。 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。轉換為漢字 For intCounter = 1 To intLen 39。組成漢字表達式 strCh = strCh amp。兩者各有所長，相互補充。通過調(diào)試我發(fā)現(xiàn)一般錯誤都出現(xiàn)在粗心馬虎上，比如數(shù)據(jù)類型不符合，變量未定義等。它最基本的功能是對個人購房借款的用戶提供合同的審閱和打印，例如借款方式，還款方式，當年的具體利率顯示或打印出來供旅客參考，客戶可以按照需要來選擇自己的貸款模式，從而為銀行節(jié)省了很多的人力資源。但是由于時間等方面的原因，所開發(fā)的系統(tǒng)還不盡如人意：，使用范圍受到了限制；。在此不一一列舉，謝謝她們對我的支持！。系統(tǒng)雖然是基于中信銀行進行開發(fā)的，但是卻具有廣泛的適用性。設計黑盒測試方案時應考慮的問題如下：；如：年月日的合理性，錢數(shù)的識別性；；。使用Debug調(diào)試器就可以很容易地找到錯誤并將它們改正。一般來說，白盒測試檢查程序現(xiàn)有的邏輯正確性；黑盒測試檢查程序是否符合設計要求，是否存在隱患。添加位 萬億兆 strTempCh = strTempCh amp。轉換為表示數(shù)值的字符串 StrEng = CStr(CDec(StrEng)) 39。第十一頁 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 Sub19 / 43Private 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