第5章數據的輸入輸出 本章主要介紹窗體的輸入輸出操作，包括Print方法、InputBox函數、MsgBox函數和MsgBox語句。5.1數據輸出—Print方法

計算機通過輸入操作接收數據，然后對數據進行處理，并將處理完的數據以完整有效的方式提供給用戶，即輸出。

5.1.1Print方法 在早期版本的BASIC語言中，數據的輸出主要通過Print語句來實現。在VB中Print是作為對象的方法來使用的。1.使用Print方法

使用Print方法可以在窗體上輸出文本字符串或表達式的值，其語法格式為：

[〈對象名稱〉.]Print[〈表達式列表〉][{,|;}]1)〈對象名稱〉可以是窗體（Form）、圖片框（PictureBox）或打印機（Printer）,也可以是立即窗口（Debug）。如果省略“對象名稱”，則在窗體上直接輸出。

2)〈表達式列表〉是一個或多個表達式，可以是數值表達式或字符串。對于數值表達式，將輸出表達式的值；對于字符串，則照原樣輸出。如果省略“表達式列表”，則輸出一個空行。3）{,|;}分隔符，當輸出多個表達式或字符串時，各表達式用分隔符（逗號、分號或空格）隔開。 如果使用逗號分隔，則按標準輸出格式（分區輸出格式）顯示數據項；以14個字符位置為單位把一個輸出行分為若干個區段。 如果使用分號或空格分隔，則按緊湊輸出格式輸出數據。例：x=5:y=10:z=15Printx,y,z,"ABCD"PrintPrintx,y,z;"ABCD";"EFGH"4）Print方法具有計算和輸出雙重功能，對于表達式，先計算后輸出；但沒有賦值功能。例： x=5:y=10 Print(x+y)/3例：

x=5:y=10Printz=(x+y)/35）當在Print語句末尾添加一個分號或逗號，則可在同一行上顯示信息。 如果使用分號，則下一條Print輸出內容將緊跟其后顯示。 如果使用逗號，則下一條Print輸出內容將在同一行的下一個顯示區段顯示信息。例：Print"30+50=", Print30+50 Print"80+100="; Print80+1005.1.2與Print方法有關的函數

為了使數據按指定的位置輸出，VB提供了幾個與Print相配合的函數。

(1)Tab函數

格式為：Tab(n)

Tab函數把光標移到由參數n指定的位置，從這個位置開始輸出信息。要輸出的內容放在Tab函數后面，并用分號隔開。例如：PrintTab(10);"姓名";Tab(30);"年齡"注意：其中n為數值表達式，其值為一整數，它是下一個輸出位置的列號。 通常最左邊的列號為1，如果當前的顯示位置已經超過n，則自動下移一行。 如果n比行寬大時，則顯示位置為nmod行寬； 如果n<1，則把輸出位置移到第一列。 當在一個Print方法中有多個Tab函數時，則每個Tab函數對應一個輸出項，各輸出項之間用分號隔開。

(2)Spc函數 在Print的輸出中，用Spc函數可以跳過n個空格。其格式為：

Spc(n

)

其中n為數值表達式，其值為一整數，表示在下一個表達式之前插入的空格數。Spc函數與輸出項之間用分號隔開。例如：

Print"ABC";Spc(5);"DEF" '輸出：ABCDFE

與Tab函數不同之處是：Tab函數從對象的左端開始計數，而Spc函數只表示兩個輸出項之間的間隔。5.1.3格式輸出Format$函數可以使數值或日期按指定的格式輸出。格式為：Format$（數值表達式，格式字符串）功能是：按“格式字符串”指定的格式輸出“數值表達式”的值。字符作用#表示一個數字位，#的個數決定了顯示區段的長度；不在前面或后面補0。例如：PrintFormat（12345,“########”）PrintFormat（12345,“###”）0與#功能相同，只是在多余的位以0補齊。例如：PrintFormat（12345,“00000000”）.顯示小數點；小數點與#或0結合使用，可以放在顯示區段的任何位置。小數部分多余的數字按四舍五入處理。例如：PrintFormat（123.45,“#####.###”）PrintFormat（123.4567,“00.00”）字符作用,千位分隔符,即從小數點左邊一位開始，每3位用一個逗號分開。注意：逗號可以放在小數點左邊的任何位置，但不能放在頭部，或緊靠小數點。例如：PrintFormat（12345.67，“###,#.##”）%百分比符號，通常放在格式字符串的尾部，用來輸出百分號。例如：PrintFormat（0.123，“00.0%”）$美元符號，通常作為格式字符串的起始字符。例如：PrintFormat（123.456，“$$00##.00”）字符作用-、+負、正號，通常放在格式字符串的頭部。例如：PrintFormat（123.45，“-##0.00”）PrintFormat（123.45，“+##0.00”）E+、E-指數符號，用指數形式顯示數值。例如：PrintFormat（456.789，“0.00E+00”）PrintFormat（456.789，“0.00E-00”）PrintFormat（0.0456789，“0.00E+00”）PrintFormat（0.0456789，“0.00E-00”）PrintFormat(12345.6,”000,000.00”)PrintFormat(12345.678,”###,###.##”)PrintFormat(12345.6,”###,##0.00”)PrintFormat(12345.6,”$###,#0.00”)PrintFormat(12345.6,”-###,##0.00”)PrintFormat(.123,”0.00%”)PrintFormat(12345.6,”0.00E+00”)PrintFormat(.1234567,”0.00E-00”)012,345.6012,345.6812,345.60$12,345.60-12,345.6012.30%1.23E+041.23E-015.1.4其他方法和屬性1、Cls方法格式：[對象.]Cls功能：清除由Print方法顯示的文本或在圖片框中顯示的圖形，并把光標移到對象的左上角（0，0）。注意：“對象”指的是窗體或圖片框，如果省略則清除當前窗體內的顯示內容。當窗體的背景是用picture屬性裝入的圖形時，不能用Cls方法清除。2、Move方法格式：[對象.]Move左邊距離[，上邊距離[，寬度[，高度]]]功能：移動窗體和控件，并可改變其大小。屏幕窗體控件上邊距離上邊距離左邊距離左邊距離高度高度寬度寬度3、TextHeight和TextWidth方法格式：[對象名稱.]TextHeight(字符串) [對象名稱.]TextWidth(字符串)

其中，對象名稱可以是窗體、圖片框或打印機對象。

TextHeight和TextWidth方法則分別可以返回一個字符串文本的高度值和寬度值。其單位均為Twip。

CurrentX和CurrentY屬性分別用來返回或設置當前輸出位置的橫坐標與縱坐標，5.2數據輸入—InputBox函數

InputBox函數產生一個對話框，這個對話框作為輸入數據的界面，等待用戶輸入數據，并返回所輸入的內容。其語法格式為：

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])說明：1)<信息內容>指定在對話框中出現的文本。在<信息內容>中使用硬回車符（CHR(13)）可以使文本換行。對話框的高度和寬度隨著<信息內容>而增加，最多可有1024個字符。2)<對話框標題>指定對話框的標題。3)<默認內容>可以指定輸入框的文本框中顯示的默認文本。如果用戶單擊“確定”按鈕，文本框中的文本（字符串）將返回到變量中；若用戶單擊“取消”按鈕，返回的將是一個零長度的字符串。注意：如果省略了某些可選項，必須加入相應的逗號分隔符。例5.6PrivateSubForm_Click()c1$=Chr$(13)+Chr$(10)msg1$="輸入顧客名字:"msg2$="輸入后按回車鍵"msg3$="或單擊“確定”按鈕"""

msg$=msg1$+cl$+msg2$+cl$+msg3$

custname$=InputBox(msg$,"inputboxfunctiondemo","王大力")Printcustname$EndSub例5.7PrivateSubForm_Click() msg1$="請輸入姓名:"

msgtitle$="學生情況登記" msg2$="請輸入年齡:" msg3$="請輸入性別:" msg4$="請輸入籍貫:"

studname$=InputBox(msg1$,msgtitle$)

studage=InputBox(msg2$,msgtitle$)

studsex$=InputBox(msg3$,msgtitle$)

studhome$=InputBox(msg4$,msgtitle$)

Cls Printstudname$;",";studsex$;",現年"; Printstudage;"歲";",";studhome$;"人"EndSub編程題： 從鍵盤上輸出4個數，編寫程序，計算并輸出這4個數的和及平均值。通過InputBox函數輸入數據，在窗體上顯示和及平均值。注意：在默認情況下，InputBox函數的返回值是一個字符串。5.3MsgBox函數和MsgBox語句5.3.1MsgBox函數

MsgBox函數在對話框中顯示信息，等待用戶單擊按鈕，并返回一個整數以標明用戶單擊了哪個按鈕。其語法格式為：

MsgBox(msg[,type][,〈title〉][,helpfile,context])(1)msg:是一個字符串，指定在對話框中出現的文本，在信息內容中使用硬回車符（CHR(13)）可以使文本換行。對話框的高度和寬度隨著信息內容的增加而增加，最多可有1024個字符。(2)Type:是一個整數值或符號常量，用來控制對話框內顯示的按鈕、圖標的種類及數量，一般由3類數值決定。值符號常量作用0vbOKOnly“確定”按鈕1vbOKCancel“確定”和“取消”按鈕2vbAbortRetryIgnore“終止”、“重試”和“忽略”按鈕3vbYesNoCancel“是”、“否”和“取消”按鈕4vbYesNo“是”和“否”按鈕5vbRetryCancel“重試”和“取消”按鈕表1值常量說明0vbDefaultButton1 指定默認按鈕為第一按鈕256vbDefaultButton2指定默認按鈕為第二按鈕512vbDefaultButton3指定默認按鈕為第三按鈕768vbDefaultButton4指定默認按鈕為第四按鈕值常量說明16vbCritical停止圖標32vbQuestion問號（？）圖標48vbExclamation感嘆號（！）圖標64vbInformation信息圖標表2表3Type參數由以上4類數值組成，其組成原理是：從每一類中選擇一個值，把這幾個值加在一起就是Type參數的值，不同的組合會得到不同的結果。(3)title:是一個字符串，用來顯示對話框的標題。例：msg$=MsgBox("Msg:顯示內容",0+16+0,"Title:標題")MsgBox("Msg:顯示內容",3+48+0,"Title:標題")MsgBox("Msg:顯示內容",3+32+2,"Title:標題")MsgBox("Msg:顯示內容",34,"Title:標題")MsgBox("Msg:顯示內容",19,"Title:標題")MsgBox函數的返回值是一個整數，這個整數與所選擇的按鈕有關。返回值操作符號常量1選“確定”按鈕vbOk2選“取消”按鈕vbCancel3選“終止”按鈕vbAbort4選“重試”按鈕vbRetry5選“忽略”按鈕vbIgnore6選“是”按鈕vbYes7選“否”按鈕vbNo例5.8PrivateSubForm_Click()msg1$="Areyoucontinueto?"msg2$="OperationDialogBox"r=MsgBox(msg1$,34,msg2$)PrintrEndSub例5.9PrivateSubForm_