第5章 數(shù)據(jù)的輸入輸出

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

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

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

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

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

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

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

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

(1)Tab函數(shù)

格式為：Tab(n)

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

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

Spc(n

)

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

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

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

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

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

CurrentX和CurrentY屬性分別用來返回或設(shè)置當(dāng)前輸出位置的橫坐標(biāo)與縱坐標(biāo)，5.2數(shù)據(jù)輸入—InputBox函數(shù)

InputBox函數(shù)產(chǎn)生一個對話框，這個對話框作為輸入數(shù)據(jù)的界面，等待用戶輸入數(shù)據(jù)，并返回所輸入的內(nèi)容。其語法格式為：

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])說明：1)<信息內(nèi)容>指定在對話框中出現(xiàn)的文本。在<信息內(nèi)容>中使用硬回車符（CHR(13)）可以使文本換行。對話框的高度和寬度隨著<信息內(nèi)容>而增加，最多可有1024個字符。2)<對話框標(biāo)題>指定對話框的標(biāo)題。3)<默認(rèn)內(nèi)容>可以指定輸入框的文本框中顯示的默認(rèn)文本。如果用戶單擊“確定”按鈕，文本框中的文本（字符串）將返回到變量中；若用戶單擊“取消”按鈕，返回的將是一個零長度的字符串。注意：如果省略了某些可選項，必須加入相應(yīng)的逗號分隔符。例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$="學(xué)生情況登記" msg2$="請輸入年齡:" msg3$="請輸入性別:" msg4$="請輸入籍貫:"

studname$=InputBox(msg1$,msgtitle$)

studage=InputBox(msg2$,msgtitle$)

studsex$=InputBox(msg3$,msgtitle$)

studhome$=InputBox(msg4$,msgtitle$)

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

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

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