VB編程入門課件

第2章VB編程入門VisualBasic程序設(shè)計(jì)教程本章將介紹有關(guān)VB程序的構(gòu)成和數(shù)據(jù)類型以及變量的定義和使用、表達(dá)式以及基本的輸入輸出操作。這些知識(shí)是編程的基礎(chǔ)。我們將通過簡(jiǎn)單示例的分析，幫助理解如何進(jìn)行VB編程。2VisualBasic程序設(shè)計(jì)教程本章主要內(nèi)容:確定數(shù)據(jù)的性質(zhì)：數(shù)據(jù)類型兩種數(shù)據(jù)表達(dá)：常量和變量算術(shù)運(yùn)算符和表達(dá)式VB編程的開始：使用窗體賦值和輸入輸出3VisualBasic程序設(shè)計(jì)教程1．加法器界面設(shè)計(jì)2.2一個(gè)簡(jiǎn)單的加法器程序5VisualBasic程序設(shè)計(jì)教程2．編寫程序代碼對(duì)象列表框過程列表框過程分界線程序員在此編寫代碼光標(biāo)標(biāo)題6VisualBasic程序設(shè)計(jì)教程PrivateSubCmdAdd_Click() ‘計(jì)算”按鈕代碼DimTempAsLongTxtNum1.Text=""TxtNum2.Text=""TxtSum.Text=""TxtNum1.Text=InputBox("請(qǐng)輸入第一個(gè)數(shù)")TxtNum2.Text=InputBox("請(qǐng)輸入第二個(gè)數(shù)")Temp=Val(TxtNum1)+Val(TxtNum2)TxtSum.Text=TempEndSubPrivateSubCmdExit_Click() “退出”按鈕代碼FrmAdder1.HideMsgBox("加法器程序運(yùn)行結(jié)束，謝謝使用")EndEndSub7VisualBasic程序設(shè)計(jì)教程整數(shù):整型/長(zhǎng)整型字節(jié)型浮點(diǎn)型:單/雙精度貨幣型數(shù)值型數(shù)據(jù)類型字符型邏輯型日期型對(duì)象型變體型9VisualBasic程序設(shè)計(jì)教程

使用數(shù)值類型1.字節(jié)型(Byte)

字節(jié)型數(shù)可以表示無(wú)符號(hào)的整數(shù)，0～255

2.整型(Integer)和長(zhǎng)整型(Long)

不帶小數(shù)部分的數(shù)，表示正整數(shù)、負(fù)整數(shù)和零

整型數(shù):-32768～3276798、98％

長(zhǎng)整型數(shù)：

-2147483648～214748364745678、45678&

10VisualBasic程序設(shè)計(jì)教程

3.單精度型(Single)和雙精度型(Double)

浮點(diǎn)數(shù)。表示帶有小數(shù)部分的數(shù)

表示數(shù)的范圍大，但有誤差。

如超出某個(gè)表示范圍，則用科學(xué)記數(shù)法

例如：4.53E8(4.53×108)，8.173E-14，3.14D23

Single保留7位十進(jìn)制有效位，Double保留15位4.貨幣型(Currency)

專門為處理貨幣而設(shè)計(jì)的數(shù)據(jù)類型

它可最多保留小數(shù)點(diǎn)右邊4位和小數(shù)點(diǎn)左邊15位11VisualBasic程序設(shè)計(jì)教程邏輯型與日期型邏輯型(Boolean)

邏輯型又稱布爾型，其數(shù)據(jù)只有True(真)和False(假)兩個(gè)值邏輯值和數(shù)值類型進(jìn)行轉(zhuǎn)換的時(shí)候，它們是非對(duì)稱的：

（1）數(shù)值數(shù)據(jù)轉(zhuǎn)換為布爾值時(shí)，0對(duì)應(yīng)False，非0對(duì)應(yīng)為True

（2）布爾值轉(zhuǎn)換為數(shù)值數(shù)據(jù)時(shí)，F(xiàn)alse對(duì)應(yīng)0，True對(duì)應(yīng)為-1。13VisualBasic程序設(shè)計(jì)教程日期型(Date)

表示日期和時(shí)間

用兩個(gè)“#”符號(hào)把日期和時(shí)間的值括起來(lái)

如：#08/20/2001#、#2001-08-20#

#12/12/200511:35:35PM#14VisualBasic程序設(shè)計(jì)教程變體型和對(duì)象引用型變體型(Variant)

變體型數(shù)據(jù)是一種可變的數(shù)據(jù)類型，可以存放任何類型的數(shù)據(jù)

當(dāng)指定變量為Variant變量時(shí)，VB會(huì)自動(dòng)完成必要的轉(zhuǎn)換

15VisualBasic程序設(shè)計(jì)教程自定義數(shù)據(jù)類型

VB為用戶了提供自定義數(shù)據(jù)類型，以滿足用戶的需求。實(shí)際上自定義數(shù)據(jù)只是把VB已有的數(shù)據(jù)類型重新組合或者構(gòu)造為一個(gè)新類型。例如我們要給員工設(shè)計(jì)一個(gè)工資數(shù)據(jù)類型，這個(gè)類型中有姓名、工號(hào)和工資數(shù)，可以使用以下方法定義：

TypePay

姓名AsString*8

工號(hào)

As Long

工資As Single

EndType17VisualBasic程序設(shè)計(jì)教程類型名稱字節(jié)數(shù)取值范圍和有效位數(shù)整型Integer2精確表示-32768～32767范圍內(nèi)的整數(shù)長(zhǎng)整型Long4精確表示-2147483648～2147483647范圍內(nèi)的整數(shù)單精度浮點(diǎn)型Single4-3.402823×1038～-1.401298×10-451.401298×10-45～3.402823×10386位有效位數(shù)雙精度浮點(diǎn)型Double8-1.79769313486232×10308～-4.947×10-3244.947×10-324～1.79769313486232×1030815位有效位數(shù)字節(jié)型Byte10～255變長(zhǎng)字符串String每個(gè)字符占1個(gè)字節(jié)，每個(gè)字符串最多可存放約20億個(gè)字符定長(zhǎng)字符串String*sizesize是小于65535的無(wú)符號(hào)整常數(shù)，為字符串長(zhǎng)度邏輯型Boolean2True或FalseVisualBasic6.0的常用數(shù)據(jù)類型2.3確定數(shù)據(jù)的性質(zhì)：數(shù)據(jù)類型18VisualBasic程序設(shè)計(jì)教程類型名稱字節(jié)數(shù)取值范圍和有效位數(shù)貨幣型Currency8-922337203685477.5808～922337203685477.5807日期型Date8100.1.1～9999.12.31對(duì)象型Object4任何對(duì)象的引用變體型Variant若存放數(shù)值類型數(shù)據(jù)，占16個(gè)字節(jié)，最大可達(dá)Double的范圍；若存放字符串類型數(shù)據(jù)，字符串長(zhǎng)度與變長(zhǎng)字符串相同VisualBasic6.0的其他數(shù)據(jù)類型19VisualBasic程序設(shè)計(jì)教程2.4常量與變量2.4.1常量

在程序運(yùn)行期間其值始終保持不變的量

兩種形式的常量：文字常量和符號(hào)常量

文字常量又分為數(shù)值常量、字符串、邏輯值和日期等

1．?dāng)?shù)值常量

例如2，35.567，它們直接出現(xiàn)在程序中。

21VisualBasic程序設(shè)計(jì)教程

2．字符串常量

它是用雙引號(hào)括起來(lái)的各種有效字符串組成的，如“123“，“AbcD“，“程序設(shè)計(jì)“等。字符串可以為空。

字符串常量的長(zhǎng)度為兩個(gè)引號(hào)之間所有的字符數(shù)，包括空格。VB規(guī)定定長(zhǎng)字符串最大長(zhǎng)度為32767。

22VisualBasic程序設(shè)計(jì)教程3．邏輯常量

就是邏輯值，True和False。

4．日期常量

表示日期和時(shí)間的常量，例如：#12-12-2005# 23VisualBasic程序設(shè)計(jì)教程2.4.3變量和聲明變量

1．變量是什么

變量是在程序運(yùn)行期間其值可以發(fā)生變化的量。

在程序運(yùn)行時(shí)，數(shù)據(jù)是存放在內(nèi)存中的。因此變量就是指示程序?qū)⒌侥膫€(gè)內(nèi)存單元去存取數(shù)據(jù)，即變量與內(nèi)存單元有關(guān)。使用變量名標(biāo)識(shí)不同的變量，同時(shí)要給出變量數(shù)據(jù)的類型。因此，VB變量由數(shù)據(jù)類型和變量名組成。

程序中選擇使用常量還是變量，是根據(jù)它們是否需要變化而決定的。25VisualBasic程序設(shè)計(jì)教程2．VB變量的特點(diǎn)

（1）可變性。向變量存數(shù)據(jù)，會(huì)改變變量原來(lái)的值。

（2）從變量中取數(shù)據(jù)，變量中原來(lái)的值不會(huì)改變，因此在程序中，一個(gè)變量的值可以被反復(fù)取用而不會(huì)導(dǎo)致數(shù)據(jù)的改變，“取之不盡”。這是變量的可復(fù)制性。

（3）變量的取值和它的類型有關(guān)，但VB能夠進(jìn)行自動(dòng)轉(zhuǎn)換。26VisualBasic程序設(shè)計(jì)教程4.變量的聲明變量的聲明就是向程序說(shuō)明要使用的變量。有以下2種方法(顯式聲明與隱式聲明)(1)聲明變量(顯式聲明)

用Dim、Public、Private或Static語(yǔ)句來(lái)聲明變量例如：DimsumAsInteger′把sum定義為整型變量

29VisualBasic程序設(shè)計(jì)教程(2)隱式聲明

不加說(shuō)明就直接使用變量，此時(shí)默認(rèn)的變量類型為變體類型(Variant)也允許使用類型符來(lái)聲明變量的類型，如Num%，Sum!(3)定義多個(gè)變量30VisualBasic程序設(shè)計(jì)教程2.4.4強(qiáng)制要求必須聲明變量：OptionExplicit

OptionExplicit一般情況下，該語(yǔ)句放置在程序模塊的外部開始部分，強(qiáng)制要求所有變量必須顯式聲明后才能使用。

OptionExplicitPrivateSubCmdAdd_Click()……EndSub31VisualBasic程序設(shè)計(jì)教程2.4.5VB的關(guān)鍵字VB有許多關(guān)鍵字，也叫做保留字，它們?yōu)閂B系統(tǒng)本身所用，具有特定的含義。這些已經(jīng)被VB使用了的單詞或者縮寫就是“關(guān)鍵字”。關(guān)鍵字不能被使用作為用戶定義的變量名，也不能被編程者重新定義使用。如我們已知的：As，Dim，Private，Sub，End，Integer，Long，String，OptionExplicit，Date，Const，……等等。32VisualBasic程序設(shè)計(jì)教程VB有五類表達(dá)式：算術(shù)表達(dá)式、字符串表達(dá)式、日期表達(dá)式、關(guān)系表達(dá)式和邏輯表達(dá)式運(yùn)算符說(shuō)明運(yùn)算符說(shuō)明+加法\整數(shù)除法－減法^冪*乘法Mod求模/浮點(diǎn)數(shù)除法－取負(fù)2.5算術(shù)運(yùn)算符和表達(dá)式算術(shù)運(yùn)算符

33VisualBasic程序設(shè)計(jì)教程1．除法計(jì)算機(jī)使用“/”和“\”代表數(shù)學(xué)中的除號(hào)?！?”用于浮點(diǎn)數(shù)除，它將產(chǎn)生一個(gè)有小數(shù)部分的商。而“\”則是整數(shù)除法，它在進(jìn)行除之前先將運(yùn)算數(shù)四舍五入，結(jié)果為丟掉小數(shù)部分取其整數(shù)部分。注意下面的幾個(gè)例子： 3/2 結(jié)果為1.5 3\2 結(jié)果為1 3.5\2 結(jié)果為234VisualBasic程序設(shè)計(jì)教程2．取模運(yùn)算Mod取模運(yùn)算是取整除后余數(shù)的整數(shù)部分。VB支持整數(shù)和帶小數(shù)的數(shù)的取模運(yùn)算。如果是帶小數(shù)的，則在運(yùn)算前進(jìn)行四舍五入操作。注意下面的例子：

13Mod3結(jié)果為1，即余數(shù)為1 3.5Mod2結(jié)果為0。先將3.5四舍五入為4，除2的余數(shù)為0 7Mod2.6結(jié)果為1 5Mod0.49 除數(shù)為0錯(cuò)誤（如果你把0.49改為0.5和0.51，試試看會(huì)發(fā)生什么？）35VisualBasic程序設(shè)計(jì)教程2.5.2

算術(shù)表達(dá)式算術(shù)表達(dá)式也稱數(shù)值表達(dá)式，是用算術(shù)運(yùn)算符把數(shù)值型常量、變量、函數(shù)連接起來(lái)的式子。表達(dá)式的運(yùn)算結(jié)果是一個(gè)數(shù)值例如：(A1＋B1/3－X\0.5)*Sin(X) 36VisualBasic程序設(shè)計(jì)教程2.5.3算術(shù)運(yùn)算符的優(yōu)先規(guī)則運(yùn)算符優(yōu)先級(jí)

^(乘方)→-(求負(fù))→*/→\→Mod→+-

同級(jí)左到右37VisualBasic程序設(shè)計(jì)教程說(shuō)明：(1)/和＼的區(qū)別：1/2=0.5，1＼2=0

(2)Mod用來(lái)求整型數(shù)除法的余數(shù)。例如：9Mod7結(jié)果為2

(3)在表達(dá)式中乘號(hào)不能省略，如a*b不能寫成ab(或a·b)

(4)括號(hào)不分大、中、小，一律采用圓括號(hào)?？梢郧短资褂?/p>

例如，x[x(x+1)+1]→x*(x*(x+1)+1)38VisualBasic程序設(shè)計(jì)教程窗體是我們進(jìn)入VB編程所遇到的第一個(gè)對(duì)象，它是進(jìn)行程序界面設(shè)計(jì)的基礎(chǔ)平臺(tái)。在程序運(yùn)行時(shí)它就是程序的實(shí)際窗口。使用窗體的“屬性”定義窗體的外觀使用窗體的“方法”定義窗體的行為使用窗體的“事件”定義與用戶之間的交互因此了解窗體（包括后續(xù)的控件等對(duì)象），就是圍繞它的屬性、方法和事件展開。這也是學(xué)習(xí)VB對(duì)象編程的主要思路。2.6VB編程的開始：使用窗體39VisualBasic程序設(shè)計(jì)教程‘程序入口：開始裝載窗體‘設(shè)置窗體顯示功能‘設(shè)置窗體的背景色為綠色‘設(shè)置窗體的前景色為紅色‘設(shè)置窗體上對(duì)象的字體為黑‘使用字號(hào)為15磅‘換行‘顯示W(wǎng)elcomeToTheVisualBasic‘顯示ThisisaDemoProgram‘結(jié)束裝載過程PrivateSubForm_Load() ShowForm1.BackColor=vbGreenForm1.ForeColor=vbRedForm1.FontName="黑體"Form1.FontSize=15PrintPrint"WelcomeToTheVisualBasic"Print"ThisisaDemoProgram"EndSub2.6.1一個(gè)使用窗體顯示文本的例子40VisualBasic程序設(shè)計(jì)教程窗體的絕大多數(shù)屬性可以在屬性窗口中設(shè)置，也可以在程序代碼中設(shè)置，在程序中輸入窗體對(duì)象名稱和“.”分割后會(huì)自動(dòng)跳出窗體的屬性和方法，在這里可以區(qū)分屬性和方法。2.6.2窗體的屬性41VisualBasic程序設(shè)計(jì)教程窗體的常用屬性

自動(dòng)重畫窗體。如需要直接在窗體上顯示文本，選擇TrueAutoRedraw3設(shè)置窗體顯示3D效果，默認(rèn)值為1為3DAppearace2窗體名稱（中文版使用(名稱)）?？稍诔绦蛑惺褂?，但不能設(shè)置Name1功能描述屬性名編號(hào)42VisualBasic程序設(shè)計(jì)教程決定窗體是否響應(yīng)用戶事件(如單擊窗體)。屬性值為True或FalseEnabled8決定窗體的左上角設(shè)置控制菜單按鈕，選擇True或FalseControlBox7標(biāo)題。也是程序運(yùn)行后在標(biāo)題欄所顯示的內(nèi)容Caption6窗體邊框樣式。有六種選擇，只能在屬性窗口選擇BorderStyle5背景色。在屬性窗口選擇或者程序代碼設(shè)置BackColor443VisualBasic程序設(shè)計(jì)教程這四個(gè)屬性決定窗體的大小和位置。程序可進(jìn)行設(shè)置。Height、Width設(shè)置窗體的高度和寬度。Top為窗體到屏幕頂部的距離，Left為窗體到屏幕左邊的距離HeightWidthTopLeft11前景色。在屬性窗口選擇或者程序代碼設(shè)置ForeColor10設(shè)置窗體上對(duì)象的字體、字型、大小等?？稍诔绦蛑性O(shè)置Font944VisualBasic程序設(shè)計(jì)教程設(shè)置窗體運(yùn)行時(shí)的狀態(tài)，0為正常，1為最小化，2為最大化WindowState16可見性。默認(rèn)為True。False使窗體及窗體上的對(duì)象都不可見Visible15給窗體加載一個(gè)圖像或圖形Picture14確定窗體右上角最大化按鈕是否有效。確定窗體右上角最小化按鈕是否有效MaxButtonMinButton13指定圖標(biāo)?？梢赃x擇窗體最小化時(shí)的圖標(biāo)。選擇圖標(biāo)文件。Icon1245VisualBasic程序設(shè)計(jì)教程2.6.3窗體的方法窗體方法就是對(duì)窗體的操作行為。方法使用格式為：Object.方法名[可選參數(shù)]Object為窗體對(duì)象的名稱（Name），如果在當(dāng)前活動(dòng)窗體，可省略O(shè)bject或者用關(guān)鍵字Me。46VisualBasic程序設(shè)計(jì)教程1．顯示窗體方法（Show）功能：顯示窗體對(duì)象。Show方法的使用格式為：Object.Show[Style]使用Show方法如果沒有指定窗體名稱，則默認(rèn)當(dāng)前活動(dòng)窗體。參數(shù)Style是一個(gè)整數(shù)，決定窗體的模式，取值0為無(wú)模式，1為有模式47VisualBasic程序設(shè)計(jì)教程2．隱藏窗體方法（Hide）功能：隱藏窗體。注意這只是不顯示窗體而不是卸載。要再次顯示窗體，使用Show方法即可。Hide方法的格式為：Object.Hide如果Object沒有被指定，則當(dāng)前活動(dòng)窗體被隱藏。48VisualBasic程序設(shè)計(jì)教程3．移動(dòng)窗體方法（Move）Move方法可以移動(dòng)或者改變窗體的大小。使用格式為：[Object].MoveLeft，[Top]，[Width]，[Height]其中，Left是必選參數(shù)，Top是可選參數(shù)，分別代表窗體的x,y方向的坐標(biāo)。Width和Height為窗體移動(dòng)到新位置后的高度和寬度。坐標(biāo)參數(shù)的單位默認(rèn)為緹（Twip，1/1440英寸）?？稍诖绑w屬性ScaleMode中選擇參數(shù)單位。49VisualBasic程序設(shè)計(jì)教程4．清除窗體方法（Cls） Cls（ClearScreen）是清除窗體上的顯示的文本和圖形。如Me.Cls為清除當(dāng)前窗體的顯示。5．打印方法（Print） Print是在窗體上輸出文本。6．打印窗體方法（PrintForm）把整個(gè)窗體作為位圖圖像輸出到打印機(jī)。該方法使用的格式為：Object.PrintForm。50VisualBasic程序設(shè)計(jì)教程2.6.4

窗體識(shí)別的動(dòng)作：事件在窗體中使用某種事件觸發(fā)一個(gè)過程，以便完成某個(gè)任務(wù)，因此我們也叫它為事件過程。例如：PrivateSubForm_Load()……EndSub

51VisualBasic程序設(shè)計(jì)教程這里程序就是窗體的裝載事件過程，稱為L(zhǎng)oad過程，Load就是窗體的一個(gè)事件。窗體事件過程的一般格式為：PrivateSubForm_事件名（參數(shù)表）…… ‘我們?cè)谶@里編寫處理事件的程序代碼EndSub52VisualBasic程序設(shè)計(jì)教程窗體常用事件：1.裝載事件（Load）程序運(yùn)行時(shí)，通過Load事件把窗體裝載到內(nèi)存。2.卸載事件（Unload）窗體卸載時(shí)觸發(fā)Unload事件，使窗體從內(nèi)存中退出并從屏幕上消失。PrivateSubForm_Unload(CancelAsInteger)53VisualBasic程序設(shè)計(jì)教程3.活動(dòng)/非活動(dòng)事件（Activate/Deactivate）PrivateSubForm_Activate()PrivateSubForm_Deactivate()使用Show可觸發(fā)這個(gè)活動(dòng)過程，使用Hide觸發(fā)非活動(dòng)過程。54VisualBasic程序設(shè)計(jì)教程4.重繪窗體事件（Paint/Resize）當(dāng)窗體被移動(dòng)或者改變大小時(shí)，觸發(fā)Paint事件。如果在窗體上有圖形輸出，則可以使用Paint事件過程重繪圖形。窗體改變了大小，原來(lái)窗體上的控件的布局比例發(fā)生了改變，為此可以進(jìn)入Resize事件過程重新調(diào)整控件的布局，使之適合新的窗體大小。55VisualBasic程序設(shè)計(jì)教程2.6.6Tab鍵和焦點(diǎn)焦點(diǎn)——對(duì)象的活動(dòng)狀態(tài)。改變對(duì)象焦點(diǎn)的方法：1.使用鼠標(biāo)點(diǎn)擊或者使用Tab鍵使用Tab鍵焦點(diǎn)的移動(dòng)次序與對(duì)象的Tabindex屬性有關(guān)。56VisualBasic程序設(shè)計(jì)教程2.程序中改變對(duì)象. SetFocus對(duì)象.LostFocus一個(gè)對(duì)象能否得到焦點(diǎn)還與對(duì)象本身、對(duì)象的其他屬性(Enabled)有關(guān)。57VisualBasic程序設(shè)計(jì)教程計(jì)算機(jī)的工作原理：數(shù)據(jù)輸入→處理機(jī)（程序）→信息輸出在構(gòu)造一個(gè)程序時(shí)必須考慮：如何給變量賦值，如何輸入數(shù)據(jù)并如何把有關(guān)計(jì)算結(jié)果輸出。賦值就是把一個(gè)合適的值（數(shù)或字符）存入指定的變量中，而值的來(lái)源可以是程序直接產(chǎn)生，也可以是從鍵盤輸入，也可以來(lái)自其他程序的傳送或來(lái)自于文件。2.7賦值和輸入輸出58VisualBasic程序設(shè)計(jì)教程2.7.1如何進(jìn)行賦值操作賦值語(yǔ)句的格式如下： [Let]變量名=表達(dá)式或者： 變量名=表達(dá)式例如：Sum=100 x=x+1CmdAdd.Caption=“計(jì)算”59VisualBasic程序設(shè)計(jì)教程使用賦值語(yǔ)句要注意以下問題：1．“=”不是數(shù)學(xué)中的等號(hào)的意思，是一個(gè)賦值的運(yùn)算符，叫做賦值號(hào)。2．對(duì)變量的賦值后，以新值代替了原來(lái)的值。3．在表達(dá)式中的變量應(yīng)先賦值。如果是首次直接被用在表達(dá)式中，則VB自動(dòng)賦初值：（1）如果是數(shù)值型變量，則自動(dòng)賦初值為0。（2）字符型變量的初值為空。60VisualBasic程序設(shè)計(jì)教程4．同一個(gè)變量出現(xiàn)在賦值號(hào)的兩邊的意義不同。在右邊的變量是取出變量的值參與運(yùn)算，在左邊則是保存右邊表達(dá)式結(jié)果值。5．一般要求變量的數(shù)據(jù)類型和表達(dá)式的結(jié)果值的類型一致，或者說(shuō)表達(dá)式的值能夠被所賦值的變量的類型所接納。61VisualBasic程序設(shè)計(jì)教程【例2-3】計(jì)算半徑為5的圓面積和圓周長(zhǎng)。PrivateSubForm_Click() ConstPI=3.141526 '定義常量π DimRAsinteger,AreaAsSingle,PerimeterAsSingle'定義變量 R=5 '給半徑變量賦值 Area=PI*R*R '計(jì)算后的面積值賦給變量Area Perimeter=2*PI*R '周長(zhǎng)值賦給變量ParimeterPrint“半徑＝”;R,”面積”;Area,”周長(zhǎng)”;Perimeter '輸出半徑、面積。周長(zhǎng)EndSub

62VisualBasic程序設(shè)計(jì)教程2.7.2使用輸入對(duì)話框InputBox函數(shù)【例2-4】計(jì)算半徑為R的圓面積和周長(zhǎng)，半徑值由鍵盤輸入。PrivateSubForm_Click()ConstPI=3.141526DimRAsInteger,AreaAsSingle,PerimeterAsSingleR=Val(InputBox("請(qǐng)輸入圓的半徑：","輸入"))Area=PI*R*RPerimeter=2*PI*RPrint"半徑＝";R,"面積";Area,"周長(zhǎng)";PerimeterEndSub

這個(gè)例子中使用了InputBox函數(shù)產(chǎn)生輸入對(duì)話框。63VisualBasic程序設(shè)計(jì)教程1．輸入對(duì)話框的使用InputBox函數(shù)的使用格式如下：InputBox（提示[，標(biāo)題][，默認(rèn)值][，xpos][，ypox]）它們的含義如下：（1）提示信息。這是InputBox對(duì)話框所必須的信息，也可以使用空文本，即“”。（2）標(biāo)題。這是在對(duì)話框窗口標(biāo)題欄顯示的內(nèi)容?？稍O(shè)置，也可以沒有標(biāo)題。64VisualBasic程序設(shè)計(jì)教程（3）默認(rèn)值。在輸入框中的默認(rèn)輸入。系統(tǒng)默認(rèn)為空，可選。（4）xpos和ypos為對(duì)話框的左側(cè)與屏幕左邊的距離和上邊與屏幕頂部的距離值?？蛇x。65VisualBasic程序設(shè)計(jì)教程2．在提示中使用多行文本如果提示信息比較多，可以使用ASCII控制符回車Chr（13）和換行符Chr（10）產(chǎn)生另起一行。例如：提示信息為“請(qǐng)輸入圓的半徑”+Chr（13）+Chr（10）+“使用正整數(shù)”，產(chǎn)生如圖效果66VisualBasic程序設(shè)計(jì)教程3．使用轉(zhuǎn)換函數(shù)InputBox函數(shù)接受的是文本，也就是字符型數(shù)據(jù)，在程序中根據(jù)變量類型不同，可以使用轉(zhuǎn)換函數(shù)。如：R=Val(InputBox("請(qǐng)輸入圓的半徑：","輸入"))這里的Val就是轉(zhuǎn)換函數(shù)，將文本類型的數(shù)據(jù)轉(zhuǎn)換為整型數(shù)以便參加運(yùn)算。VB提供了在不同類型數(shù)據(jù)之間的轉(zhuǎn)換。67VisualBasic程序設(shè)計(jì)教程2.7.3使用Print方法輸出數(shù)據(jù)使用Print在對(duì)象中顯示（打印）輸出文本。使用格式如下：

[對(duì)象名].Print[表達(dá)式][,表達(dá)式]……1．對(duì)象名一般情況下，Print輸出到窗體或者圖片框。在本窗體中輸出，可以缺省對(duì)象名。68VisualBasic程序設(shè)計(jì)教程2．表達(dá)式Print方法支持多個(gè)表達(dá)式的輸出，可輸出數(shù)字、文字字符、日期、邏輯值等。如果Print后面沒有任何表達(dá)式，則輸出空行（在顯示效果上相當(dāng)于回車換行）。69VisualBasic程序設(shè)計(jì)教程3．輸出格式多個(gè)表達(dá)式輸出，可以使用分號(hào)和逗號(hào)分隔。（1）逗號(hào)分隔（標(biāo)準(zhǔn)格式輸出）。逗號(hào)后的下一個(gè)表達(dá)式按照14個(gè)字符的空間分開顯示。實(shí)際分隔位置還與所在輸出行的寬度和分隔的數(shù)目有關(guān)。（2）分號(hào)分隔（緊湊格式輸出）。后一個(gè)表達(dá)式的值接著前一個(gè)表達(dá)式的輸出。70VisualBasic程序設(shè)計(jì)教程（3）在Print語(yǔ)句最后使用逗號(hào)或分號(hào)結(jié)束，不換行，下一個(gè)Print接著按格式輸出。（4）使用Spc()和Tab()函數(shù)，前者控制插入空格，后者確定列位置71VisualBasic程序設(shè)計(jì)教程例：PrivateSubForm_click()Me.FontSize=16Print'空行Print"A=";1,"B=";2Print1,2;3,4Print"A";Spc(4);"B"PrintTab(10);"B"Print"1234567890"EndSub72VisualBasic程序設(shè)計(jì)教程

2.7.4使用消息對(duì)話框MsgBox函數(shù)MsgBox函數(shù)提供了一個(gè)顯示應(yīng)用程序運(yùn)行信息的標(biāo)準(zhǔn)途徑，如圖所示：MsgBox的格式如下：變量名=MsgBox(提示[,對(duì)話框類型][,對(duì)話框標(biāo)題])73VisualBasic程序設(shè)計(jì)教程（1）使用形式:MsgBox有兩種使用形式，注意區(qū)分，如：A=MsgBox("您確定要退出嗎？",vbOKCancel+vbDefaultButton2,"退出")和MsgBox"您確定要退出嗎？",vbOKCancel+vbDefaultButton2,"退出“

格式1是具有返回值的使用，程序根據(jù)