【正文】 法，以黑盒測試為主。其中核心之處在于：操作便捷化，客戶可以錄入相關(guān)的信息后，選擇需要的方式，迅速生成打印文件，便于銀行的運(yùn)作等。 此外，在系統(tǒng)的開發(fā)過程中，還有其他同學(xué)的熱心幫助，共同解決了不少難點(diǎn)問題。輸入的數(shù)據(jù)可以根據(jù)設(shè)計內(nèi)容而確定。白盒測試盒黑盒測試是軟件測試的兩類基本方法。定義變量 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。19 行 = 16 PrintSpaceY (0) = 10 PrintStr = makeSpace(22) amp。 Trim() PrintStr 39。....其它類似.... = 0 39。 界面設(shè)計新建窗體后，利用工具箱可以在窗體上依次添加控件對象。第十頁：標(biāo)明合同的貸款期限，總共幾個月，從某年某月某日到某年某月某日。因此具有良好的操作可行性。并可以為企業(yè)管理者提供科學(xué)的操作工具，為決策者提供及時、完整的決策參考資料，提升企業(yè)的管理水平和競爭能力。長期以來，由于在合同打印實(shí)行手工作業(yè)，存在各部門之間合同流轉(zhuǎn)時間長而且特別容易出錯等問題。合同是商品經(jīng)濟(jì)的產(chǎn)物，是商品交換的法律表現(xiàn)形式。Visual 工具軟件以其功能強(qiáng)大、使用靈活的數(shù)據(jù)窗口，其面向?qū)ο蟮拈_發(fā)能力等優(yōu)勢在數(shù)據(jù)庫應(yīng)用程序開發(fā)領(lǐng)域占據(jù)了領(lǐng)先地位，這些特點(diǎn)為開發(fā)功能全面的應(yīng)用程序創(chuàng)造了良好的條件。第二到第八頁都是個人申請住房貸款程序以及多方在購房貸款中應(yīng)盡的義務(wù)和享有的權(quán)利。 本系統(tǒng)的界面友好,操作方便，能夠達(dá)到所見即所得的效果,方便用戶的使用。先判斷輸入內(nèi)容是否合法 = vbCentimeters 39。3 行 = 15 PrintSpaceY (0) = 10 PrintStr = makeSpace(17) amp。定位 16 行坐標(biāo) = 12 PrintSpaceY (13) 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 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 Then21 / 43 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 End IfEnd SubPrivate Sub Text96_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text97_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text98_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text99_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd Sub23 / 43Private Sub Text100_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text101_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text43_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text44_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text45_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Th