數(shù)據(jù)輸入輸出2課件

基本語句程序語句程序中的一行代碼稱為語句，語句是執(zhí)行具體操作的指令，每個(gè)語句行以回車鍵結(jié)束。示例：Label.Caption=Time語句的書寫規(guī)則一行中的多條語句之間用冒號(hào)隔開示例：Text1.Text=“Hello”:Red=255:Text1.Backcolor=Red當(dāng)一條語句很長(zhǎng)時(shí)，可以使用續(xù)行符“—”續(xù)行，在續(xù)行符前至少要加一個(gè)空格，并且續(xù)行符只能出現(xiàn)在行尾示例：strMyStr=“當(dāng)前用戶為：”&—strUsername基本語句程序語句命令格式中的符號(hào)約定

符號(hào)含義<>必選參數(shù)表示符[]可選參數(shù)表示符|多取一表示符{}包含多取一的各項(xiàng),…表示同類項(xiàng)目的重復(fù)出現(xiàn)…表示省略了在當(dāng)時(shí)敘述中不涉及的部分基本語句命令格式中的符號(hào)約定符號(hào)含義<>必選參數(shù)表示符[基本語句賦值語句LET

賦值語句的一般格式為：

[Let]<名稱>=<表達(dá)式>

注：

“Let”是可選項(xiàng)，完成賦值功能只需“=”（賦值號(hào)）

“名稱”是變量或?qū)傩缘拿Q

“表達(dá)式”可以是算術(shù)表達(dá)式、字符串表達(dá)式、關(guān)系型表達(dá)式或邏輯型表達(dá)式，并且賦值號(hào)兩邊的數(shù)據(jù)類型必須一致

賦值語句先計(jì)算，然后再賦值基本語句賦值語句LET 基本語句例如：x=123：name="張小華"'給變量賦值Text1.Text="賦值語句的使用實(shí)例"'給對(duì)象的屬性賦值n=a:a=b:b=n'兩個(gè)變量（a和b）數(shù)值的互換sum=sum+n'累加sum=sum*n'累積，變量sum的初值不可以為0基本語句例如：基本語句示例：交換兩個(gè)變量中的數(shù)據(jù)，如下圖設(shè)計(jì)步驟如下：建立應(yīng)用程序用戶界面設(shè)置對(duì)象的屬性編寫代碼（Command1_Click()的事件代碼）PrivateSubCommand1_Click()t=Label3.CaptionLabel3.Caption=Label4.CaptionLabel4.Caption=tEndSub教材示例3-1基本語句示例：交換兩個(gè)變量中的數(shù)據(jù)，如下圖教材示例3-1基本語句

注釋與暫停 注釋語句語法格式為：

Rem<注釋內(nèi)容>或’<注釋內(nèi)容>

注：

Rem與注釋內(nèi)容之間應(yīng)加一個(gè)空格

在語句行使用Rem，語句與Rem之間用冒號(hào)分隔。示例：s=Pi*r*2’計(jì)算圓的面積

v=4/3*pi*r^3:Rem計(jì)算球的體積暫停語句語法格式為：

Stop

注：

Stop

與End

不同，不關(guān)閉任何文件或清除變量，只是設(shè)置斷點(diǎn)，以便檢查程序。基本語句注釋與暫停 數(shù)據(jù)輸出VB輸出操作包括文本信息的輸出和圖形圖像的輸出直接輸出到窗體使用Print方法在窗體上輸出文本字符串或表達(dá)式的值，語法格式為：

[<對(duì)象名稱>.]Print[<表達(dá)式列表>][{，|；}]

注：

<對(duì)象名稱>可以是窗體(Form)、圖片框(PictureBox)或打印機(jī)(Printer),省略則為窗體

<表達(dá)式列表>可以是數(shù)值或字符串?dāng)?shù)據(jù)輸出VB輸出操作包括文本信息的輸出和圖形

輸出多個(gè)表達(dá)式時(shí)，用逗號(hào)（,）分隔各項(xiàng)表示按標(biāo)準(zhǔn)輸出格式顯示，用（;）分隔各項(xiàng)表示按緊湊格式顯示

語句行尾使用（,）后繼輸出語句在下一個(gè)分區(qū)顯示；語句行尾使用（;）后繼輸出語句緊接其尾顯示；語句行尾省略分隔符，后繼輸出語句自動(dòng)換行。

Print語句有計(jì)算和輸出雙重功能數(shù)據(jù)輸出示例1：使用Print方法在窗體中直接輸出字符串或數(shù)值表達(dá)式的值，如右圖所示示例1

輸出多個(gè)表達(dá)式時(shí)，用逗號(hào)（,）分隔各項(xiàng)表示數(shù)據(jù)輸出設(shè)計(jì)步驟如下建立用戶程序界面（如圖所示）設(shè)置對(duì)象屬性設(shè)計(jì)代碼PrivateSubCommand1_Click()PrintPrint"2*3+4=";2*3+4PrintPrint"歡迎學(xué)習(xí)"Print,"Visual"Print,,"Basic"PrintPrint"歡迎學(xué)習(xí)",Print"Visual";"Basic"EndSub數(shù)據(jù)輸出設(shè)計(jì)步驟如下數(shù)據(jù)輸出與Print方法有關(guān)的函數(shù)

Tab函數(shù)在Print方法中對(duì)輸出進(jìn)行定位，格式為：Tab（<n>）其中n的值為一整數(shù)示例：PrintTab(10);”姓名”;Tab(30)”年齡”

Spc函數(shù)Spc（<n>）其中n的值為一整數(shù)示例：Print“ABC”;Spc(5);”DEF”注：Tab函數(shù)從對(duì)象的左端開始計(jì)數(shù)，Spc函數(shù)表示兩個(gè)輸出項(xiàng)之間的間隔數(shù)據(jù)輸出與Print方法有關(guān)的函數(shù)數(shù)據(jù)輸出示例2：用Tab函數(shù)和Spc函數(shù)改寫示例1PrivateSubCommand1_Click()PrintPrintTab(5);"2*3+4=";2*3+4PrintPrintTab(6);"歡迎學(xué)習(xí)";Tab(17);"VisualBasic"PrintPrintTab(7);"歡迎學(xué)習(xí)";Spc(3);"Visual";Spc(2);"Basic"EndSub示例2教材示例3-2數(shù)據(jù)輸出示例2：用Tab函數(shù)和Spc函數(shù)改寫示例1示例2教材數(shù)據(jù)輸出設(shè)計(jì)步驟如下：建立應(yīng)用程序用戶界面（Command1和Picture1)設(shè)置對(duì)象屬性設(shè)計(jì)代碼PrivateSubCommand1_Click()Picture1.PrintPicture1.PrintTab(5);"2*3+4=";2*3+4Picture1.PrintPicture1.PrintTab(6);"歡迎學(xué)習(xí)";Tab(17);"VisualBasic"Picture1.PrintPicture1.PrintTab(7);"歡迎學(xué)習(xí)";Spc(3);"Visual";Spc(2);"Basic"EndSub數(shù)據(jù)輸出設(shè)計(jì)步驟如下：格式輸出函數(shù)用格式輸出函數(shù)可以使數(shù)值、日期或字符型數(shù)據(jù)按指定的格式輸出。語法格式為：Format(<表達(dá)式>,<格式字符串>)

注：<表達(dá)式>可以是數(shù)值型、日期型或字符型的表達(dá)式；

<格式字符串>是一個(gè)字符串常量或變量，由專門的格式說明字符組成。這些說明字符決定了數(shù)據(jù)項(xiàng)<表達(dá)式>的顯示格式和長(zhǎng)度；

當(dāng)<格式字符串>是字符串常量的時(shí)候，必須放在雙引號(hào)中；

格式輸出函數(shù)Format()返回一個(gè)Variant類型的值。見下三頁表數(shù)據(jù)輸出格式輸出函數(shù)數(shù)據(jù)輸出字符說明示例#

數(shù)字占位符。顯示一位數(shù)字或什么都不顯示。如果表達(dá)式在格式字符串中#的位置上有數(shù)字存在，那么就顯示出來；否則，該位置就什么都不顯示。Format(123.45,”####.###”)返回：123.450

數(shù)字占位符。顯示一位數(shù)字或是零。如果表達(dá)式在格式字符串中0的位置上有一位數(shù)字存在，那么就顯示出來；否則，就以零顯示。Format(123.45,”0000.000”)返回：0123.450.

小數(shù)點(diǎn)占位符,

千分位符號(hào)占位符Format(1234.5,”#,###.##”)返回：1,234.5%

百分比符號(hào)占位符。表達(dá)式乘以100。而百分比字符（%）回插入到格式字符串中出現(xiàn)的位置上。Format(0.12345,”0.00%”)返回：12.35%

常用的數(shù)值型格式說明字符數(shù)據(jù)輸出字符說明示例#數(shù)字占位符。顯示一位數(shù)字或什么字符說明示例dddddd

以完整日期表示法顯示日期系列數(shù)（包括年、月、日）Format(Date,”dddddd”)返回：2003年3月10日mmmm

以全稱來表示月（January─December）Format(Date,”mmmm”)返回：Marchyyyy

以四位數(shù)來表示年Format(Date,”yyyy”)返回：2003Hh

以有前導(dǎo)零的數(shù)字來顯示小時(shí)（00─23）Format(Time,”Hh:Nn:Ss”)返回：08:08:08Nn

以有前導(dǎo)零的數(shù)字來顯示分（00─59）Ss

以有前導(dǎo)零的數(shù)字來顯示秒（00─59）ttttt

以完整時(shí)間表示法（包括時(shí)、分、秒），用系統(tǒng)識(shí)別的時(shí)間格式定義的時(shí)間分隔符進(jìn)行格式化。缺省的時(shí)間格式為h:mm:ssFormat(Time,”ttttt”)返回：8:57:09AM/PM

在中午前以12小時(shí)配合大寫AM符號(hào)使用；在中午和11:59P.M..間以12小時(shí)配合大寫PM使用Format(Time,”tttttAM/PM”)返回：8:57:34AM

常用的時(shí)間日期型格式說明字符數(shù)據(jù)輸出字符說明示例dddddd以完整日期表示法顯示字符說明示例@

字符占位符。顯示字符或空白。如果字符串在格式字符串中@的位置有字符存在，那么就顯示出來；否則，就在那個(gè)位置上顯示空白。除非有驚嘆號(hào)字符（!）在格式字符串中，否則字符占位符由右而左被填充Format(“ABab”,”@@@@@@”)返回：“ABab”&

字符占位符。顯示字符或空白。如果字符串在格式字符串中&的位置有字符存在，那么就顯示出來；否則，就在那個(gè)位置上顯示空白。除非有驚嘆號(hào)字符（!）在格式字符串中，否則字符占位符由右而左被填充Format(“ABab”,”&&&&&&”)返回：“Abab”<

強(qiáng)制小寫。將所有字符以小寫格式顯示。Format(“ABab”,”<@@@@@@”)返回：“abab”>

強(qiáng)制大寫。將所有字符以大寫格式顯示。Format(“ABab”,”>@@@@@@”)返回：“ABAB”!

強(qiáng)制由左而右填充字符占位符。缺省值是右而左填充字符占位符Format(“ABab”,”!@@@@@@”)返回：“Abab”

常用的字符型格式說明字符教材示例3-3數(shù)據(jù)輸出字符說明示例@字符占位符。顯示字符或空白。如使用位置屬性利用位置屬性CurrentX、CurrentY（橫坐標(biāo)、豎坐標(biāo)）可將輸出文本精確定位到窗體、圖片框、打印頁上數(shù)據(jù)輸出使用位置屬性數(shù)據(jù)輸出

坐標(biāo)原點(diǎn)(0,0)在窗體的左上角坐標(biāo)軸刻度單位為緹(Twip,567緹為1厘米)

當(dāng)前位置的橫坐標(biāo)(CurrentX)和縱坐標(biāo)(CurrentY)YX

·

(CurrentX,CurrentY)

當(dāng)前位置窗體坐標(biāo)系統(tǒng)數(shù)據(jù)輸出YX·(CurrentX,CurrentY)補(bǔ)充例題

顯示唐詩(shī)“靜夜思”設(shè)置以下3個(gè)命令按鈕：

“顯示”按鈕：用于顯示唐詩(shī)“靜夜思”

“清除”按鈕：用于清除所生成的文本

“結(jié)束”按鈕：結(jié)束程序的運(yùn)行設(shè)計(jì)步驟如下：

(1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對(duì)象的屬性數(shù)據(jù)輸出補(bǔ)充例題顯示唐詩(shī)“靜夜思”數(shù)據(jù)輸出

(2)編寫程序代碼。編寫的三個(gè)按鈕的Click事件過程代碼：

PrivateSubCmdPrt_Click()BackColor=RGB(255,255,255)ForeColor=RGB(0,0,255)FontName="楷體_GB2312"FontSize=20FontBold=True′粗體

CurrentX=1200:CurrentY=350′顯示位置

Print"靜夜思(唐詩(shī))"FontName="幼圓"PrintFontSize=13PrintSpc(6);"床前明月光，疑是地上霜"PrintPrintSpc(6);"舉頭望明月，低頭思故鄉(xiāng)"

EndSub(2)編寫程序代碼。編寫的三個(gè)按鈕的Click事件過程代碼

PrivateSubCmdCls_Click()Cls

EndSub

PrivateSubCmdEnd_Click()End

EndSub

程序運(yùn)行后，單擊“顯示”按鈕，輸出結(jié)果PrivateSubCmdCls_Click()方法2(2)編寫程序代碼。編寫的三個(gè)按鈕的Click事件過程代碼：

PrivateSubCmdPrt_Click()ForeColor=RGB(0,0,255)FontName="楷體_GB2312"FontSize=20FontBold=True'粗體

a="靜夜思(唐詩(shī))"b="床前明月光，疑是地上霜"c="舉頭望明月，低頭思故鄉(xiāng)"Form1.CurrentX=Form1.ScaleWidth/2-TextWidth(a)/2Form1.CurrentY=Form1.ScaleHeight/2-TextHeight(a)/2-TextHeight(b)-TextHeight(c)PrintaFontName="幼圓"PrintFontSize=13Form1.CurrentX=Form1.ScaleWidth/2-TextWidth(b)/2PrintbPrintForm1.CurrentX=Form1.ScaleWidth/2-TextWidth(c)/2Printc

EndSub方法2(2)編寫程序代碼。編寫的三個(gè)按鈕的Click事件過程輸入框（InputBox）

InputBox函數(shù)顯示一個(gè)能接收用戶輸入的對(duì)話框，并返回用戶在對(duì)話框中輸入的信息。語法格式為：變量=InputBox（<信息內(nèi)容>[,<對(duì)話框標(biāo)題>][,<默認(rèn)內(nèi)容>]）注：

<信息內(nèi)容>指定對(duì)話框中出現(xiàn)的文本

<對(duì)話框標(biāo)題>指定對(duì)話框標(biāo)題

<默認(rèn)內(nèi)容>指定輸入框的文本框中顯示的默認(rèn)文本

省略可選項(xiàng)，應(yīng)加相應(yīng)的逗號(hào)分隔符（,）數(shù)據(jù)輸入教材示例3-4輸入框（InputBox） 數(shù)據(jù)輸入教材示例3-4

示例7：編制華氏溫度和攝氏溫度的相互轉(zhuǎn)換程序，利用輸入框輸入溫度，如下圖所示：設(shè)計(jì)步驟如下：

建立應(yīng)用程序用戶界面并設(shè)置對(duì)象屬性，如下圖數(shù)據(jù)輸入示例7示例7：編制華氏溫度和攝氏溫度的相互轉(zhuǎn)換程序

編寫事件代碼PrivateSubCommand1_Click()c=Val(InputBox("請(qǐng)輸入攝氏溫度值：","攝氏轉(zhuǎn)華氏",0))f=32+9*c/5Label1.Caption=“攝氏”&c&“度=華氏”&_Format(f,"####.##")&"度"EndSubPrivateSubCommand2_Click()f=Val(InputBox("請(qǐng)輸華氏溫度值：","華氏轉(zhuǎn)攝氏",0))c=5*(f-32)/9Label1.Caption=“華氏”&f&“度=攝氏”&_Format(c,"####.##")&"度"EndSub數(shù)據(jù)輸入

編寫事件代碼數(shù)據(jù)輸入

示例8：“雞兔同籠”問題。雞有2只腳，兔有4只腳，如果已知雞和兔的總頭數(shù)為h，總腳數(shù)為f。問籠中雞和兔各有多少只？設(shè)計(jì)步驟如下：

建立應(yīng)用程序用戶界面并設(shè)置對(duì)象屬性，如下圖數(shù)據(jù)輸入示例8示例8：“雞兔同籠”問題。雞有2只腳，兔有4

編寫事件代碼PrivateSubCommand1_Click()DimhAsInteger,fAsIntegerh=Val(InputBox("雞和兔的總頭數(shù)","請(qǐng)輸入",0))f=Val(InputBox("雞和兔的總腳數(shù)（偶數(shù)）","請(qǐng)輸入",0))x=(4*h-f)/2y=(f-2*h)/2Label2.Caption="設(shè)籠中雞和兔的總頭數(shù)為"&h&_"，總腳數(shù)為"&f&"。"Label3.Caption="則籠中雞"&x&"只，兔有"&y&_"只。"EndSub數(shù)據(jù)輸入

編寫事件代碼數(shù)據(jù)輸入信息對(duì)話框（MsgBox）

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

變量=MsgBox（<信息內(nèi)容>[，<對(duì)話框類型>[，<對(duì)話框標(biāo)題>]]）注：

<信息內(nèi)容>指定對(duì)話框中出現(xiàn)的文本

<對(duì)話框類型>指定對(duì)話框中出現(xiàn)的按鈕和圖標(biāo)，一般有三個(gè)參數(shù),三個(gè)參數(shù)相加可以得到所需樣式，其取值和含義如表值常量說明0vbOKOnly確定按鈕1vbOKCancel確定和取消按鈕2vbAbortRetryIgnore終止、重試和忽略按鈕3vbYesNoCancel是、否和取消按鈕4vbYesNo是和否按鈕5vbRetryCancel重試和取消按鈕參數(shù)1——出現(xiàn)按鈕數(shù)據(jù)輸入信息對(duì)話框（MsgBox） 值常量說明0vbOKOnly確值常量說明16vbCritical停止圖標(biāo)32vbQuestion問號(hào)（？）圖標(biāo)48vbExclamation感嘆號(hào)（?。﹫D標(biāo)64vbInformation信息圖標(biāo)參數(shù)2——圖標(biāo)類型值常量說明0vbDefaultButton1指定默認(rèn)按鈕為第一按鈕256vbDefaultButton2指定默認(rèn)按鈕為第二按鈕512vbDefaultButton3指定默認(rèn)按鈕為第三按鈕參數(shù)3——默認(rèn)按鈕數(shù)據(jù)輸入值常量說明16vbCritical停止圖標(biāo)32vbQuest

<對(duì)話框標(biāo)題>指定對(duì)話框的標(biāo)題

MsgBox返回的值指明了在對(duì)話框中選擇哪一個(gè)按鈕，如下表

代碼中的值可以是數(shù)值，也可以是數(shù)值常量

如果省略了某些可選項(xiàng)，必須加入相應(yīng)的逗號(hào)分隔符

若不需要返回值，則可以使用MsgBox的命令形式：

MsgBox<信息內(nèi)容>[，<對(duì)話框類型>[，<對(duì)話框標(biāo)題>]]值常量按鈕1vbOK確定按鈕2vbCancel取消按鈕3vbAbort終止按鈕4vbRetry重試按鈕5vbIgnore忽略按鈕6vbYes是7vbNo否函數(shù)的返回值數(shù)據(jù)輸入

<對(duì)話框標(biāo)題>指定對(duì)話框的標(biāo)題值常量按示例：a=MsgBox(“請(qǐng)確認(rèn)輸入數(shù)據(jù)是否正確!”,3+32+0,“數(shù)據(jù)檢查”)運(yùn)行結(jié)果如下圖：數(shù)據(jù)輸入示例：數(shù)據(jù)輸入

示例9或例3-6：使用信息對(duì)話框輸出各種票額鈔票張數(shù)的付款方案設(shè)計(jì)步驟如下：

建立應(yīng)用程序用戶界面（如下圖左）數(shù)據(jù)輸入示例9示例9或例3-6：使用信息對(duì)話框輸出各種票額PrivateSubCommand1_Click()x=Val(Text1.Text)Y1=x\100:x=xMod100Y2=x\50:x=xMod50Y3=x\10:x=xMod10Y4=x\5:x=xMod5Y5=x\2:x=xMod2Text1.SelStart=0:Text1.SelLength=Len(Text1.Text):Text1.SetFocusa="================================="&Chr(13)a=a&Format(Y1&"張百元票,","@@@@@@@@@@@@")&_Format(Y2&"張50元票","@@@@@@@@@")&Chr(13)a=a&Format(Y3&"張10元票,","@@@@@@@@@@@@@")a=a&Format(Y4&"張5元票","@@@@@@@@@")&Chr(13)a=a&Format(Y5&"張2元票,","@@@@@@@@@@@@@")a=a&Format(x&"張1元票","@@@@@@@@@")&Chr(13)a=a&"================================="&Chr(13)a=a&"共計(jì)"&Text1.Text&"元"C=MsgBox(a,0,"應(yīng)發(fā)工資")EndSub數(shù)據(jù)輸入PrivateSubCommand1_Click()數(shù)據(jù)

圖片框（PictureBox）和圖像框（Image）都用于顯示圖形，它們可以顯示.bmp(位圖)，.ico(圖標(biāo))，.wmf(圖元)，.gif和.jpg等類型的圖形文件

圖片框（PictureBox）可以作為其他控件的容器

常用屬性

與窗體屬性相同的屬性：Enabled，Name，Visible，F(xiàn)ontBold，F(xiàn)ontName，F(xiàn)ontSize，AutoRedraw，Height，Left，Top，Width等

⑴Picture屬性該屬性用于設(shè)置控件要顯示的圖形。該屬性無論是在屬性窗口中設(shè)置還是在運(yùn)行時(shí)由程序代碼設(shè)置，均需要完整的路徑和文件名。

⑵AutoSize屬性返回或設(shè)置控件大小是否自動(dòng)調(diào)整大小，以完整顯示圖形。如果設(shè)置為True，圖片框根據(jù)圖形大小自動(dòng)調(diào)整。如果設(shè)置為False，保持原尺寸，當(dāng)圖形比圖片框大時(shí)，則超出部分會(huì)自動(dòng)被截去。圖片框圖片框（PictureBox）和圖像框（Image）

⑶CurrentX和CurrentY屬性用來返回或設(shè)置下一個(gè)輸出的水平（CurrentX）或垂直（CurrentY）坐標(biāo)。這兩個(gè)屬性只能在運(yùn)行時(shí)使用，語法格式：[對(duì)象名稱.]CurrentX[=x][對(duì)象名稱.]CurrentY[=y]“對(duì)象”可以是窗體、圖片框或打印機(jī)。如果省略“對(duì)象”，則指當(dāng)前窗體；如果省略“=x”、“=y”，則返回當(dāng)前的坐標(biāo)值。

⑷Align屬性設(shè)置圖片框在窗體中的顯示方式。如表3-6所示。

⒉圖片框常用事件及方法