《vb編程技術》賦值與輸入輸出

第4章賦值與輸入輸出4.1數(shù)據(jù)輸出4.2常用根本語句4.3利用文本框進行數(shù)據(jù)輸入4.4使用對話框習題四 4.1數(shù)據(jù)輸出4.1.1直接輸出到窗體1.使用Print方法使用Print方法可以在窗體上輸出文本字符串或表達式的值，并可在其他圖形對象或打印機上輸出信息。其語法格式為[〈對象名稱〉.]Print[〈表達式列表〉][{,|;}]【例4-1】使用Print方法在窗體中直接輸出字符串或數(shù)值表達式的值，如圖4.1所示。設計步驟如下：(1)建立應用程序用戶界面。選擇“新建〞工程，進入窗體設計器，在窗體中增加一個命令按鈕Command1，如圖4.2所示。(2)按表4-1設置對象屬性。(3)編寫代碼。圖4.1使用Print方法圖4.2建立程序界面表4-1屬性設置2.與Print方法有關的函數(shù)為了使數(shù)據(jù)按指定的位置輸出，VB提供了幾個與Print相配合的函數(shù)。1)Tab函數(shù)在Print方法中，可以使用Tab函數(shù)來對輸出進行定位。2)Spc函數(shù)在Print方法中，還可以使用Spc函數(shù)來對輸出進行定位。【例4-2】使用Tab和Spc函數(shù)進行對齊輸出，如圖4.3所示。圖4.3使用Tab和Spc函數(shù)進行對齊輸出PrivateSubForm_Click()PrintPrintTab(5);"學號";Tab(20);"姓名";Tab(30);"性別";Tab(40);"入學成績"PrintPrintTab(5);"2000101";Tab(20);"丁叮";Tab(30);"女";Tab(40);650PrintTab(5);"2000102";Tab(20);"柳洋洋";Tab(30);"男";Tab(40);668PrintTab(5);"2000103";Spc(8);"李驪";Spc(6);"女";Spc(8);640PrintTab(5);"2000132";Spc(8);"杜小紅";Spc(4);"女";Spc(8);635;EndSub3.使用位置屬性要精確地把文本輸出到窗體、圖片框或打印頁上，可以用位置屬性CurrentX和CurrentY。這兩個屬性分別表示當前輸出位置的橫坐標與縱坐標。如果要控制所顯示或打印文本的大小和外觀，可以用VB中的字體屬性，各字體屬性及其名稱如表4-2所示。表4-2字體屬性及名稱【例4-3】如圖4.4所示，按指定尺寸、顏色和外觀，把字符串“風光無限好〞輸出到窗體的中間。設計步驟如下：(1)建立應用程序用戶界面與對象屬性的設置參見例4-1。(2)編寫命令按鈕的Click事件代碼：

圖4.4使用位置屬性CurrentX和CurrentY例如PrivateSubCommand1_Click()DimaAsString,textWAsInteger,textHAsIntegerFontName="隸書" '設置輸出文本的字體FontSize=30 '設置輸出字體的大小ForeColor=QBColor(15) '設置輸出文本的前景色，即字體的顏色BackColor=QBColor(8) '設置輸出文本的背景色，即窗體的顏色a="風光無限好"textW=TextWidth(a)/2 'TextWidth(a)表示字符串a的寬度textH=(TextHeight(a)+Command1.Height)/2 'TextHeight(a)表示字符串a的高度CurrentX=ScaleWidth/2-textW '設置輸出的水平位置CurrentY=ScaleHeight/2-textH '設置輸出的垂直位置Printa '輸出文本EndSub4.去除方法ClsCls方法可以去除Form或PictureBox中由Print方法和圖形方法在運行時所生成的文本或圖形，去除后的區(qū)域以背景色填充。設計時使用Picture屬性設置的背景位圖和放置的控件不受Cls影響。Cls方法的語法為[〈對象名稱〉.]Cls【例4-4】在例4-3中使用Cls方法去除窗體中由Print方法所生成的文本，如圖4.5所示。圖4.5Cls方法例如【例4-5】使用Print方法在圖片框中輸出字符串或數(shù)值表達式的值。設計步驟如下：(1)建立應用程序用戶界面。選擇“新建〞工程，進入窗體設計器，在窗體中增加一個圖片框Picture1和一個命令按鈕Command1，如圖4.6左所示。(2)按表4-3設置對象屬性。圖4.6在圖片框中輸出字符串或數(shù)值表達式的值表4-3屬性設置(3)設計代碼。命令按鈕Command1的Click事件代碼為PrivateSubCommand1_Click()Picture1.PrintPicture1.Print"6+10=";6+10Picture1.PrintPicture1.Print"山重水復",Picture1.Print"疑無路"Picture1.PrintPicture1.Print"柳暗"&"花明又一村"EndSub程序運行結果如圖4.6右所示?！纠?-6】如圖4.7所示，在圖片框中使用位置函數(shù)。設計步驟如下：(1)建立應用程序用戶界面并按例4-5的方法設置對象屬性，結果如圖4.7左所示。(2)編寫事件代碼?！皳粑舀暶畎粹o的Click事件代碼為圖4.7在圖片框中使用位置函數(shù)PrivateSubCommand1_Click()DimaAsString,textWAsInteger,textHAsIntegerPicture1.FontName="隸書"Picture1.FontSize=30Picture1.ForeColor=QBColor(15)Picture1.BackColor=QBColor(8)a="風光無限好"textW=Picture1.TextWidth(a)/2textH=Picture1.TextHeight(a)/2Picture1.CurrentX=Picture1.Width/2-textWPicture1.CurrentY=Picture1.Height/2-textHPicture1.PrintaEndSub“去除〞命令按鈕的Click事件代碼為PrivateSubCommand2_Click()Picture1.ClsEndSub程序運行結果如圖4.7右所示。4.1.3使用“標簽〞控件輸出標簽(Label)主要是用來顯示(輸出)文本信息的，它不能作為輸入信息的界面。也就是說標簽控件的內容只能用Caption屬性來設置或修改，不能直接編輯。它是VB中最常用的輸出文本信息的工具，完全可以取代Print方法?！纠?-7】如圖4.8所示，使標簽控件具有邊框，并修改標簽屬性為無邊框。圖4.8有邊框和無邊框的標簽控件設計步驟如下：(1)建立應用程序用戶界面。選擇“新建〞工程，進入窗體設計器，增加一個命令按鈕Command1、兩個標簽Label1和Label2，如圖4.9左所示。(2)設置對象屬性如表4-4所示。設置后的界面如圖4.9右所示。圖4.9建立界面與設置屬性表4-4屬性設置(3)編寫事件代碼。命令按鈕Command1的單擊(Click)事件代碼為PrivateSubCommand1_Click()Label1.Caption="甜蜜的負擔" '改變Label1的標題內容Label2.Caption=“是你改變了我〞'改變Label2的標題內容Label2.Alignment=2-center 'Label2的內容居中顯示Label2.BorderStyle=0-none '將Label2的邊框樣式改為無邊框EndSub4.2常用根本語句4.2.1賦值語句LET賦值語句是任何程序設計中最根本的語句。在前面的例子中，我們已經(jīng)在代碼中使用了它。它的作用是將指定的值賦給某個變量或對象的某個屬性。賦值語句的一般格式為[Let]〈名稱〉=〈表達式〉【例4-8】設計程序如圖4.10所示，實現(xiàn)兩個變量值的交換。分析：將兩個不同的變量設想為兩個瓶子A、B，其中分別裝有不同顏色的液體，要交換瓶子中的液體?？梢赃@樣來做：另取一個瓶子C，先將瓶A中的液體倒入瓶C中，再將瓶B中的液體倒入A中，最后將瓶C中的液體倒入B中。圖4.10交換兩變量的值設計步驟如下：(1)建立應用程序用戶界面。選擇“新建〞工程，進入窗體設計器，增加一個命令按鈕Command1，4個標簽Label1～Label4，如圖4.11左所示。(2)按表4-5所示設置對象屬性。圖4.11建立界面與設置屬性表4-5屬性設置(3)編寫事件代碼。命令按鈕Command1的Click事件代碼為PrivateSubCommand1_Click()t=Label3.CaptionLabel3.Caption=Label4.CaptionLabel4.Caption=tEndSub4.2.2卸載對象語句Unload當要結束應用程序而從內存中卸載窗體或要從內存中卸載某些控件時，可以使用Unload語句。Unload語句的語法格式為：Unload對象名

【例4-9】在例4-8中使用命令關閉程序窗體，如圖4.12所示。圖4.12關閉程序窗體只需在上例中增加一個命令按鈕Command2(關閉)，并且編寫Command2的Click事件代碼如下即可：PrivateSubCommand2_Click()UnloadMe 'Me表示按鈕所在的窗體對象EndSub4.2.3注釋語句為了提高程序的可讀性，通常應在程序的適當位置加上一些注釋。注釋語句用來在程序中包含注釋，語法格式為Rem〈注釋內容〉或'〈注釋內容〉4.3利用文本框進行數(shù)據(jù)輸入4.3.1使用“文本框〞控件文本框(TextBox)是一個文本編輯區(qū)域，用戶可以在該區(qū)域輸入、編輯和顯示文本內容。缺省時，文本框只能輸入單行文本，并且輸入的字符最多為2048個。假設將控件的MultiLine屬性設置為True，那么可以輸入多行文本，并且文本的內容可多達32K。文本框的主要屬性如表4-6所示。表4-6文本框的屬性1.使用文本框控件文本框中顯示的文本是受Text屬性控制的。Text屬性可以用以下3種方式設置：(1)設計時在“屬性〞窗口進行設置。(2)運行時通過代碼設置。(3)在運行時由用戶輸入。圖4.13計算球的體積和外表積【例4-10】輸入球體的半徑，然后計算并輸出球體的體積和外表積，如圖4.13所示。分析：設球的半徑為r，球體積和球外表積分別為v和f，依題意可得計算公式：

設計步驟如下：(1)建立應用程序用戶界面。選擇“新建〞工程，進入窗體設計器，增加兩個命令按鈕Command1和Command2、3個標簽Label1～Label3和3個文本框Text1～Text3，如圖4.14左所示。(2)設置對象屬性如表4-7所示。圖4.14建立界面與設置屬性表4-7屬性設置(3)編寫事件代碼。命令按鈕Command1的Click事件代碼為PrivateSubCommand1_Click()DimrAsSingle,vAsSingle,fAsSingleConstpi=3.14159 '定義符號常量r=Val(Text1.Text) '將文本框中的文本轉換為數(shù)值型數(shù)據(jù)v=4/3*pi*r^3 '計算球體積f=4*pi*r^2'計算球外表積Text2.Text=v '輸出球體積Text3.Text=f '輸出球外表積EndSub命令按鈕Command2的Click事件代碼為PrivateSubCommand2_Click()UnloadMeEndSub2.多行文本框(1)MultiLine多行屬性。(2)ScrollBars屬性?！纠?-11】應用MultiLine和ScrollBars屬性，建立兩個文本框，它們的有關屬性如表4-8所示。(1)建立應用程序用戶界面，如圖4.15所示。

(2)設置對象屬性。Text1的Text屬性值見圖4.15所示，其他屬性如表4-8所示。圖4.15文本標識區(qū)表4-8屬性設置(3)編寫事件代碼。事件過程如下：PrivateSubForm_Click()Text1.SelStart=0 '將文本框Text1中的第1個字符前設為標識區(qū)的起點Text1.SelLength=24 '將整個標識區(qū)長度定為24Text2.Text=Text1.SelText'被標識的字符串存入Text2中EndSub4.3.2焦點與Tab鍵序1.焦點焦點(Focus)就是光標，當對象具有“焦點〞時才能響應用戶的輸入，因此對象也就具有了接收用戶鼠標單擊或鍵盤輸入的能力。2.Tab鍵序TabIndex屬性決定控件接收焦點的順序，TabStop屬性決定焦點是否能夠停在該控件上。4.3.3使用“框架〞控件如同圖片框一樣，框架(Frame)控件是一種容器控件，在框架控件內部的控件可以隨框架一起移動，并且受到框架控件某些屬性(Visible、Enabled)的控制。在多數(shù)情況下只需使用框架控件將其他控件分成可標識的控件組，而不必響應框架控件的事件。需要修改的可能是框架控件的Name、Caption或Font屬性?！纠?-12】在文本框中輸入長、寬、高，求長方體的外表積，并輸出。設長方體的長、寬、高為a、b、c，外表積為s。根據(jù)數(shù)學知識有：s=2(ab+bc+ca)設計步驟如下：圖4.16設計用戶界面(1)設計程序界面并設置對象屬性。選擇“新建〞工程，進入窗體設計器，在窗體中增加一個框架控件Frame1，一個命令按鈕Command1和一個標簽Label1。選定Frame1，在其中增加3個文本框Text1～Text3。按表4-9所示設置對象屬性。設置屬性后的窗體如圖4.16所示。表4-9屬性設置(2)編寫事件代碼。命令按鈕Command1的Click事件代碼為：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,sAsSinglea=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)s=2*(a*b+b*c+c*a) '計算外表積Label1.Caption=s '在標簽上輸出結果EndSub圖4.17求長方體的外表積4.4使用對話框4.4.1消息對話框(MsgBox)MsgBox函數(shù)在對話框中顯示信息，等待用戶單擊按鈕，并返回一個整數(shù)以標明用戶單擊了哪個按鈕。其語法格式為變量=MsgBox(〈消息內容〉[,〈對話框類型〉[,〈對話框標題〉]])表4-10參數(shù)1——出現(xiàn)按鈕表4-11參數(shù)2——圖標類型表4-12參數(shù)3——默認按鈕圖4.18信息對話框表4-13函數(shù)的返回值4.4.2輸入框(InputBox)InputBox函數(shù)顯示一個能接受用戶輸入的對話框，并返回用戶在對話框中輸入的信息。其語法格式為變量=InputBox(〈信息內容〉[,〈對話框標題〉][,〈默認內容〉])【例4-13】設計華氏溫度和攝氏溫度相互轉換的程序。利用輸入框輸入溫度，如圖4.19所示。輸入一個華氏溫度可以得到相應的攝氏溫度，而輸入一個攝氏溫度那么可以得到相應的華氏溫度，如圖4.20所示。圖4.19輸入溫度值圖4.20溫度的轉換設計步驟如下：(1)建立應用程序用戶界面并設置對象屬性。(2)編寫事件代碼。習題四4.1利用標簽控件制作陰影文字，文字內容設為“繽紛世界〞。提示：利用標簽控件的Top、Left與BackStyle屬性。4.2設計程序，使之根據(jù)輸入