數(shù)據(jù)的輸入與輸出匯編

1、2第第3章章 數(shù)據(jù)的輸入與輸出數(shù)據(jù)的輸入與輸出3.1 數(shù)據(jù)輸出數(shù)據(jù)輸出3.2 數(shù)據(jù)輸入數(shù)據(jù)輸入3.3 打印機輸出打印機輸出3.4 使用框架控件使用框架控件3直接輸出到窗體直接輸出到窗體 ch3-3.1.1oPrint方法方法.Print,|;可以是可以是 窗體、圖片框或打印機窗體、圖片框或打印機如果省略表達式則輸出一個空行如果省略表達式則輸出一個空行表達式間的分隔符：表達式間的分隔符：, 或或 ;4直接輸出到窗體直接輸出到窗體 ch3-3.1.1qTab()函數(shù)函數(shù)把顯示或打印位置移到由參數(shù)把顯示或打印位置移到由參數(shù)n指定的列數(shù)指定的列數(shù)如：如：Print Tab(10);”姓名姓名”;Tab

2、(30);”年齡年齡”5直接輸出到窗體直接輸出到窗體 ch3-3.1.1qSpc函數(shù)函數(shù)Spc() 在顯示或打印下一個表達式之前插入的空格數(shù)在顯示或打印下一個表達式之前插入的空格數(shù)如如Print 姓名姓名; Spc(5); 年齡年齡“ 輸出為：姓名輸出為：姓名 年齡年齡6輸出到圖片框輸出到圖片框 ch3-3.1.2Private Sub Command1_Click()Picture1.PrintPicture1.Print 2*3+4=; 2 * 3 + 4Picture1.Print 2*3+4=, 2 * 3 + 4Picture1.PrintPicture1.Print 歡迎學習歡迎學

3、習,Picture1.Print Visual; BasicEnd Sub7“標簽標簽”控件控件 ch3-3.1.38910“文本框文本框”控件控件 ch3-3.3.1(1) Text文本屬性文本屬性顯示的正文內(nèi)容存放在顯示的正文內(nèi)容存放在Text屬性中。屬性中。 (2) Maxlength屬性屬性Maxlength屬性指明文本框中能夠輸入屬性指明文本框中能夠輸入的正文內(nèi)容的最大長度。的正文內(nèi)容的最大長度。注意：注意：在在VB中字符長度以字為單位，也就是一個中字符長度以字為單位，也就是一個西文字符與一個漢字都是一個字，長度為西文字符與一個漢字都是一個字，長度為1。 (3) MultiLine多

4、行屬性多行屬性當當MultiLine屬性為屬性為True時，文本框可時，文本框可以輸入或顯示多行正文以輸入或顯示多行正文 (4) ScrollBars滾動條屬性滾動條屬性11“文本框文本框”控件控件 ch3-3.3.1 (5) Locked屬性屬性指定文本控件是否可被編輯，指定文本控件是否可被編輯，默認值為默認值為False，表示可編輯，當，表示可編輯，當設置為設置為True時，文本控件相當于時，文本控件相當于標簽的作用。標簽的作用。12“文本框文本框”控件控件 ch3-3.3.1(6) SelStart、SelLength和和SelText屬性屬性SelStart：選定的正文的開始位：選定的

5、正文的開始位置，第一個字符的位置是置，第一個字符的位置是0。SelLength：選定的正文長度。：選定的正文長度。SelText：選定的正文內(nèi)容。：選定的正文內(nèi)容。見下頁舉例：見下頁舉例：13“文本框文本框”控件控件 舉例舉例 ch3-3.3.1例例3-2在文本框在文本框Text1中選定文本，通過中選定文本，通過命令按鈕將選定的內(nèi)容復制或剪切到文命令按鈕將選定的內(nèi)容復制或剪切到文本框本框Text2中。中。14“文本框文本框”控件舉例控件舉例 ch3-3.3.1（1 1）設計界面及設置屬性）設計界面及設置屬性 兩個文本框兩個文本框Text1Text1和和Text2Text2，MultiLineM

6、ultiLine屬性均設屬性均設為為 T r u eT r u e ， S c r o l l B a r sS c r o l l B a r s 屬 性 均 設 為屬 性 均 設 為 2 2 ，HideSelectionHideSelection屬性均設為屬性均設為FalseFalse。文本框。文本框Text1Text1的的AlignmentAlignment屬性設為屬性設為2 2。文本框。文本框Text1Text1的的TextText屬性設為李白的詩屬性設為李白的詩“下江陵下江陵”。添加三個。添加三個命令按鈕，命令按鈕，CaptionCaption屬性分別為屬性分別為“復制到目標區(qū)復制到

7、目標區(qū)”、“剪切到目標區(qū)剪切到目標區(qū)”和和“退出退出”。 15“文本框文本框”控件舉例控件舉例 ch3-3.3.1（2 2）編寫代碼）編寫代碼Private Sub cmdCopy_Click() 將選中的文本復制到將選中的文本復制到Text2中中 Text2.SelText = Text1.SelTextEnd SubPrivate Sub cmdCut_Click() 將選中的文本復制到將選中的文本復制到Text2中中 Text2.SelText = Text1.SelText 刪除刪除Text1中被選中的文本，完成剪切中被選中的文本，完成剪切 Text1.SelText = End Su

8、b16“文本框文本框”控件舉例控件舉例 ch3-3.3.1例例3-3 建立一個類似記事本的應用程序。建立一個類似記事本的應用程序。運行結(jié)果如下圖運行結(jié)果如下圖17“文本框文本框”控件控件 ch3-3.3.1(1) Change事件事件當用戶輸入新內(nèi)容或當程序?qū)斢脩糨斎胄聝?nèi)容或當程序?qū)ext屬性設置屬性設置新值，會引發(fā)該事件。當用戶輸入一個字符時，新值，會引發(fā)該事件。當用戶輸入一個字符時，就會引發(fā)一次就會引發(fā)一次Change事件。事件。 (2) KeyPress事件事件當用戶按下并且釋放鍵盤上的一個鍵時，就會當用戶按下并且釋放鍵盤上的一個鍵時，就會引發(fā)焦點所在控件的引發(fā)焦點所在控件的KeyP

9、ress事件，此事件事件，此事件會返回一個會返回一個KeyAscii參數(shù)到該事件過程中。參數(shù)到該事件過程中。例如，當用戶輸入字符例如，當用戶輸入字符a，返回，返回KeyAscii的的值為值為97。 18“文本框文本框”控件控件 ch3-3.3.119“文本框文本框”控件控件 ch3-3.3.1(3) LostFocus事件事件此事件是在一個對象失去焦點時發(fā)生，此事件是在一個對象失去焦點時發(fā)生，焦點的丟失或者是由于制表鍵焦點的丟失或者是由于制表鍵(Tab)移移動或單擊另一個對象操作的結(jié)果。動或單擊另一個對象操作的結(jié)果。(4) GotFocus事件事件GotFocus事件與事件與LostFocus

10、事件相反，事件相反，當一個對象獲得焦點時發(fā)生。當一個對象獲得焦點時發(fā)生。 20“文本框文本框”控件控件 ch3-3.3.1o文本框最有用的方法是文本框最有用的方法是SetFocus，該，該方法是把光標移到指定的文本框中。形方法是把光標移到指定的文本框中。形式如下：式如下：對象對象.SetFocus 21“文本框文本框”控件控件 ch3-3.3.1例例3-4輸入兩個數(shù)，然后計算兩個數(shù)的和，輸入兩個數(shù)，然后計算兩個數(shù)的和，將結(jié)果顯示。要求對輸入的非數(shù)字數(shù)據(jù)，將結(jié)果顯示。要求對輸入的非數(shù)字數(shù)據(jù)，清除文本框中的內(nèi)容，并使焦點重新回清除文本框中的內(nèi)容，并使焦點重新回到該文本框。到該文本框。 22“文本框

11、文本框”控件控件 ch3-3.3.1Private Sub Text1_LostFocus()If Not IsNumeric(Text1.text) ThenText1.Text = Text1.SetFocus 焦點重新回焦點重新回到輸入文本框到輸入文本框End IfEnd Sub 23“文本框文本框”控件控件 ch3-3.3.1Private Sub Text2_LostFocus()If Not IsNumeric(Text2.text) And Text2.text ThenText2.Text = Text2.SetFocus 焦點重新回焦點重新回到輸入文本框到輸入文本框End I

12、fEnd Sub 24“文本框文本框”控件控件 ch3-3.3.1Private Sub Text3_GotFocus() Text3 = Val(Text1.text) + Val(Text2.text)End Sub 25輸入框（輸入框（InputBox） ch3-3.4.2變量名變量名=InputBox$(=InputBox$(， ， ，x，y ) ) 其中其中: :提示提示 提示信息提示信息, ,標題標題 標題區(qū)顯示標題區(qū)顯示, ,缺省缺省輸入?yún)^(qū)缺省輸入?yún)^(qū)缺省值。值。例如，要在屏幕上顯示如下的對話框例如，要在屏幕上顯示如下的對話框: :26輸入框（輸入框（InputBox） ch3-3

13、.4.2說明：說明：（1 1）在對話框中，如果用戶選擇了【確定】按鈕，則）在對話框中，如果用戶選擇了【確定】按鈕，則InputBoxInputBox函數(shù)返回文本框中所有內(nèi)容；如果選擇了函數(shù)返回文本框中所有內(nèi)容；如果選擇了【取消】按鈕，則函數(shù)返回零長度的字符串?！救∠堪粹o，則函數(shù)返回零長度的字符串。（2 2）除提示信息外，其他參數(shù)均為可選參數(shù)。如果指定了）除提示信息外，其他參數(shù)均為可選參數(shù)。如果指定了后面的參數(shù)而省略前面的參數(shù)，則必須保留前面的逗號。后面的參數(shù)而省略前面的參數(shù)，則必須保留前面的逗號。例如：例如：strNo = InputBoxstrNo = InputBox( ( 輸入編號輸入

14、編號 ， ，001001) )。（3 3）使用）使用InputBoxInputBox函數(shù)一次只能輸入一個數(shù)據(jù)。如果要輸函數(shù)一次只能輸入一個數(shù)據(jù)。如果要輸入多個數(shù)據(jù)，則必須多次使用該函數(shù)。入多個數(shù)據(jù)，則必須多次使用該函數(shù)?！纠纠?-53-5】通過】通過InputBoxInputBox函數(shù)輸入兩個數(shù)字存入變量函數(shù)輸入兩個數(shù)字存入變量a a、b b，然后將其互換。然后將其互換。在窗體上添加一個命令按鈕，設在窗體上添加一個命令按鈕，設CaptionCaption為為“輸入數(shù)字輸入數(shù)字”。 27輸入框（輸入框（InputBox） ch3-3.4.2Private Sub Command1_Click(

15、) Dim a, b, t Cls a = Val(InputBox(請輸入請輸入 a :, 輸入數(shù)輸入數(shù)字字) b = Val(InputBox(請輸入請輸入 b :, 輸入輸入數(shù)字數(shù)字) Print 交換前交換前: a =; a; , b =; b t = a: a = b: b = t 交換交換 Print 交換后交換后: a =; a; , b =; bEnd Sub28輸入框（輸入框（InputBox） ch3-3.4.2例例3-5 用文本框輸入攝氏溫度用文本框輸入攝氏溫度C，輸出華氏溫度，輸出華氏溫度F。公式為：。公式為： F=1.8*C+32Private Sub Command1_Click() Dim C As Single,F As Single Dim str1 As String C=Val(InputBox(“請輸入攝氏溫度值：請輸入攝氏溫度值：”,”攝氏轉(zhuǎn)華氏攝氏轉(zhuǎn)華氏”,0) F=9/5*C+32 str1=攝氏攝氏+Str(C)+度相當于華氏度相當于華氏+Str(F)+度度 print str1End Sub29輸入框（輸入框（InputBox） ch3-3.4.2例例3-6 用用InputBox輸入球體的半徑，然后計算球體的輸入球體的半徑，然后計算球體的體積。體積。 Private Sub Command1_Click() Dim r