1、第5章 數(shù)據(jù)的輸入和輸出除界面外,程序通?？煞譃槿糠?即:輸入、處置、輸出.Visual Basic提供了多種手段來(lái)進(jìn)展輸入和輸出,如:利用各種控件來(lái)進(jìn)展輸入和輸出操作.使得輸入和輸出靈敏、多樣、方便、籠統(tǒng)直觀。計(jì)算機(jī)經(jīng)過(guò)輸入操作接受數(shù)據(jù)，然后對(duì)數(shù)據(jù)進(jìn)展處置，并將處置完的數(shù)據(jù)以完好有效的方式提供應(yīng)用戶，即輸出。本章主要引見(jiàn)窗體的輸入和輸出.5.1.1數(shù)據(jù)的輸出- Print方法功能：Print方法可以在窗體上顯示文本字符串和表達(dá)式的值，并可以在其它圖形對(duì)象或打印機(jī)上輸出信息。其中表達(dá)式可以是數(shù)值表達(dá)式或字符串表達(dá)式。語(yǔ)法格式： 對(duì)象稱號(hào).Print 表達(dá)式列表,|;闡明：對(duì)象：指窗體、圖片框

2、、打印機(jī)、立刻窗口； 5.1.2. 與Print方法有關(guān)的函數(shù)與Print 相配合的函數(shù)：1Tab函數(shù)功能：與 Print # 語(yǔ)句或 Print 方法一同運(yùn)用，對(duì)輸出進(jìn)展定位。格式：Tab(n)2Spc函數(shù)功能：在顯示或打印列表中的下一個(gè)表達(dá)式之前插入n個(gè)空格,其中:n為032767之間的整數(shù)。Spc函數(shù)與輸出項(xiàng)之間須用分號(hào)隔開。 格式： Spc(n)5.1.3. 格式輸出 利用Format$函數(shù)可以按指定格式輸出數(shù)據(jù).Format函數(shù)的格式： Format$(數(shù)值表達(dá)式，格式字符串)功能：按“格式字符串指定格式輸出“數(shù)值表達(dá)式的值 5.1.4. 其它與輸出相關(guān)的方法和屬性去除方法CLS功能

3、：Cls去除由Print方法打印的文本或圖片框中的圖形。格式： 對(duì)象稱號(hào). Cls5.2 數(shù)據(jù)輸入InputBox函數(shù)功能：產(chǎn)生一對(duì)話框，這個(gè)對(duì)話框作為輸入數(shù)據(jù)的界面，等待用戶輸入正文或按下按鈕，并前往輸入的內(nèi)容。語(yǔ)法格式： 變量= InputBox(, , , , , , )闡明： 各個(gè)參數(shù)的含義 InputBox函數(shù)的執(zhí)行過(guò)程 函數(shù)值的默許類型為 String類型 用InputBox輸入數(shù)值數(shù)據(jù)時(shí)，需求用Val函數(shù)或在輸入變量后 加類型闡明符(或在運(yùn)用前給出類型闡明語(yǔ)句) 一個(gè)InputBox函數(shù)只能輸入一個(gè)數(shù)據(jù) 輸入的數(shù)據(jù)需求賦給變量，否那么不能保管該函數(shù)有7個(gè)參數(shù)，其含義如下：1Pro

4、mpt:是一個(gè)字符串，其長(zhǎng)度不超越1024個(gè)字符，它是對(duì) 話框內(nèi)顯示的信息，用來(lái)提示用戶的輸入。在對(duì)話框內(nèi)顯示 Prompt時(shí)，可以自動(dòng)換行。假設(shè)要按本人的要求換行，須插入回 車換行操作。即：Chr$(13)+Chr$(10)2Title:字符串，它是對(duì)話框的標(biāo)題，顯示在對(duì)話框頂部的標(biāo)題 區(qū)。3Default：字符串，用來(lái)顯示輸入緩沖區(qū)的默許信息。在執(zhí)行 InputBox函數(shù)后，假設(shè)用戶沒(méi)有輸入任何信息，那么可用此默許字符 串作為輸入值。也可以在輸入?yún)^(qū)直接鍵入數(shù)據(jù)取代默許值。假設(shè)省 略該參數(shù)，那么對(duì)話框的輸入?yún)^(qū)為空白，等待用戶輸入信息。詳見(jiàn) P95 圖5.94xpos,ypos：是兩個(gè)整數(shù)值，

5、分別用來(lái)確定對(duì)話框與屏幕的 左邊距和上邊距，這兩個(gè)參數(shù)必需同時(shí)給出或全部省略。假設(shè)省略 這對(duì)位置參數(shù)，那么對(duì)話框顯示在屏幕中心線下約1/3處。5Helpfile,context：Helpfile是一個(gè)字符串變量或字符串表達(dá)式 ，表示協(xié)助文件； context是一個(gè)數(shù)值變量或數(shù)值表達(dá)式，表示 協(xié)助文件的相關(guān)目錄號(hào)。在運(yùn)用InputBox函數(shù)時(shí), 應(yīng)留意以下幾點(diǎn): 執(zhí)行InputBox函數(shù)后, 產(chǎn)生一個(gè)對(duì)話框, 提示用戶輸入數(shù)據(jù), 光標(biāo)位于對(duì)話框底部的輸入?yún)^(qū)中. 假設(shè)第三個(gè)參數(shù)(default)不省略, 那么在輸入?yún)^(qū)中顯示該參數(shù)的值, 此時(shí)假設(shè)按回車鍵或單擊對(duì)話框中的 “確定按鈕, 那么輸入該默許

6、值, 并可把它賦給一個(gè)變量; 假設(shè)不想輸入默許值, 那么可直接鍵入所需求的數(shù)據(jù), 然后按回車鍵或單擊“確定按鈕輸入. 在默許情況下, InputBox的前往值是一個(gè)字符串(不是變體類型). 也就是說(shuō), 假設(shè)沒(méi)有事先聲明前往值變量的類型(或聲明為變體類型), 那么當(dāng)把該函數(shù)的前往值賦給這個(gè)變量時(shí), Visual Basic總是把它作為字符串來(lái)處置. 因此, 當(dāng)需求用InputBox函數(shù)輸入數(shù)值, 并且需求輸入的數(shù)值參與運(yùn)算時(shí), 必需在進(jìn)展運(yùn)算前用Val函數(shù)(或其他轉(zhuǎn)換函數(shù))把它轉(zhuǎn)換為相應(yīng)類型的數(shù)值, 否那么有能夠會(huì)得到不正確的結(jié)果. 假設(shè)正確地聲明了前往值的變量類型(或者加了類型闡明符), 那么

7、可不用進(jìn)展類型轉(zhuǎn)換. 在執(zhí)行InputBox函數(shù)所產(chǎn)生的對(duì)話框中, 有兩個(gè)按鈕, 一個(gè)是 “確定, 另一個(gè)是 “取消. 在輸入?yún)^(qū)輸入數(shù)據(jù)后, 單擊 “確定 按鈕(或按回車鍵)表示確認(rèn), 并前往在輸入?yún)^(qū)中輸入的數(shù)據(jù); 而假設(shè)單擊“取消 按鈕(或按Esc鍵), 那么使當(dāng)前的輸入作廢, 在這種情況下, 將前往一個(gè)空字符串. 每執(zhí)行一次InputBox函數(shù)只能輸入一個(gè)值, 假設(shè)需求輸入多個(gè)值, 那么必需多次調(diào)用InputBox函數(shù). 輸入數(shù)據(jù)并按回車鍵或單擊 “確定后, 對(duì)話框消逝, 輸入的數(shù)據(jù)必需作為函數(shù)的前往值賦給一個(gè)變量, 否那么輸入的數(shù)據(jù)不能保管. 在實(shí)踐運(yùn)用中, 函數(shù)InputBox通常與循

8、環(huán)語(yǔ)句、數(shù)組結(jié)合運(yùn)用, 這樣可以延續(xù)輸入多個(gè)值, 并把輸入的數(shù)據(jù)賦給數(shù)組中各元素. 和其他前往字符串的函數(shù)一樣, InputBox函數(shù)也可以寫成InputBox$的方式, 兩種方式完全等價(jià). 5.3 MsgBox函數(shù)和MsgBox語(yǔ)句功能：產(chǎn)生一對(duì)話框顯示信息，等待用戶單擊按鈕進(jìn)展選擇，根據(jù)用戶選擇確定程序其后的操作。 MsgBox函數(shù)格式：變量=MsgBox(, , , , )MsgBox語(yǔ)句格式：MsgBox , , , , 闡明： 各個(gè)參數(shù)的含義(*參數(shù)Type)參數(shù)：整型表達(dá)式，指定顯示按鈕的數(shù)目及方式，運(yùn)用的圖標(biāo)類型，缺省按鈕的種類以及音訊框的強(qiáng)迫回應(yīng)等。假設(shè)省略，那么 的缺省值為

9、0。 5.3.1 MsgBox函數(shù)函數(shù) MsgBox函數(shù)的格式如下函數(shù)的格式如下:MsgBox(msg,type,title,helpfile,context 該函數(shù)有該函數(shù)有5個(gè)參數(shù)個(gè)參數(shù), 除第一個(gè)參數(shù)外除第一個(gè)參數(shù)外, 其他參數(shù)都是可選的其他參數(shù)都是可選的. 每個(gè)參數(shù)的含義如下每個(gè)參數(shù)的含義如下 msg: 是一個(gè)字符串是一個(gè)字符串, 其長(zhǎng)度不能超越其長(zhǎng)度不能超越1024個(gè)字符個(gè)字符, 假設(shè)超越假設(shè)超越, 那么多余的字符那么多余的字符被截掉被截掉. 該字符串的內(nèi)容將在由該字符串的內(nèi)容將在由MsgBox函數(shù)產(chǎn)生的對(duì)話框內(nèi)顯示函數(shù)產(chǎn)生的對(duì)話框內(nèi)顯示. 當(dāng)字符串在一行內(nèi)顯示不完時(shí)當(dāng)字符串在一行內(nèi)

10、顯示不完時(shí), 將自動(dòng)換行將自動(dòng)換行, 當(dāng)然也可以用當(dāng)然也可以用 “Chr$( 13 )+Chr$( 10 ) 強(qiáng)迫換行強(qiáng)迫換行. type: 是一個(gè)整數(shù)值或符號(hào)常量是一個(gè)整數(shù)值或符號(hào)常量, 用來(lái)控制在對(duì)話框內(nèi)顯示的按鈕、圖標(biāo)的種類及數(shù)量用來(lái)控制在對(duì)話框內(nèi)顯示的按鈕、圖標(biāo)的種類及數(shù)量. 該參數(shù)的值由該參數(shù)的值由4類數(shù)值相加產(chǎn)生類數(shù)值相加產(chǎn)生, 這這4類數(shù)值或符號(hào)常量分別表示按鈕類數(shù)值或符號(hào)常量分別表示按鈕的類型、顯示圖標(biāo)的種類、活動(dòng)按鈕的位置及強(qiáng)迫前往的類型、顯示圖標(biāo)的種類、活動(dòng)按鈕的位置及強(qiáng)迫前往, 見(jiàn)表見(jiàn)表5.2 函數(shù)前往值表示用戶所選擇的按鈕，作為繼續(xù)執(zhí)行程序的根據(jù) 提示字符串可以自動(dòng)換行

11、，假設(shè)須強(qiáng)行換行，可用代碼Chr$(13)+Chr$(10) 表5-3 MsgBox函數(shù)的前往值系統(tǒng)常數(shù)返回值描述VbOK1確定VbCancel2取消VbAbort3終止VbRetry4重試VbIgnore5忽略VbYes6是VbNo7否 闡明闡明: MsgBox函數(shù)第二個(gè)參數(shù)的第三類數(shù)值用來(lái)確定默許活動(dòng)按鈕函數(shù)第二個(gè)參數(shù)的第三類數(shù)值用來(lái)確定默許活動(dòng)按鈕. 當(dāng)某個(gè)按鈕為活動(dòng)按鈕時(shí)當(dāng)某個(gè)按鈕為活動(dòng)按鈕時(shí), 其內(nèi)部的文字周圍有一個(gè)虛線框其內(nèi)部的文字周圍有一個(gè)虛線框(參見(jiàn)圖參見(jiàn)圖5.12). 假設(shè)按回車鍵假設(shè)按回車鍵, 那么選那么選擇的是活動(dòng)按鈕擇的是活動(dòng)按鈕, 與單擊該按鈕作用一樣與單擊該按鈕作用

12、一樣. 用用Tab鍵可以把其他按鈕變?yōu)榛顒?dòng)按鈕鍵可以把其他按鈕變?yōu)榛顒?dòng)按鈕, 每按一次每按一次Tab鍵鍵, 變換一個(gè)活動(dòng)按鈕變換一個(gè)活動(dòng)按鈕. 此外此外, 不論能否是活動(dòng)按鈕不論能否是活動(dòng)按鈕, 用鼠標(biāo)用鼠標(biāo)(單擊單擊)都都可以選擇該按鈕可以選擇該按鈕. 用用MsgBox函數(shù)顯示的提示信息最多不超越函數(shù)顯示的提示信息最多不超越1024個(gè)字節(jié)個(gè)字節(jié), 所顯示的信息自動(dòng)換行所顯示的信息自動(dòng)換行, 并能自動(dòng)調(diào)整信息框的大小并能自動(dòng)調(diào)整信息框的大小. 假設(shè)由于格式要求需求換行假設(shè)由于格式要求需求換行, 那么必需添加回車那么必需添加回車換行代碼換行代碼. 在運(yùn)用程序中在運(yùn)用程序中, MsgBox函數(shù)的前

13、往值通常用來(lái)作為繼續(xù)執(zhí)行程序的根據(jù)函數(shù)的前往值通常用來(lái)作為繼續(xù)執(zhí)行程序的根據(jù), 根據(jù)該前往值決議其后的操作根據(jù)該前往值決議其后的操作. 看下面的例子看下面的例子. 5.3.2 MsgBox語(yǔ)句語(yǔ)句 MsgBox函數(shù)也可以寫成語(yǔ)句方式函數(shù)也可以寫成語(yǔ)句方式, 即即:MsgBox Msg$,type%,title$,help,context各參數(shù)的含義及作用與各參數(shù)的含義及作用與MsgBox函數(shù)一樣函數(shù)一樣, 由于由于MsgBox語(yǔ)句沒(méi)有前往值語(yǔ)句沒(méi)有前往值, 因此因此常用于較簡(jiǎn)單的信息顯示常用于較簡(jiǎn)單的信息顯示. 例如例如:MsgBox “工程保管勝利工程保管勝利執(zhí)行上面的語(yǔ)句執(zhí)行上面的語(yǔ)句,

14、顯示的信息框如圖顯示的信息框如圖5.14所示所示. 圖圖5.14 簡(jiǎn)單信息框簡(jiǎn)單信息框 由由MsgBox函數(shù)或函數(shù)或MsgBox語(yǔ)句所顯示的信息框有一個(gè)共同的特點(diǎn)語(yǔ)句所顯示的信息框有一個(gè)共同的特點(diǎn), 就是在出現(xiàn)信息框后就是在出現(xiàn)信息框后, 必需作出選擇必需作出選擇, 即單擊框中的某個(gè)按鈕或按回車鍵即單擊框中的某個(gè)按鈕或按回車鍵, 否那么不能執(zhí)行其他任否那么不能執(zhí)行其他任何操作何操作. 在在Visual Basic中中, 把這樣的窗口把這樣的窗口(對(duì)話框?qū)υ捒?稱為稱為 “模態(tài)窗口模態(tài)窗口(Modal Window), 這種窗口在這種窗口在Windows中普遍運(yùn)用中普遍運(yùn)用. 在程序運(yùn)轉(zhuǎn)時(shí)在程序

15、運(yùn)轉(zhuǎn)時(shí), 模態(tài)窗口掛起運(yùn)用程序中其他窗口的操作模態(tài)窗口掛起運(yùn)用程序中其他窗口的操作. 普通來(lái)說(shuō)普通來(lái)說(shuō), 當(dāng)屏幕上出現(xiàn)一個(gè)窗口當(dāng)屏幕上出現(xiàn)一個(gè)窗口(或?qū)υ捒蚧驅(qū)υ捒?時(shí)時(shí), 假設(shè)需求在呼應(yīng)該窗口中的提示后才干進(jìn)展其后的操假設(shè)需求在呼應(yīng)該窗口中的提示后才干進(jìn)展其后的操作作, 那么應(yīng)運(yùn)用模態(tài)窗口那么應(yīng)運(yùn)用模態(tài)窗口. 與模態(tài)窗口相反與模態(tài)窗口相反, 非模態(tài)窗口非模態(tài)窗口(Modaless Window)允許對(duì)屏幕上的其他窗口進(jìn)展操作允許對(duì)屏幕上的其他窗口進(jìn)展操作, 也就是說(shuō)也就是說(shuō), 可以激活其他窗口可以激活其他窗口, 并把光標(biāo)移到該窗口并把光標(biāo)移到該窗口. MsgBox函數(shù)和函數(shù)和MsgBox語(yǔ)句

16、強(qiáng)迫所顯示的信息框?yàn)槟B(tài)窗口語(yǔ)句強(qiáng)迫所顯示的信息框?yàn)槟B(tài)窗口. 在多窗體程序中在多窗體程序中, 可以把某個(gè)窗體設(shè)置為模態(tài)窗口可以把某個(gè)窗體設(shè)置為模態(tài)窗口. 5.4 字形除字體類型和大小外，Visual Basic還提供了其他一些屬性，使文字的輸出豐富多彩. 字體類型：對(duì)象.FontName=“字體類型字體大?。簩?duì)象.FontSize=點(diǎn)數(shù)粗體字： 對(duì)象.FontBold=BooleanFontBold屬性值為True時(shí)，文本以粗體字輸出，否那么按正常字輸出。該屬性的默許值為False。斜體字： 對(duì)象.FontItalic=BooleanFontItalic屬性值為True時(shí)，文本以斜體字輸出，

17、否那么按正常字輸出。該屬性的默許值為False。加刪除線： 對(duì)象.FontStrikethru=BooleanFontStrikethru屬性值為True時(shí)，那么可在輸出的文本中部畫一條直線，直線的長(zhǎng)度與文本的長(zhǎng)度一樣，該屬性的默許值為False。加下劃線： 對(duì)象.FontUnderline=BooleanFontUnderline屬性值為True時(shí)，那么可使輸出的文本加下劃線，該屬性的默許值為False。重疊顯示： 對(duì)象.FontTransParent=Boolean當(dāng)以圖形或文本作為背景顯示新的信息時(shí)，有時(shí)候需求保管原來(lái)的背景，使新顯示的信息與背景重疊，這可以經(jīng)過(guò)FontTransPare

18、nt屬性來(lái)實(shí)現(xiàn)，格式如下： FontTransParent =Boolean假設(shè)該屬性被設(shè)置為True，那么前景的圖形或文本可以與背景重疊顯示；假設(shè)被設(shè)置為False，那么背景將被前景的圖形或文本覆蓋.在運(yùn)用以上引見(jiàn)的字形屬性時(shí)，應(yīng)該留意以下兩點(diǎn)： 除重疊顯示FontTransParent屬性只適用于窗體和圖片框控件外，其他屬性都適用于窗體和各種控件及打印機(jī). 假設(shè)省略對(duì)象名，那么指的是當(dāng)前窗體，否那么應(yīng)加上對(duì)象名，例如： Textl .FontSize = 20 設(shè)置文本框中的字體大小 Printer. FontBold = True 在打印機(jī)上以粗體字輸出 設(shè)置一種屬性后，該屬性即開場(chǎng)起作用，并且不會(huì)自動(dòng)吊銷，只需在顯式地重新設(shè)置后，才干改動(dòng)該屬性的值.在Visual Basic 6.0中，除