《Visual Basic程序設(shè)計(jì)（第4版）》第4章 順序結(jié)構(gòu)程序設(shè)計(jì)

單元四

順序結(jié)構(gòu)程序設(shè)計(jì)單元四順序結(jié)構(gòu)程序設(shè)計(jì)數(shù)據(jù)輸出

1常用基本語句

2利用文本框進(jìn)行數(shù)據(jù)輸入

3使用對(duì)話框

44.1數(shù)據(jù)輸出4.1.1直接輸出到窗體1.使用Print方法

[〈對(duì)象名〉.]Print[表達(dá)式表][{,|;}]逗號(hào)分隔符，各輸出項(xiàng)按標(biāo)準(zhǔn)輸出（分區(qū)輸出）格式顯示，此時(shí)，以14個(gè)字符寬度為單位將輸出行分為若干區(qū)段，逗號(hào)后面的表達(dá)式在下一個(gè)區(qū)段輸出。分號(hào)分隔符，按緊湊格式輸出，即各輸出項(xiàng)之間無間隔地連續(xù)輸出。PrivateSubCommand1_Click()

PrintPrint"2*3+4=";2*3+4

Print Print"祝你學(xué)好"Print,"Visual?

Print,,"Baisc"

PrintPrint"祝您學(xué)好",

Print"Visual";"Baisc"EndSub2.與Print方法有關(guān)的函數(shù)

(1)Tab函數(shù)

(2)Spc函數(shù)PrivateSubForm_Click()ShowFontSize=12PrintPrintTab(10);"姓名";Tab(25);"性別";Tab(40);"年齡"PrintPrintTab(10);"張紅";Tab(25);"女";Tab(40);17PrintTab(10);"海小翔";Tab(25);"男";Tab(40);18EndSub3.使用位置屬性和字體屬性PrivateSubCommand1_Click()DimxAsStringx="輕輕松松學(xué)VB"FontSize=20

FontName="黑體"CurrentX=2000CurrentY=1500ShowPrintxEndSub4.清除方法ClsPrivateSubCommand2_Click()

ClsEndSub4.1.2使用Label控件實(shí)現(xiàn)數(shù)據(jù)輸出PrivateSubCommand1_Click()Label1.Caption="你是男是女呀？"

Label2.Caption="女生"

Label2.Alignment=2

Label2.BorderStyle=0EndSub

Label控件的常用屬性：

(1)Caption屬性用來在標(biāo)簽中顯示文本。在缺省情況下，Caption（標(biāo)題）是Label控件中唯一的可見部分。

(2)BorderStyle屬性用來設(shè)置標(biāo)簽的邊框。該屬性可以取兩個(gè)值，即0和1。默認(rèn)情況下，該屬性值為0，標(biāo)簽無邊框。如果把BorderStyle（邊框樣式）屬性設(shè)置成1，那么Label就有了一個(gè)邊框。

(3)其他外觀屬性可以通過設(shè)置Label控件的BackColor、ForeColor和Font等屬性來改變Label的外觀。返回目錄4.2常用基本語句4.2.1賦值語句[Let]〈名稱〉=〈表達(dá)式〉實(shí)現(xiàn)兩變量的交換。PrivateSubCommand1_Click()t=Label3.CaptionLabel3.Caption=Label4.CaptionLabel4.Caption=tEndSub

4.2.2卸載對(duì)象語句UnloadUnload〈對(duì)象名〉PrivateSubCommand2_Click()UnloadMe'Me表示按鈕所在的窗體對(duì)象EndSub4.2.3注釋語句RemRem〈注釋內(nèi)容〉'〈注釋內(nèi)容〉例如：s=pi*r^2'計(jì)算圓的面積v=4/3*pi*r^3:Rem計(jì)算球的體積返回目錄4.3利用文本框進(jìn)行數(shù)據(jù)輸入4.3.1TextBox控件的簡(jiǎn)單使用

(1)Text屬性：文本框中包含的文本內(nèi)容。

(2)Locked屬性：控件是否可編輯。Locked屬性值為True時(shí)，文本框內(nèi)容不可編輯；為False時(shí)可編輯。

(3)PassWordChar屬性：顯示在文本框中的替代符，如一串“*”號(hào)等。主要用于口令的輸入。

(4)MaxLength屬性：顯示在文本框中的字符數(shù)，超出部分不接收，并同時(shí)發(fā)出嘟嘟聲。PrivateSubForm_Load()Text1.Text="":Text2.Text=""Text3.Text="":Text4.Text=""Text5.Text=""

Text5.Locked=True

EndSubPrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Val(Text2.Text)

b=Val(Text3.Text)c=Val(Text4.Text)Text5.Text=(a+b+c)/3EndSub4.3.2多行文本的輸入MultiLine值為False，ScrollBars值為0（缺省情況下）MultiLine值為True，ScrollBars值為0MultiLine值為True，ScrollBars值為2MultiLine值為True，ScrollBars值為14.3.3焦點(diǎn)與Tab鍵序

焦點(diǎn)就是光標(biāo)，當(dāng)對(duì)象具有“焦點(diǎn)”時(shí)才能響應(yīng)用戶輸入。當(dāng)控件的Visible和Enabled屬性值為True時(shí)，控件才能接收焦點(diǎn)。但是，某些控件不具有焦點(diǎn)，如標(biāo)簽、框架、計(jì)時(shí)器等。程序運(yùn)行時(shí)，可以通過下列方法改變焦點(diǎn)：

用鼠標(biāo)單擊對(duì)象。

按〈Tab〉鍵或〈Shift〉+〈Tab〉在當(dāng)前窗體的各對(duì)象之間巡回移動(dòng)焦點(diǎn)。

按熱鍵選擇對(duì)象?？刂芓ab鍵序的屬性有：1)TabIndex屬性：決定控件接收焦點(diǎn)的順序。2)TabStop屬性：決定焦點(diǎn)是否能夠停在該控件上。

4.3.4Frame控件PrivateSubCommand1_Click()DimhAsInteger,mAsInteger,sAsInteger

DimxAsLongh=Val(Text1.Text)

m=Val(Text2.Text)

s=Val(Text3.Text)

x=h*3600+m*60+s

Label1.Caption="共計(jì)秒數(shù)"&Str(x)&"秒"EndSub返回目錄4.4使用對(duì)話框?qū)崿F(xiàn)數(shù)據(jù)輸入輸出4.4.1輸入框（InputBox）InputBox函數(shù)顯示一個(gè)能接受用戶輸入數(shù)據(jù)的對(duì)話框，并返回用戶在對(duì)話框中輸入的信息。

變量=InputBox(〈信息內(nèi)容〉[,〈對(duì)話框標(biāo)題〉][,〈默認(rèn)內(nèi)容〉])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&"只。"EndSub4.4.2消息框（MsgBox）

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

變量=MsgBox(〈消息內(nèi)容〉[,〈對(duì)話框類型〉[,〈對(duì)話框標(biāo)題〉]])〈對(duì)話框類型〉有3個(gè)參數(shù)。參數(shù)1——出現(xiàn)按鈕值常量說明0vbOKOnly確定按鈕1vbOKCancel確定和取消按鈕2vbAbortRetryIgnore終止、重試和忽略按鈕3vbYesNoCancel是、否和取消按鈕4vbYesNo是和否按鈕5vbRetryCancel重試和取消按鈕參數(shù)2——圖標(biāo)類型值常量說明16vbCritical停止圖標(biāo)32vbQuestion問號(hào)（？）圖標(biāo)48vbExclamation感嘆號(hào)（！）圖標(biāo)64vbInformation消息圖標(biāo)參數(shù)3——默認(rèn)按鈕值常量說明0vbDefau