VB 編程入門(mén)教程

會(huì)計(jì)學(xué)1VB編程入門(mén)教程VisualBasic程序設(shè)計(jì)教程2本章將介紹有關(guān)VB程序的構(gòu)成和數(shù)據(jù)類(lèi)型以及變量的定義和使用、表達(dá)式以及基本的輸入輸出操作。這些知識(shí)是編程的基礎(chǔ)。我們將通過(guò)簡(jiǎn)單示例的分析，幫助理解如何進(jìn)行VB編程。第1頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程3本章主要內(nèi)容:確定數(shù)據(jù)的性質(zhì)：數(shù)據(jù)類(lèi)型兩種數(shù)據(jù)表達(dá)：常量和變量算術(shù)運(yùn)算符和表達(dá)式VB編程的開(kāi)始：使用窗體賦值和輸入輸出第2頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程4

所謂編程就是針對(duì)要解決的任務(wù)，設(shè)計(jì)解決問(wèn)題的步驟，使用計(jì)算機(jī)程序設(shè)計(jì)語(yǔ)言進(jìn)行描述，最后通過(guò)編碼、測(cè)試、修改等過(guò)程實(shí)現(xiàn)編程的目的。編程有兩個(gè)方面的要求:一需要理解編程的任務(wù)并給出算法二要使用特定的計(jì)算機(jī)語(yǔ)言具體地表示這些算法。2.1概述第3頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程51．加法器界面設(shè)計(jì)2.2一個(gè)簡(jiǎn)單的加法器程序第4頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程62．編寫(xiě)程序代碼對(duì)象列表框過(guò)程列表框過(guò)程分界線程序員在此編寫(xiě)代碼光標(biāo)標(biāo)題第5頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程7PrivateSubCmdAdd_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é)束，謝謝使用")EndEndSub第6頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程8

數(shù)據(jù)是程序處理的對(duì)象。為了更好地處理各種各樣的數(shù)據(jù)，VB定義了多種數(shù)據(jù)類(lèi)型，數(shù)據(jù)類(lèi)型定義了值的范圍并確定了它能夠進(jìn)行的操作。2.3確定數(shù)據(jù)的性質(zhì)：數(shù)據(jù)類(lèi)型第7頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程9整數(shù):整型/長(zhǎng)整型字節(jié)型浮點(diǎn)型:單/雙精度貨幣型數(shù)值型數(shù)據(jù)類(lèi)型字符型邏輯型日期型對(duì)象型變體型第8頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程10

使用數(shù)值類(lèi)型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&

第9頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程11

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)

專(zhuān)門(mén)為處理貨幣而設(shè)計(jì)的數(shù)據(jù)類(lèi)型

它可最多保留小數(shù)點(diǎn)右邊4位和小數(shù)點(diǎn)左邊15位第10頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程12字符型(String)

用雙引號(hào)括起來(lái)的一串字符。例如Canton”、”1+2=?”、”GoodMorning”等

“″”稱(chēng)為起止界限符。

字符串長(zhǎng)度。分變長(zhǎng)字符串(長(zhǎng)度不固定)和定長(zhǎng)字符串(長(zhǎng)度固定)

在VB中，把漢字作為一個(gè)字符來(lái)處理。

例如：“浙江大學(xué)浙江杭州中國(guó)”

該字符串長(zhǎng)度為12，含空格

使用字符型(String)第11頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程13邏輯型與日期型邏輯型(Boolean)

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

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

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

表示日期和時(shí)間

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

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

#12/12/200511:35:35PM#第13頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程15變體型和對(duì)象引用型變體型(Variant)

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

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

第14頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程16在程序中不特別說(shuō)明時(shí)，VB會(huì)自動(dòng)將該變量默認(rèn)為Variant型變量。

例：Temp=“22”’字符串

Temp=22’數(shù)值

Temp=#01/01/2002#’日期

對(duì)象引用型型(Object)

對(duì)象引用型型數(shù)據(jù)可用來(lái)表示應(yīng)用程序中的對(duì)象第15頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程17自定義數(shù)據(jù)類(lèi)型

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

TypePay

姓名AsString*8

工號(hào)

As Long

工資As Single

EndType第16頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程18類(lèi)型名稱(chēng)字節(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.94065645841247×10-3244.94065645841247×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ù)類(lèi)型2.3確定數(shù)據(jù)的性質(zhì)：數(shù)據(jù)類(lèi)型第17頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程19類(lèi)型名稱(chēng)字節(jié)數(shù)取值范圍和有效位數(shù)貨幣型Currency8-922337203685477.5808～922337203685477.5807日期型Date8100.1.1～9999.12.31對(duì)象型Object4任何對(duì)象的引用變體型Variant若存放數(shù)值類(lèi)型數(shù)據(jù)，占16個(gè)字節(jié)，最大可達(dá)Double的范圍；若存放字符串類(lèi)型數(shù)據(jù)，字符串長(zhǎng)度與變長(zhǎng)字符串相同VisualBasic6.0的其他數(shù)據(jù)類(lèi)型第18頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程20說(shuō)明：

(1)不同類(lèi)型的數(shù)據(jù)，所占的存儲(chǔ)空間不一樣。

(2)數(shù)據(jù)的類(lèi)型可在數(shù)據(jù)之后加上一個(gè)類(lèi)型符來(lái)表示，例如，413&，86!，104.67#等。

第19頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程212.4常量與變量2.4.1常量

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

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

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

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

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

第20頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程222．字符串常量

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

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

第21頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程233．邏輯常量

就是邏輯值，True和False。

4．日期常量

表示日期和時(shí)間的常量，例如：#12-12-2005# 第22頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程242.4.2符號(hào)常量

符號(hào)常量是在程序中用符號(hào)表示的常量。符號(hào)常量定義一個(gè)符號(hào)（字符串）代表一個(gè)文字常量

格式：

[Public｜Private]Const常量名[As數(shù)據(jù)類(lèi)型]=表達(dá)式

例如：ConstPI=3.14159AsSingle

使用符號(hào)常量主要是為提高程序的可讀性。另外，如果需要進(jìn)行常數(shù)的調(diào)整，只需要在定義的地方一次性修改就可以了。

第23頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程252.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ù)的類(lèi)型。因此，VB變量由數(shù)據(jù)類(lèi)型和變量名組成。

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

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

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

（3）變量的取值和它的類(lèi)型有關(guān)，但VB能夠進(jìn)行自動(dòng)轉(zhuǎn)換。第25頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程273．給VB變量命名

應(yīng)遵守一些規(guī)則：

(1)變量名必須以字母開(kāi)頭；

(2)只能由字母、數(shù)字和下劃線組成。不能含有小數(shù)點(diǎn)、空格等字符；

(3)字符個(gè)數(shù)不得超過(guò)255個(gè)；

第26頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程28

(4)不能使用VB的關(guān)鍵字(如語(yǔ)句名、函數(shù)名等)。例如，Print、Sub、End等

(5)變量名在一個(gè)程序區(qū)域內(nèi)不能同名。

(6)不區(qū)分變量名中字母的大小寫(xiě)，一般情況下變量的第一個(gè)字母以大寫(xiě)表示。變量取名應(yīng)使用能夠望名知義的單詞或者縮寫(xiě)等，提高程序的可讀性。第27頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程294.變量的聲明變量的聲明就是向程序說(shuō)明要使用的變量。有以下2種方法(顯式聲明與隱式聲明)(1)聲明變量(顯式聲明)

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

第28頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程30(2)隱式聲明

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

OptionExplicit

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

OptionExplicitPrivateSubCmdAdd_Click()……EndSub第30頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程322.4.5VB的關(guān)鍵字

VB有許多關(guān)鍵字，也叫做保留字，它們?yōu)閂B系統(tǒng)本身所用，具有特定的含義。這些已經(jīng)被VB使用了的單詞或者縮寫(xiě)就是“關(guān)鍵字”。關(guān)鍵字不能被使用作為用戶定義的變量名，也不能被編程者重新定義使用。如我們已知的：As，Dim，Private，Sub，End，Integer，Long，String，OptionExplicit，Date，Const，……等等。第31頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程33VB有五類(lèi)表達(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)算符

第32頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程341．除法計(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é)果為2第33頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程352．取模運(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ā)生什么？）第34頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程362.5.2

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

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

同級(jí)左到右第36頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程38說(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不能寫(xiě)成ab(或a·b)

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

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

窗體的絕大多數(shù)屬性可以在屬性窗口中設(shè)置，也可以在程序代碼中設(shè)置，在程序中輸入窗體對(duì)象名稱(chēng)和“.”分割后會(huì)自動(dòng)跳出窗體的屬性和方法，在這里可以區(qū)分屬性和方法。2.6.2窗體的屬性第40頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程42窗體的常用屬性

自動(dòng)重畫(huà)窗體。如需要直接在窗體上顯示文本，選擇TrueAutoRedraw3設(shè)置窗體顯示3D效果，默認(rèn)值為1為3DAppearace2窗體名稱(chēng)（中文版使用(名稱(chēng))）?？稍诔绦蛑惺褂?，但不能設(shè)置Name1功能描述屬性名編號(hào)第41頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程43決定窗體是否響應(yīng)用戶事件(如單擊窗體)。屬性值為T(mén)rue或FalseEnabled8決定窗體的左上角設(shè)置控制菜單按鈕，選擇True或FalseControlBox7標(biāo)題。也是程序運(yùn)行后在標(biāo)題欄所顯示的內(nèi)容Caption6窗體邊框樣式。有六種選擇，只能在屬性窗口選擇BorderStyle5背景色。在屬性窗口選擇或者程序代碼設(shè)置BackColor4第42頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程44這四個(gè)屬性決定窗體的大小和位置。程序可進(jìn)行設(shè)置。Height、Width設(shè)置窗體的高度和寬度。Top為窗體到屏幕頂部的距離，Left為窗體到屏幕左邊的距離HeightWidthTopLeft11前景色。在屬性窗口選擇或者程序代碼設(shè)置ForeColor10設(shè)置窗體上對(duì)象的字體、字型、大小等?？稍诔绦蛑性O(shè)置Font9第43頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程45設(shè)置窗體運(yùn)行時(shí)的狀態(tài)，0為正常，1為最小化，2為最大化WindowState16可見(jiàn)性。默認(rèn)為T(mén)rue。False使窗體及窗體上的對(duì)象都不可見(jiàn)Visible15給窗體加載一個(gè)圖像或圖形Picture14確定窗體右上角最大化按鈕是否有效。確定窗體右上角最小化按鈕是否有效MaxButtonMinButton13指定圖標(biāo)?？梢赃x擇窗體最小化時(shí)的圖標(biāo)。選擇圖標(biāo)文件。Icon12第44頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程462.6.3窗體的方法窗體方法就是對(duì)窗體的操作行為。方法使用格式為：

Object.方法名[可選參數(shù)]Object為窗體對(duì)象的名稱(chēng)（Name），如果在當(dāng)前活動(dòng)窗體，可省略O(shè)bject或者用關(guān)鍵字Me。第45頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程471．顯示窗體方法（Show）功能：顯示窗體對(duì)象。Show方法的使用格式為：

Object.Show[Style]

使用Show方法如果沒(méi)有指定窗體名稱(chēng)，則默認(rèn)當(dāng)前活動(dòng)窗體。參數(shù)Style是一個(gè)整數(shù)，決定窗體的模式，取值0為無(wú)模式，1為有模式第46頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程482．隱藏窗體方法（Hide）功能：隱藏窗體。注意這只是不顯示窗體而不是卸載。要再次顯示窗體，使用Show方法即可。Hide方法的格式為：

Object.Hide

如果Object沒(méi)有被指定，則當(dāng)前活動(dòng)窗體被隱藏。第47頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程493．移動(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ù)單位。第48頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程504．清除窗體方法（Cls）

Cls（ClearScreen）是清除窗體上的顯示的文本和圖形。如Me.Cls為清除當(dāng)前窗體的顯示。5．打印方法（Print）

Print是在窗體上輸出文本。6．打印窗體方法（PrintForm）把整個(gè)窗體作為位圖圖像輸出到打印機(jī)。該方法使用的格式為：Object.PrintForm。第49頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程512.6.4

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

第50頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程52

這里程序就是窗體的裝載事件過(guò)程，稱(chēng)為L(zhǎng)oad過(guò)程，Load就是窗體的一個(gè)事件。窗體事件過(guò)程的一般格式為：

PrivateSubForm_事件名（參數(shù)表）

…… ‘我們?cè)谶@里編寫(xiě)處理事件的程序代碼EndSub第51頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程53窗體常用事件：1.裝載事件（Load）程序運(yùn)行時(shí)，通過(guò)Load事件把窗體裝載到內(nèi)存。2.卸載事件（Unload）窗體卸載時(shí)觸發(fā)Unload事件，使窗體從內(nèi)存中退出并從屏幕上消失。

PrivateSubForm_Unload(CancelAsInteger)第52頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程543.活動(dòng)/非活動(dòng)事件（Activate/Deactivate）

PrivateSubForm_Activate()PrivateSubForm_Deactivate()

使用Show可觸發(fā)這個(gè)活動(dòng)過(guò)程，使用Hide觸發(fā)非活動(dòng)過(guò)程。第53頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程554.重繪窗體事件（Paint/Resize）當(dāng)窗體被移動(dòng)或者改變大小時(shí)，觸發(fā)Paint事件。如果在窗體上有圖形輸出，則可以使用Paint事件過(guò)程重繪圖形。窗體改變了大小，原來(lái)窗體上的控件的布局比例發(fā)生了改變，為此可以進(jìn)入Resize事件過(guò)程重新調(diào)整控件的布局，使之適合新的窗體大小。第54頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程562.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)。第55頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程572.程序中改變對(duì)象. SetFocus

對(duì)象.LostFocus一個(gè)對(duì)象能否得到焦點(diǎn)還與對(duì)象本身、對(duì)象的其他屬性(Enabled)有關(guān)。第56頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程58計(jì)算機(jī)的工作原理：數(shù)據(jù)輸入→處理機(jī)（程序）→信息輸出在構(gòu)造一個(gè)程序時(shí)必須考慮：如何給變量賦值，如何輸入數(shù)據(jù)并如何把有關(guān)計(jì)算結(jié)果輸出。賦值就是把一個(gè)合適的值（數(shù)或字符）存入指定的變量中，而值的來(lái)源可以是程序直接產(chǎn)生，也可以是從鍵盤(pán)輸入，也可以來(lái)自其他程序的傳送或來(lái)自于文件。2.7賦值和輸入輸出第57頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程592.7.1如何進(jìn)行賦值操作賦值語(yǔ)句的格式如下：

[Let]變量名=表達(dá)式或者： 變量名=表達(dá)式例如：Sum=100 x=x+1CmdAdd.Caption=“計(jì)算”第58頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程60使用賦值語(yǔ)句要注意以下問(wèn)題：

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）字符型變量的初值為空。第59頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程614．同一個(gè)變量出現(xiàn)在賦值號(hào)的兩邊的意義不同。在右邊的變量是取出變量的值參與運(yùn)算，在左邊則是保存右邊表達(dá)式結(jié)果值。

5．一般要求變量的數(shù)據(jù)類(lèi)型和表達(dá)式的結(jié)果值的類(lèi)型一致，或者說(shuō)表達(dá)式的值能夠被所賦值的變量的類(lèi)型所接納。第60頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程62【例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

第61頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程632.7.2使用輸入對(duì)話框InputBox函數(shù)【例2-4】計(jì)算半徑為R的圓面積和周長(zhǎng)，半徑值由鍵盤(pán)輸入。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ì)話框。

第62頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程641．輸入對(duì)話框的使用InputBox函數(shù)的使用格式如下：InputBox（提示[，標(biāo)題][，默認(rèn)值][，xpos][，ypox]）它們的含義如下：（1）提示信息。這是InputBox對(duì)話框所必須的信息，也可以使用空文本，即“”。（2）標(biāo)題。這是在對(duì)話框窗口標(biāo)題欄顯示的內(nèi)容。可設(shè)置，也可以沒(méi)有標(biāo)題。第63頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程65（3）默認(rèn)值。在輸入框中的默認(rèn)輸入。系統(tǒng)默認(rèn)為空，可選。（4）xpos和ypos為對(duì)話框的左側(cè)與屏幕左邊的距離和上邊與屏幕頂部的距離值?？蛇x。

第64頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程662．在提示中使用多行文本如果提示信息比較多，可以使用ASCII控制符回車(chē)Chr（13）和換行符Chr（10）產(chǎn)生另起一行。例如：提示信息為“請(qǐng)輸入圓的半徑”+Chr（13）+Chr（10）+“使用正整數(shù)”，產(chǎn)生如圖效果第65頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程673．使用轉(zhuǎn)換函數(shù)

InputBox函數(shù)接受的是文本，也就是字符型數(shù)據(jù)，在程序中根據(jù)變量類(lèi)型不同，可以使用轉(zhuǎn)換函數(shù)。如：R=Val(InputBox("請(qǐng)輸入圓的半徑：","輸入"))這里的Val就是轉(zhuǎn)換函數(shù)，將文本類(lèi)型的數(shù)據(jù)轉(zhuǎn)換為整型數(shù)以便參加運(yùn)算。VB提供了在不同類(lèi)型數(shù)據(jù)之間的轉(zhuǎn)換。

第66頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程682.7.3使用Print方法輸出數(shù)據(jù)使用Print在對(duì)象中顯示（打?。┹敵鑫谋?。使用格式如下：

[對(duì)象名].Print[表達(dá)式][,表達(dá)式]……

1．對(duì)象名一般情況下，Print輸出到窗體或者圖片框。在本窗體中輸出，可以缺省對(duì)象名。第67頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程692．表達(dá)式

Print方法支持多個(gè)表達(dá)式的輸出，可輸出數(shù)字、文字字符、日期、邏輯值等。如果Print后面沒(méi)有任何表達(dá)式，則輸出空行（在顯示效果上相當(dāng)于回車(chē)換行）。第68頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程703．輸出格式多個(gè)表達(dá)式輸出，可以使用分號(hào)和逗號(hào)分隔。（1）逗號(hào)分隔（標(biāo)準(zhǔn)格式輸出）。逗號(hào)后的下一個(gè)表達(dá)式按照14個(gè)字符的空間分開(kāi)顯示。實(shí)際分隔位置還與所在輸出行的寬度和分隔的數(shù)目有關(guān)。（2）分號(hào)分隔（緊湊格式輸出）。后一個(gè)表達(dá)式的值接著前一個(gè)表達(dá)式的輸出。第69頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程71（3）在Print語(yǔ)句最后使用逗號(hào)或分號(hào)結(jié)束，不換行，下一個(gè)Print接著按格式輸出。（4）使用Spc()和Tab()函數(shù)，前者控制插入空格，后者確定列位置第70頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程72例：PrivateSubForm_click()Me.FontSize=16Print'空行

Print"A=";1,"B=";2Print1,2;3,4Print"A";Spc(4);"B"PrintTab(10);"B"Print"1234567890"EndSub第71頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程73

2.7.4使用消息對(duì)話框MsgBox函數(shù)MsgBox函數(shù)提供了一個(gè)顯示應(yīng)用程序運(yùn)行信息的標(biāo)準(zhǔn)途徑，如圖所示：MsgBox的格式如下：變量名=MsgBox(提示

[,對(duì)話框類(lèi)型][,對(duì)話框標(biāo)題])第72頁(yè)/共83頁(yè)VisualBasic程序設(shè)計(jì)教程74（1）使用形式:MsgBo