【正文】 End IfEnd SubPrivate Sub Text124_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text125_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text126_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text127_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text128_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text129_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text130_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text131_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text132_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text74_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text75_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text76_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text77_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End IfEnd SubPrivate 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 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)換金額的大小寫(xiě)數(shù)字以及漢字的表達(dá)。第九頁(yè)Combo初始化 = (1) ((1)) ((2)) ((3)) ((4))2. 第十頁(yè)初始化：39。將計(jì)算單位改回默認(rèn)設(shè)置 = vbTwips Next error: End SubPrivate Sub Command10_Click() = = = = = = = = = End Sub 頁(yè)面初始化 根據(jù)不同頁(yè)面的內(nèi)容不同，每次程序啟動(dòng)或打印結(jié)束時(shí)，要清楚緩存數(shù)據(jù)，給變量賦一個(gè)起始的滿足實(shí)際需要的值。 Trim() PrintStr 39。 Trim() PrintStr 39。 Trim() PrintStr 39。 Trim() PrintStr 39。 Trim() PrintStr 39。定位16行坐標(biāo) = 12 PrintSpaceY (13) 39。10行 = 16 PrintSpaceY (0) = 10 PrintStr = makeSpace(22) amp。9行 = 16 PrintSpaceY (0) = 10 PrintStr = makeSpace(22) amp。8行 = 16 PrintSpaceY (0) = 10 PrintStr = makeSpace(17) amp。7行 = 16 PrintSpaceY (0) = 10 PrintStr = makeSpace(31) amp。6行 = 12 PrintSpaceY (2) = 10 PrintStr = makeSpace(24) amp。5行 = 15 PrintSpaceY (0) = 10 PrintStr = makeSpace(22) amp。4行 = 15 PrintSpaceY (0) = 10 PrintStr = makeSpace(22) amp。3行 = 15 PrintSpaceY (0) = 10 PrintStr = makeSpace(17) amp。2行 = 14 PrintSpaceY (0) = 10 PrintStr = makeSpace(31) amp。1行 = 10 PrintStr = makeSpace(44) amp。初始化 39。打印橫坐標(biāo)為1厘米 = 0 39。打印字體 39。打印字號(hào) = True 39。紙張寬度 = 27 39。先判斷輸入內(nèi)容是否合法 = vbCentimeters 39。清除輸入框多余的空格 ClrEmpty = ClearEmpty() PrintPages = Val(Trim()) If PrintPages 0 Then = Exit Sub End If 39。下面以Command1為例的事件代碼。根據(jù)程序需求，我們要在代碼窗口中對(duì)每個(gè)命令按鈕的單擊事件編程。選擇工具箱中的標(biāo)簽，通過(guò)雙擊或鼠標(biāo)拖動(dòng)將其對(duì)象拖放在窗體的合適位置；用同樣的方法創(chuàng)建文本框和命令按鈕的對(duì)象放置在適當(dāng)?shù)奈恢茫鐖D所示。此時(shí)，工程資源管理器窗口中顯示已創(chuàng)建了一個(gè)工程，默認(rèn)名字為“工程1”，并創(chuàng)建了一個(gè)窗體，默認(rèn)名稱(chēng)為“Form1”。 運(yùn)用的控件和主要對(duì)象在程序設(shè)計(jì)過(guò)程中主要用到的控件有：Command控件；Lable 控件；TextBox 控件；TabStrip 控件等。Visual Basic的主要功能特點(diǎn)：(1)可視化編程、（２）面向?qū)ο蟮某绦蛟O(shè)計(jì)、（３）結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言、（４）事件驅(qū)動(dòng)編程機(jī)制、（５）訪問(wèn)數(shù)據(jù)庫(kù)Visual ，可用股開(kāi)發(fā)windows環(huán)境下的各類(lèi)應(yīng)用程序，是一種可視化、真正面向?qū)ο?、采用事件?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言和工具的完美集成。 本系統(tǒng)的界面友好,操作方便，能夠達(dá)到所見(jiàn)即所得的效果,方便用戶的使用。設(shè)置三種不同的身份進(jìn)行登錄，即特級(jí)管理員、一般管理員和普通用戶；系統(tǒng)也設(shè)立了數(shù)據(jù)備份和恢復(fù)機(jī)制，從一定程度上可以降低數(shù)據(jù)的損壞程度。第十三頁(yè)：確認(rèn)合同的公平公正性。共有11種還款方式。要需要保證人的賬戶名稱(chēng)和賬戶號(hào)以作擔(dān)保。總共有四種方法：（1）浮動(dòng)利率，本合同的利率以同簽訂日中國(guó)人民銀行公布的同期同檔次貸款基準(zhǔn)利率