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

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

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

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

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

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

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

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

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

(1)Tab函數(shù)

格式為：Tab(n)

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

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

Spc(n

)

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

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

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

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

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

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

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

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

msgtitle$="學(xué)生情況登記" msg2$="請(qǐng)輸入年齡:" msg3$="請(qǐng)輸入性別:" msg4$="請(qǐng)輸入籍貫:"

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個(gè)數(shù)，編寫程序，計(jì)算并輸出這4個(gè)數(shù)的和及平均值。通過InputBox函數(shù)輸入數(shù)據(jù)，在窗體上顯示和及平均值。注意：在默認(rèn)情況下，InputBox函數(shù)的返回值是一個(gè)字符串。5.3MsgBox函數(shù)和MsgBox語(yǔ)句5.3.1MsgBox函數(shù)

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

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