第3章簡(jiǎn)單VB程序設(shè)計(jì)VB程序設(shè)計(jì)03課件下載-樣章.ppt

窗體3.1命令按鈕3.2

標(biāo)簽3.3文本框3.4賦值語(yǔ)句3.5

注釋語(yǔ)句、結(jié)束語(yǔ)句3.9程序調(diào)試3.10消息框3.8輸入框3.7Print方法3.6

VB應(yīng)用程序的執(zhí)行是由事件驅(qū)動(dòng)的，當(dāng)用戶觸發(fā)某一事件時(shí)執(zhí)行相應(yīng)的事件過(guò)程，這些事件過(guò)程之間并沒(méi)有特定的執(zhí)行次序。

但在每一個(gè)事件過(guò)程內(nèi)部，是有一定的執(zhí)行控制流程的，這就是通常所說(shuō)的三種根本結(jié)構(gòu)：順序結(jié)構(gòu)、分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。順序結(jié)構(gòu)是最簡(jiǎn)單的一種結(jié)構(gòu)，該結(jié)構(gòu)按語(yǔ)句排列的先后順序執(zhí)行。

本章的主要內(nèi)容有：VB最根本的幾個(gè)對(duì)象；與順序結(jié)構(gòu)有關(guān)的語(yǔ)句和方法。通過(guò)本章的學(xué)習(xí)，可以進(jìn)行簡(jiǎn)單VB程序設(shè)計(jì)。3.1窗體創(chuàng)立VB應(yīng)用程序的第一步是創(chuàng)立用戶界面。用戶界面的根底是窗體，各種控件對(duì)象必須建立在窗體上。

啟動(dòng)VB后，即在屏幕上顯示一個(gè)窗體，如圖3-1所示。

圖標(biāo)標(biāo)題最大化按鈕最小化按鈕關(guān)閉按鈕窗口區(qū)邊框圖3-1窗體

3.1.1窗體的主要屬性窗體的屬性決定了窗體的外觀和操作。對(duì)象的大局部屬性可用兩種方法來(lái)設(shè)置：通過(guò)屬性窗口設(shè)置和通過(guò)程序代碼設(shè)置。有少量的屬性不能在程序代碼中設(shè)置。

〔1〕Caption屬性設(shè)置窗體的標(biāo)題內(nèi)容。標(biāo)題內(nèi)容應(yīng)概括說(shuō)明本窗體作用?！?〕MaxButton屬性和MinButton屬性MaxButton為T(mén)rue，窗體右上角有最大化按鈕；為False時(shí)，無(wú)最大化按鈕。MinButton屬性為T(mén)rue，窗體右上角有最小化按鈕；為False時(shí)，無(wú)最小化按鈕。

〔3〕BorderStyle屬性決定窗體邊框式樣及窗體是否能調(diào)整大小?！?〕BackColor屬性和ForeColor屬性BackColor屬性設(shè)置窗體的背景顏色；ForColor屬性設(shè)置窗體的前景顏色。窗體的前景顏色是執(zhí)行Print方法時(shí)所顯示文本的顏色。

〔5〕Height屬性和Width屬性設(shè)置窗體的初始高度和寬度。其單位為T(mén)wip。1Twip=1/20點(diǎn)=1/1440英寸=1/567厘米。〔6〕Left屬性和Top屬性用于設(shè)置窗體左邊框距屏幕左邊界的距離和窗體頂邊距屏幕頂端的距離。其單位為T(mén)wip。

〔7〕Name〔名稱〕屬性設(shè)置窗體的名稱，在程序代碼中用這個(gè)名稱引用該窗體。新建工程時(shí)，窗體的名稱缺省為Form1；添加第二個(gè)窗體，其名稱缺省為Form2，以此類推。為了便于識(shí)別，用戶通常給Name屬性設(shè)置一個(gè)有實(shí)際意義的名稱。

〔8〕Enabled屬性屬性值為T(mén)rue或False，設(shè)置對(duì)象是否能對(duì)用戶產(chǎn)生的事件做出反響。一般在程序中設(shè)置，用于臨時(shí)屏蔽對(duì)窗體或其他控件的的控制?！?〕Moveable屬性屬性值為T(mén)rue或False，設(shè)置是否可以移動(dòng)窗體。〔10〕Visible屬性屬性值為T(mén)rue或False，設(shè)置窗體是否被顯示。用戶可用該屬性在程序代碼中控制窗體的隱現(xiàn)。

〔11〕Picture屬性設(shè)置在窗體中顯示的圖片。單擊Picture屬性右邊的按鈕，彈出“加載圖片〞對(duì)話框，用戶可選擇一個(gè)圖片文件作為窗體的背景圖片。假設(shè)在程序中設(shè)置該屬性的值，需要使用LoadPicture函數(shù)。

〔12〕WindowState屬性設(shè)置窗體啟動(dòng)后的大小狀態(tài)。它有三個(gè)可選值：0-Normal:窗體大小由Height和Width屬性決定。1-Minimized:窗體最小化成圖標(biāo)。2-Maximized:窗體最大化，充滿整個(gè)屏幕。

在VB中，雖然不同的對(duì)象有不同的屬性集合，但有一些屬性，如Name、Enabled、Visible、Height、Width、Left、Top等，其他控件也具有，且具有相似的作用。在后續(xù)的章節(jié)中，我們主要介紹各種控件常用的特殊屬性。

3.1.2事件窗體最常用的事件有三種：Click〔單擊〕、DbClick〔雙擊〕、Load〔裝入〕。

〔1〕Click事件程序運(yùn)行后，單擊窗體觸發(fā)該事件?！?〕DbClick事件程序運(yùn)行后，雙擊窗體觸發(fā)該事件。〔3〕Load事件Load事件是窗體被裝入內(nèi)存工作區(qū)時(shí)觸發(fā)的事件。如果這個(gè)事件過(guò)程存在，就馬上執(zhí)行它。Load事件過(guò)程通常用于啟動(dòng)程序時(shí)對(duì)屬性、變量的初始化，裝載數(shù)據(jù)等。

【例3.1】窗體上無(wú)最大化最小化按鈕，程序運(yùn)行后，在窗體上裝入一幅圖片作為背景；當(dāng)單擊窗體時(shí)，窗體變寬；當(dāng)雙擊窗體時(shí)，那么退出。程序運(yùn)行界面如圖3-2所示。

（a）Load事件（b）Click事件圖3-2例3.1運(yùn)行界面

屬性設(shè)置如表3-1所示。對(duì)象屬性設(shè)置Form1Caption練習(xí)窗體事件MaxButtonFalseMinButtonFalse表3-1例3.1對(duì)象屬性設(shè)置

事件過(guò)程如下：PrivateSubForm_Load()'裝入圖片F(xiàn)orm1.Picture=LoadPicture("c:\pic\Changcheng.wmf")EndSubPrivateSubForm_click()'單擊窗體Form1.Width=Form1.Width+1000EndSubPrivateSubForm_DblClick()'雙擊窗體EndEndSub3.2命令按鈕

在VB應(yīng)用程序中，命令按鈕是使用的最多的對(duì)象之一，常常用它接受用戶的操作信息，觸發(fā)相應(yīng)的事件過(guò)程，以實(shí)現(xiàn)指定的功能。

3.2.1屬性〔1〕Caption屬性設(shè)定命令按鈕上顯示的文本。〔2〕Default屬性該屬性用于設(shè)置默認(rèn)命令按鈕。當(dāng)Default屬性設(shè)置為T(mén)rue時(shí)，按ENTER鍵相當(dāng)于用鼠標(biāo)單擊了該按鈕。

〔3〕Style屬性和Picture屬性命令按鈕上除了可以顯示文字外，還可以顯示圖形。假設(shè)要顯示圖形，首先應(yīng)將Style屬性設(shè)置為1，然后在Picture屬性中設(shè)置要顯示的圖形文件。類似的，假設(shè)要設(shè)置命令按鈕的BackColor〔背景色〕，也應(yīng)將Style屬性設(shè)置為1。Style屬性可設(shè)置為：0-Standard：標(biāo)準(zhǔn)的，命令按鈕上不能顯示圖形。1-Graphical：圖形的，命令按鈕上可以顯示圖形，也可以顯示文字。

〔4〕Value屬性該屬性只能在程序運(yùn)行期間引用或設(shè)置。True表示被按下，F(xiàn)alse〔默認(rèn)〕表示未被按下。在代碼中可通過(guò)設(shè)置Value屬性為T(mén)rue，來(lái)觸發(fā)命令按鈕的Click事件。例如，利用下面代碼，可通過(guò)程序來(lái)選擇命令按鈕，并觸發(fā)命令按鈕的Click事件。Command2.Value=True3.2.2事件最常用的事件是Click事件。3.3標(biāo)簽標(biāo)簽〔Label〕主要用于顯示不需要用戶修改的文本。所以，標(biāo)簽可以用來(lái)標(biāo)示窗體及窗體上的對(duì)象，如為文本框、列表框等添加描述性的文字，或者作為窗體的說(shuō)明文字。

3.3.1屬性〔1〕Caption屬性設(shè)置標(biāo)簽要顯示的內(nèi)容。它是標(biāo)簽的主要屬性?！?〕BorderStyle屬性默認(rèn)值為0，標(biāo)簽無(wú)邊框；設(shè)置為1時(shí)，標(biāo)簽有立體邊框。

〔3〕Autosize屬性該屬性用于設(shè)置標(biāo)簽是否自動(dòng)改變尺寸以適應(yīng)其內(nèi)容。設(shè)置為T(mén)rue時(shí)，隨著Caption的內(nèi)容變化，自動(dòng)調(diào)整標(biāo)簽的大小，并且不換行；設(shè)置為False時(shí)，標(biāo)簽保持設(shè)計(jì)時(shí)的大小，這時(shí)如果內(nèi)容太長(zhǎng)，只能顯示一局部。默認(rèn)值為False。

〔4〕Alignment屬性確定標(biāo)簽中內(nèi)容的對(duì)齊方式，有三種可選值：0-LeftJuseify：默認(rèn)值，左對(duì)齊。1-RightJuseify：右對(duì)齊。2-Center：居中對(duì)齊。〔5〕BackStyle屬性該屬性用于設(shè)置背景是否透明。默認(rèn)值為1，不透明；設(shè)為0時(shí)，透明。所謂透明，是指無(wú)背景色。

3.3.2事件常用Click，DbClick事件?！纠?.2】修改例3.1，在圖片上加提示信息“請(qǐng)單擊圖片〞，程序其它功能不變。程序運(yùn)行界面如圖3-2所示。

圖3-3例3.2運(yùn)行界面

操作如下：在窗體上添加一個(gè)標(biāo)簽，將其Caption屬性設(shè)置為“請(qǐng)單擊圖片〞，BackStyle屬性設(shè)置為0〔透明〕，程序代碼不變。3.4文本框文本框〔TextBox〕在窗體中為用戶提供一個(gè)既能顯示文本又能編輯文本的區(qū)域

3.4.1屬性〔1〕Text屬性設(shè)置文本框中顯示的內(nèi)容。它是文本框最主要的屬性。〔2〕Locked屬性設(shè)置文本框中的內(nèi)容是否可編輯。默認(rèn)值為False，表示可編輯，當(dāng)設(shè)置為T(mén)rue時(shí)，不可編輯，此時(shí)文本框的作用相當(dāng)于標(biāo)簽。

〔3〕Maxlength屬性設(shè)置文本框中允許輸入的最大字符數(shù)。如果輸入的字符數(shù)超過(guò)Maxlength設(shè)定的數(shù)目后，系統(tǒng)將不接受超出局部的字符，并發(fā)出嘟嘟聲。該屬性默認(rèn)值為0，表示無(wú)限制?！?〕MultiLine屬性決定文本框是否允許接收多行文本。假設(shè)設(shè)置為T(mén)rue，文本框可接收多行文本，當(dāng)輸入的文本超出文本框的邊界時(shí)，會(huì)自動(dòng)換行。默認(rèn)值為False，文本框中只能輸入一行文本。

〔5〕PassWordChar屬性當(dāng)MultiLine為False時(shí)，該屬性可設(shè)置顯示在文本框中的替代符。例如，PassWordChar設(shè)置為“*〞，那么無(wú)論用戶輸入什么字符，文本框中顯示的只是“*〞，但文本框接收的還是用戶實(shí)際輸入的字符。設(shè)置該屬性主要用于輸入口令。〔6〕ScrollBars屬性決定文本框中是否有滾動(dòng)條。只有當(dāng)MultiLine屬性為T(mén)rue時(shí)，文本框才能加滾動(dòng)條。

3.4.2事件文本框除支持Click，DbClick事件，常用的還有Change，LostFocus事件。1.Change事件當(dāng)用戶輸入新內(nèi)容，或程序?qū)ξ谋究虻腡ext屬性重新賦值，從而改變文本框的Text屬性時(shí)觸發(fā)該事件。

2.LostFocus事件當(dāng)用戶按下<Tab>鍵時(shí)光標(biāo)離開(kāi)文本框，或用鼠標(biāo)選擇其他對(duì)象時(shí)觸發(fā)該事件，稱為“失去焦點(diǎn)〞事件。焦點(diǎn)是對(duì)象接收用戶鼠標(biāo)或鍵盤(pán)輸入的能力。當(dāng)對(duì)象具有焦點(diǎn)時(shí)，可接收用戶的輸入。通常用該事件過(guò)程對(duì)文本框中的內(nèi)容進(jìn)行檢查和確認(rèn)。

3.4.3方法文本框最常用的方法是SetFocus，使用該方法可把光標(biāo)移到指定的文本框中，使之獲得焦點(diǎn)。當(dāng)使用多個(gè)文本框時(shí)，用該方法可把光標(biāo)移到所需要的的文本框中。其使用格式為：對(duì)象.SetFocus

【例3.3】程序運(yùn)行后，隨著用戶的輸入，標(biāo)簽中同步顯示出用戶對(duì)文本框的內(nèi)容更新的次數(shù)。運(yùn)行效果如圖3-4所示。

圖3-4例3.3運(yùn)行效果

〔1〕界面設(shè)計(jì)在窗體上建立一個(gè)文本框、一個(gè)標(biāo)簽。設(shè)置各對(duì)象的屬性，如表3-2所示。對(duì)象屬性設(shè)置Form1Caption文本框應(yīng)用示例Text1text空MultiLineTrueLabel1Caption空BorderStyle1Alignment2Font字體大小取二號(hào)表3-2例3.3對(duì)象屬性設(shè)置

〔2〕編寫(xiě)事件過(guò)程如下：PrivateSubText1_Change()Statici%i=i+1Label1.Caption=iEndSub3.5賦值語(yǔ)句賦值語(yǔ)句是VB程序最常用、最根本的語(yǔ)句，它能為變量提供數(shù)據(jù)。另外，假設(shè)要在程序代碼中設(shè)置對(duì)象的屬性，也是使用賦值語(yǔ)句。

賦值語(yǔ)句有兩種格式：格式1：變量名=表達(dá)式格式2：[對(duì)象名.]屬性名=表達(dá)式賦值語(yǔ)句的作用是：首先計(jì)算“=〞右邊表達(dá)式的值，然后將該值賦給“=〞左邊的變量或?qū)ο蟮膶傩浴Ｔ诟袷?中，假設(shè)對(duì)象名省略，那么默認(rèn)對(duì)象為當(dāng)前窗體。

例如：x=2'把2賦給xy=x*3'計(jì)算x*3的值，得6，把6賦給yx=x+1'計(jì)算x+1的值，得3，把3賦給xa$="Hello"'把“Hello〞賦給a$Text1.Text="你好！"'把“你好！〞賦給Text1的Text屬性

這里還要說(shuō)明一下賦值語(yǔ)句中的類型問(wèn)題。通常，在使用時(shí)應(yīng)使表達(dá)式值的類型與變量〔或?qū)ο蟮膶傩浴愁愋拖嗤?，以防止出現(xiàn)“類型不匹配〞的錯(cuò)誤。不過(guò)，某些情況下，VB容許“=〞兩邊類型不相同。

例如：dimx!,y%,z$x=“12.5〞‘把數(shù)值形式的字符串賦給數(shù)值變量y=34.24‘把單精度數(shù)賦給整型變量，此時(shí)截去小數(shù)局部z=6‘把整數(shù)賦給實(shí)型變量

以上三種情況都是賦值相容的。在賦值相容前提下，當(dāng)“=〞兩邊類型不相同時(shí)，VB自動(dòng)將表達(dá)式值的類型轉(zhuǎn)換成“=〞左邊變量〔或?qū)ο蟮膶傩浴车念愋停@種方式稱為“向左看齊〞。上例中，實(shí)際賦給x、y、z的值分別是12.5、34、6.0。

【例3.4】三角形三邊a，b，c，的長(zhǎng)，求三角形的面積，輸出三條邊長(zhǎng)及面積。

分析：應(yīng)用程序的界面應(yīng)該能讓用戶輸入三邊的長(zhǎng)，程序在接收用戶輸入的數(shù)據(jù)后，利用數(shù)學(xué)公式對(duì)數(shù)據(jù)進(jìn)行計(jì)算，并把結(jié)果輸出到屏幕上。三角形三邊a，b，c，的長(zhǎng)，求三角形的面積的公式為：

其中p=(a+b+c)/2。

〔1〕界面設(shè)計(jì)在窗體上建立五個(gè)標(biāo)簽、三個(gè)文本框和一個(gè)命令按鈕。設(shè)置各對(duì)象的屬性，如表3-3所示。

對(duì)象屬性設(shè)置Form1caption計(jì)算三角形面積Label1caption請(qǐng)輸入三邊Label2captionaLabel3captionbLabel4captioncLabel5caption空Text1text空Text2text空Text3text空Command1caption計(jì)算表3-3例3.4對(duì)象屬性設(shè)置設(shè)計(jì)完成的界面如圖3-5所示

圖3-5例3.4界面

〔2〕編寫(xiě)事件過(guò)程如下：PrivateSubCommand1_Click()Dima!,b!,c!,p!,s!a=Text1.Textb=Text2.Textc=Text3.Textp=(a+b+c)/2s=Sqr(p*(p-a)*(p-b)*(p-c))Label5.Caption=sEndSub3.6Print方法Print是輸出數(shù)據(jù)的一種重要方法。3.6.1Print的格式及功能格式：[對(duì)象名.]Print[表達(dá)式列表]。功能：在對(duì)象上輸出表達(dá)式的值。〔1〕對(duì)象名：可以是Form〔窗體〕、Debug〔立即窗口〕、Picture〔圖片框〕、Printer〔打印機(jī)〕。省略此項(xiàng)，表示在當(dāng)前窗體上輸出。

例如：Print"23*2="；23*2'在當(dāng)前窗體上輸出23*2=46Picture1.Print"Good"'在圖片框Picture1上輸出GoodPrinter.Print"Morning"'在打印機(jī)上輸出Morning

〔2〕表達(dá)式列表：是一個(gè)或多個(gè)表達(dá)式，假設(shè)為多個(gè)表達(dá)式，那么各表達(dá)式之間“，〞或“；〞隔開(kāi)。省略此項(xiàng)，那么輸出一空行?！?〕用“，〞分隔各表達(dá)式時(shí)，各項(xiàng)在以14個(gè)字符位置為單位劃分出的區(qū)段中輸出，每個(gè)區(qū)段輸出一項(xiàng)；用“；〞分隔各表達(dá)式時(shí)，各項(xiàng)按緊湊格式輸出。

〔4〕如果在語(yǔ)句行末尾有“；〞，那么下一個(gè)Print輸出的內(nèi)容，將緊跟在當(dāng)前Print輸出內(nèi)容后面；如果在語(yǔ)句行末尾有“，〞，那么下一個(gè)Print輸出的內(nèi)容，將在當(dāng)前Print輸出內(nèi)容的下一區(qū)段輸出；如果在語(yǔ)句行末尾無(wú)分隔符，那么輸出完本語(yǔ)句內(nèi)容后換行，即在新的一行輸出下一個(gè)Print的內(nèi)容。

例如：Print1；2；3Print4，5，Print6Print7，8PrintPrint9，10輸出結(jié)果為：12345678910

〔4〕定位輸出Print方法中，可以使用Tab函數(shù)對(duì)輸出項(xiàng)進(jìn)行定位。例如：PrintTab(10);"姓名";Tab(25);"年齡"那么“姓名〞和“年齡〞分別從當(dāng)前行的第10列和第25列開(kāi)始輸出。

輸出結(jié)果如下：姓名年齡在使用Tab函數(shù)時(shí)，要將輸出的內(nèi)容放在Tab函數(shù)的后面，并用“；〞隔開(kāi)。

Tab函數(shù)的格式為T(mén)ab(n)，其中n為整數(shù)表達(dá)式，用它來(lái)指定輸出的起始位置。Print方法中，還可以使用Spc函數(shù)，例如：Print"后面有8個(gè)空格"；Spc(8);"前面有8個(gè)空格"

輸出結(jié)果如下：后面有8個(gè)空格前面有8個(gè)空格Spc函數(shù)格式為Spc(n)，其中n為整數(shù)表達(dá)式，表示在下一個(gè)輸出項(xiàng)之前插入的空格數(shù)，Spc函數(shù)與各輸出項(xiàng)之間必須用“；〞隔開(kāi)。

3.6.2Cls方法格式：[對(duì)象名.]Cls功能：Cls方法去除Print方法顯示的文本或在圖片框中顯示的圖形，并把輸出位置移到對(duì)象的左上角。格式中的對(duì)象可以是窗體或圖片框，如果省略對(duì)象名，那么去除當(dāng)前窗體的顯示內(nèi)容。3.7輸入框我們知道，文本框可以接收用戶的輸入。輸入框也可以接受用戶的輸入，但是其風(fēng)格和用法有別于文本框。VB提供的InputBox函數(shù)可生成輸入框。例如：p$=InputBox〔"請(qǐng)輸入密碼"，"密碼框"〕執(zhí)行該語(yǔ)句后，屏幕上顯示如圖3-6所示的輸入框。

標(biāo)題文本區(qū)提示圖3-6輸入框

用戶可在文本區(qū)輸入數(shù)據(jù)，然后按“確定〞按鈕，函數(shù)返回值是用戶在文本區(qū)輸入數(shù)據(jù)，其類型為字符型。如果用戶然后按“取消〞按鈕，那么函數(shù)返回值是空字符串。

每執(zhí)行一次InputBox函數(shù)，用戶只能輸入一個(gè)數(shù)據(jù)，另外，輸入框的樣式是固定的，用戶不能改變。用戶能改變的是輸入框的“提示〞和“標(biāo)題〞的內(nèi)容，“提示〞和“標(biāo)題〞都是字符串表達(dá)式。

InputBox函數(shù)的一般格式：InputBox〔提示[，標(biāo)題][，缺省值][，x坐標(biāo)位置][，y坐標(biāo)位置]〕其中各參數(shù)的含義如下：“提示〞：必選項(xiàng)。字符串表達(dá)式，在對(duì)話框中作為提示信息。假設(shè)要在多行顯示提示信息，那么可以在各行之間用vbNewLine來(lái)分隔，vbNewLine是代表?yè)Q行的常量。

例如：InputBox("第一行"&vbNewLine&"第二行")“標(biāo)題〞：字符串表達(dá)式，在對(duì)話框中標(biāo)題區(qū)顯示，假設(shè)省略，那么標(biāo)題為應(yīng)用程序名。

“缺省值〞：字符串表達(dá)式，在沒(méi)有其它輸入時(shí)作為缺省值。“x坐標(biāo)位置〞、“y坐標(biāo)位置〞：整數(shù)表達(dá)式。坐標(biāo)確定對(duì)話框左上角在屏幕上的位置，屏幕左上角為坐標(biāo)原點(diǎn)，單位為T(mén)wip。1Twip==1/567厘米。

需要注意的是：各項(xiàng)參數(shù)次序必須一一對(duì)應(yīng)，除了“提示〞不能省略外，其余各項(xiàng)均可省略，但省略局部也要用逗號(hào)占位符跳過(guò)。

例如：f$=InputBox("第一行"&vbNewLine&"第二行",,"ddd",200,200)【例3.5】圓半徑，求圓周長(zhǎng)和圓面積。

對(duì)象屬性設(shè)置Form1Caption求圓周長(zhǎng)和圓面積Text1text空Text2text空Label1Caption圓周長(zhǎng)Label2Caption圓面積Command1Caption輸入半徑Command2Caption結(jié)束表3-4例3.5對(duì)象屬性設(shè)置

設(shè)計(jì)完成的界面如圖3-7所示。

圖3-7例3.5界面

〔2〕編寫(xiě)事件過(guò)程如下：PrivateSubCommand1_Click()Dimr!,c!,a!r=InputBox("請(qǐng)輸入半徑"，"輸入框")c=2*r*3.14159a=3.14159*r^2Text1.Text=cText2.Text=aEndSub

PrivateSubCommand2_Click()EndEndSub3.8消息框執(zhí)行VB提供的MsgBox函數(shù)，可以在屏幕上出現(xiàn)一個(gè)消息框，消息框通知用戶消息并等待用戶來(lái)選擇消息框中的按鈕，MsgBox函數(shù)返回一個(gè)與用戶所選按鈕相對(duì)應(yīng)的整數(shù)。

MsgBox函數(shù)的格式：MsgBox〔提示，[，按鈕數(shù)值][，標(biāo)題]〕例如：inta=MsgBox〔“密碼錯(cuò)〞，21，“密碼核對(duì)〞〕

執(zhí)行該語(yǔ)句后，屏幕上顯示如圖3-10所示的消息框。

圖3-10消息框例如

在MsgBox函數(shù)格式中，“提示〞和“標(biāo)題〞的含義同InputBox函數(shù)?！鞍粹o數(shù)值〞是三個(gè)數(shù)值之和，這三個(gè)數(shù)值分別代表鈕的數(shù)目及類型，使用的圖標(biāo)樣式，及缺省按鈕是什么。教材中表3-5，表3-6，表3-7，分別列出這三個(gè)數(shù)值的含義。

本例“按鈕數(shù)值〞21，是從上面三個(gè)表中各取一個(gè)數(shù)相加而得。注意：每個(gè)表只能取一個(gè)數(shù)。系統(tǒng)會(huì)自動(dòng)把它分解成分別屬于上面三個(gè)表中的三個(gè)值5，16，0。這種分解是唯一的。其含義是：消息框中有“×〞圖標(biāo)，有“重試〞及“取消〞兩個(gè)按鈕，缺省按鈕是“重試〞按鈕。

當(dāng)用戶單擊消息框中的一個(gè)按鈕后，消息框即從屏幕上消失。在上面的語(yǔ)句中，將函數(shù)的返回值賦給了變量inta，在程序中可引用inta作相應(yīng)的處理。

MsgBox函數(shù)的返回值是根據(jù)用戶單擊哪個(gè)按鈕而定的，見(jiàn)表3-8。通常，在程序中要根據(jù)MsgBox函數(shù)返回值的不同作不同的處理，這需要用到第四章中介紹的選擇結(jié)構(gòu)方面的知識(shí)。

MsgBox也可以寫(xiě)成語(yǔ)句形式，例如：MsgBox"密碼錯(cuò)",,"密碼核對(duì)

執(zhí)行此語(yǔ)句也產(chǎn)生一個(gè)消息框，如圖3-11所示。

圖3-11密碼核對(duì)消息MsgBox語(yǔ)句沒(méi)有返回值，因此常用于比較簡(jiǎn)單的信息提示。3.9注釋語(yǔ)句、結(jié)束語(yǔ)句3.9.1注釋語(yǔ)句為了提高程序的可讀性，通常在程序的適當(dāng)位置加上必要的注釋。在VB中用“’〞或Rem來(lái)標(biāo)識(shí)一條注釋語(yǔ)句，格式為：

’|Rem<注釋內(nèi)容>例如：Rem2006年編寫(xiě)PrivateSubForm_click()Dima$’定義一個(gè)字符串變量a="VisualBasic6.0中文版"’為變量賦值printa’打印a的內(nèi)容EndSub

3.9.2結(jié)束語(yǔ)句格式：EndEnd語(yǔ)句用來(lái)結(jié)束程序的執(zhí)行，并關(guān)閉已翻開(kāi)的文件。例如：PrivateSubCommand3_Click()EndEndSub3.10程序調(diào)試在程序中發(fā)現(xiàn)錯(cuò)誤并排除錯(cuò)誤的過(guò)程叫做程序調(diào)試。VB提供了豐富的調(diào)試手段，可以方便的跟蹤程序的運(yùn)行，排除程序錯(cuò)誤。

3.10.1程序錯(cuò)誤