本章內(nèi)容4.1VB程序代碼的組織方式4.2代碼行的書(shū)寫(xiě)規(guī)則4.3VB的數(shù)據(jù)4.4運(yùn)算符與表達(dá)式4.5賦值語(yǔ)句4.6VB的公共函數(shù)4.7Inputbox函數(shù)與Msgbox函數(shù)4.1VB程序代碼的組織方式4.1.1過(guò)程4.1.2模塊4.1VB程序代碼的組織方式一個(gè)VB程序由兩部分組成：窗體界面設(shè)計(jì)程序代碼設(shè)計(jì)這兩部分的關(guān)系：程序代碼的設(shè)計(jì)為了將窗體界面上的控件聯(lián)系在一起。過(guò)程：具有特定書(shū)寫(xiě)格式，包含若干可被作為一個(gè)整體執(zhí)行的代碼行的一個(gè)代碼組。過(guò)程

根據(jù)執(zhí)行的方式,過(guò)程可分為事件過(guò)程和通用過(guò)程.事件過(guò)程：用來(lái)響應(yīng)由用戶或系統(tǒng)引發(fā)的各種事件的代碼行。通用過(guò)程：可被共享的代碼。模塊：窗體模塊，標(biāo)準(zhǔn)模塊，類模塊窗體模塊：每個(gè)窗體都對(duì)應(yīng)一個(gè)窗體模塊。包括：窗體的事件過(guò)程窗體和控件的屬性及說(shuō)明僅供本窗體中的過(guò)程共享的通用過(guò)程存儲(chǔ)在窗體文件frm中標(biāo)準(zhǔn)模塊：可被多個(gè)窗體共享的代碼保存的過(guò)程都是通用過(guò)程存儲(chǔ)在bas文件中不限于一個(gè)應(yīng)用程序，還可供其它應(yīng)用程序重復(fù)使用。類模塊4.2VB程序的書(shū)寫(xiě)規(guī)則語(yǔ)句是構(gòu)成VB程序的最基本成分一句一行一行多句，行間加“：”一句多行在行尾加續(xù)行標(biāo)志“

_”（空格加下劃線）。不區(qū)分大小寫(xiě)，保留字第一個(gè)字母自動(dòng)變?yōu)榇髮?xiě)注釋的方法：Rem或‘（半角，英文狀態(tài)下）4.3數(shù)據(jù)類型數(shù)據(jù)是程序處理的對(duì)象不同類型的數(shù)據(jù)表示不同的對(duì)象=①數(shù)值數(shù)據(jù)類型：包括整型、長(zhǎng)整型、單精度浮點(diǎn)型、雙精度浮點(diǎn)型和貨幣型②字符數(shù)據(jù)類型：包括定長(zhǎng)字符串和不定長(zhǎng)字符③其它數(shù)據(jù)類型：包括字節(jié)型、布爾型、日期型和對(duì)象類型④變體數(shù)據(jù)類型4.3.1數(shù)據(jù)類型表4-1VB支持的數(shù)據(jù)類型主要分為：要合理定義數(shù)據(jù)類型注意：1.VB中對(duì)沒(méi)有聲明的變量其缺省的數(shù)據(jù)類型是變體型，可以用來(lái)存儲(chǔ)各種數(shù)據(jù)，但所占用的內(nèi)存比其它類型都多（>=16byte）。2.為提高運(yùn)行效率(整型效率較高)，或達(dá)到一定的運(yùn)算精確度（浮點(diǎn)型精度較高，但運(yùn)行較慢），應(yīng)合理的定義數(shù)據(jù)類型。

4.3.2常量

在程序運(yùn)行過(guò)程中，其值始終不改變的量稱為常量。在VB中有3類常量：普通常量符號(hào)常量系統(tǒng)常量一、普通常量

1．

整型常量

（1）整型（Integer）：表示-32768至32767之間的整數(shù)例如：1011020

（2）長(zhǎng)整型（Long）：表示-2,147,483,648至2,147,483,647之間的整數(shù)例如：長(zhǎng)整型常數(shù)的書(shū)寫(xiě)：23&

整型常數(shù)的3種形式：

1）十進(jìn)制整數(shù)。如125，0，-89。202）八進(jìn)制整數(shù)。以&或&O（字母O）開(kāi)頭的整數(shù)是八進(jìn)制整數(shù)，如&O25表示八進(jìn)制整數(shù)25，等于十進(jìn)制數(shù)21。3）十六進(jìn)制。以&H開(kāi)頭的整數(shù)是十六進(jìn)制整數(shù)，如&H25表示十六進(jìn)制整數(shù)25。2、實(shí)數(shù)1）單精度實(shí)型（Single）：有效數(shù)為7位2）雙精度實(shí)型（Double）：有效數(shù)為15位實(shí)數(shù)常量的表示：1）十進(jìn)制小數(shù)形式：它是由正負(fù)號(hào)（+，-）、數(shù)字（0-9）和小數(shù)點(diǎn)（.）或類型符號(hào)（！、#）組成，例：0.123、123！、123#等2）指數(shù)形式：例：1.25E+3和1.25D+3相當(dāng)于1250.0或者1.25×103。3、字符串常量字符串常量是用雙引號(hào)""括起的一串字符，可以是所有西文字符和漢字、標(biāo)點(diǎn)符號(hào)等；例如："ABC"，"abcdefg"，"123"，"0"，"VB程序設(shè)計(jì)"等。注意：（1）""表示空字符串，而""表示有一個(gè)空格的字符串；4、邏輯（Boolean）數(shù)據(jù)類型只有兩個(gè)值True，或False。5、日期常量日期（Date）型常量用＃括起來(lái)。例：#09/02/99#、

#January4,1989#，

#2002-5-414:30:00PM#二、符號(hào)常量用符號(hào)表示的常量。符號(hào)常量的使用提高了程序的可讀性。符號(hào)常量的聲明格式：

[public|private]Const常量名

[As類型]=數(shù)值

或：[public|private]Const常量名

[類型符號(hào)]=數(shù)值例如：

ConstPIAsDouble=3.1415926535等價(jià)于：

ConstPI#=3.1415926535Const

MAXAsInteger=&O144

’聲明了常量MAX，代表八進(jìn)制數(shù)144，整型

★注意事項(xiàng)：1.Public選項(xiàng)只能用在標(biāo)準(zhǔn)模塊中，用以說(shuō)明可在整個(gè)應(yīng)用程序中使用的常量；private選項(xiàng)則可用于在窗體模塊范圍內(nèi)使用的常量。2.只有省略Public

和private

的Const

語(yǔ)句才能出現(xiàn)在過(guò)程中。

使用const語(yǔ)句定義的常量名命名規(guī)則是：

1、不超過(guò)255個(gè)字符;2、只能由字母、數(shù)字和下劃線組成并且首字符必須是字母的字符串;3、常量中字母不區(qū)分大小寫(xiě)。符號(hào)常量的應(yīng)用實(shí)例Text1.ForeColor=vbRed

這里的vbRed就是系統(tǒng)常量。三、系統(tǒng)常量

視圖—對(duì)象瀏覽器--VBA4.3.3變量

變量是指在程序運(yùn)行過(guò)程中其值可以改變的量。在程序的運(yùn)行過(guò)程中，變量用來(lái)臨時(shí)存儲(chǔ)程序中的數(shù)據(jù)。一個(gè)變量必須有一個(gè)唯一的變量名和相應(yīng)的數(shù)據(jù)類型。通過(guò)變量名來(lái)引用一個(gè)變量，數(shù)據(jù)類型則決定了該變量的存儲(chǔ)方式和在內(nèi)存中占據(jù)存儲(chǔ)單元的大小。1.變量名的命名規(guī)則只能由字母、數(shù)字和下劃線組成，首字符必須是字母長(zhǎng)度不超過(guò)255個(gè)字符在作用域內(nèi)必須唯一不得包括點(diǎn)號(hào)和用于類型說(shuō)明的字符：%&?。＃馈绮坏檬褂孟到y(tǒng)保留字區(qū)別作用范圍作用范圍定義方法定義位置局部變量當(dāng)前過(guò)程Dim|Static在過(guò)程內(nèi)窗體/模塊變量當(dāng)前窗體或模塊中的所有過(guò)程Private|Dim在窗體或模塊的聲明部分全局變量工程內(nèi)的所有過(guò)程Public在窗體或模塊的聲明部分例2.變量的作用域與變量說(shuō)明語(yǔ)句2.變量的作用域與變量說(shuō)明語(yǔ)句變量的定義語(yǔ)句格式為：Dim

<變量名1>

[As<類型1>][,<變量名2[As<類型2>]]……PrivatePublicStatic例如: DimabAsinteger,sumAssingle

或Dimab%,sum!

注意：定義一個(gè)變量后，如果用戶不給賦值，系統(tǒng)會(huì)自動(dòng)為該變量賦予一個(gè)初始值數(shù)值型：0

字符串：空串（””）邏輯性：False類型問(wèn)題

在變量的類型說(shuō)明語(yǔ)句中，必須對(duì)每個(gè)需要說(shuō)明的變量逐個(gè)使用AsType說(shuō)明其類型DimxAsinteger

如果未說(shuō)明，則按變體型處理

Dima,bAsInteger表4-4字符串問(wèn)題

字符串的類型為string，既可是定長(zhǎng)，也可是變長(zhǎng)，如何區(qū)分？缺省為變長(zhǎng)也可以設(shè)置為定長(zhǎng)

Dim<變量名>AsString*size（例6）注意：定長(zhǎng)字符串變量在標(biāo)準(zhǔn)模塊中可以說(shuō)明為：Public或Private；在窗體和類模塊中，必須將變量說(shuō)明為Private.例如：在窗體的通用聲明部分寫(xiě)成：Publicstr1asstring*10是錯(cuò)誤的。強(qiáng)制變量聲明語(yǔ)句OptionExplicit語(yǔ)句作用：強(qiáng)制顯式聲明變量。即使用任何一個(gè)變量必須“先聲明,后使用”4.4運(yùn)算符和表達(dá)式運(yùn)算符表達(dá)式VB中的運(yùn)算符和表達(dá)式可分為：算術(shù)運(yùn)算符與算術(shù)表達(dá)式、關(guān)系運(yùn)算符與關(guān)系表達(dá)式、邏輯運(yùn)算符與邏輯表達(dá)式1.算術(shù)運(yùn)算符包括：^(乘方)、-(負(fù)號(hào))、/*、\(整除)MOD、+-，+、&表達(dá)式:(-5)^2+5Mod3舉例

25^0.5=5-4=-44*5=204/5=0.84\5=05mod4=12+3=54.5-2.4=2.1說(shuō)明:

（1）指數(shù)運(yùn)算不但可以用來(lái)計(jì)算乘方，還可以計(jì)算方根，如：5^2=25,25^0.5=5(2)整除運(yùn)算（\）的結(jié)果是商的整數(shù)部分。例如：7\2=3。如果參與整除運(yùn)算的是浮點(diǎn)數(shù)，則先按四舍五入原則將它們變成整數(shù)，然后相除取商的整數(shù)部分。例如：4.8\2=5\2=2.

注意：\后得到的結(jié)果為整型。

(3)mod是求兩個(gè)整數(shù)相除后的余數(shù)。如果參與運(yùn)算的兩個(gè)量是整數(shù)，則直接運(yùn)算。如果參與運(yùn)算的是浮點(diǎn)數(shù)，則先按四舍五入原則將它們變成整數(shù)，然后取余。例：12.33mod4.75=12mod5=2注意：mod后得到的結(jié)果為整型。(4)字符串運(yùn)算符有兩個(gè)：”&”,”+”.它們都是將兩個(gè)字符串拼接起來(lái)。當(dāng)連接符兩旁的操作量都為字符串時(shí)，上述兩個(gè)連接符等價(jià)。它們區(qū)別是：

+：連接符兩旁的操作數(shù)應(yīng)均為字符型；若其中一個(gè)為數(shù)值字符型，如“123”、“78”，另一個(gè)為數(shù)值型，則自動(dòng)將數(shù)值字符型轉(zhuǎn)換成數(shù)值型，然后進(jìn)行算術(shù)加法運(yùn)算；若其中一個(gè)為非數(shù)值字符型，如“abc”,”DEF”等，另一個(gè)為數(shù)值型，則出錯(cuò)。

&：連接符兩旁的操作數(shù)既可為字符型也可為數(shù)值,不管是字符型還是數(shù)值型，進(jìn)行連接操作前，系統(tǒng)先將操作數(shù)轉(zhuǎn)換成字符型，然后再連接。課堂練習(xí)：

“VB”+”語(yǔ)言基礎(chǔ)”=“100”+120=“100”+”120”=“ABC”+123=“”thisisa”&”dog”=“100”&120=100&120=“abc”&”123”=“abc”&123=

VB語(yǔ)言基礎(chǔ)220“100120”出錯(cuò)“thisisa

dog”“100120”“100120”“abc123”“abc123”2、算術(shù)運(yùn)算的優(yōu)先級(jí)運(yùn)算運(yùn)算符指數(shù)^取負(fù)-乘法*浮點(diǎn)除法/整數(shù)除法\取余mod加法+減法-連接&例：5+2*10mod10\9/3+2^2結(jié)果是：11課堂練習(xí)表達(dá)式:6.5*5Mod28\8=?VB中的秘密……dimaasinteger,basinteger,casinteger,dasintegera=6.5b=5.5c=5.51d=5.49PrintaPrintbPrintcPrintdVB中.5的問(wèn)題，朝著向它最近的偶數(shù)變化3.VB算術(shù)表達(dá)式書(shū)寫(xiě)規(guī)則（書(shū)寫(xiě)中需注意的問(wèn)題?。。?1)運(yùn)算符不能相鄰。例a+*b是錯(cuò)誤的；(2)乘號(hào)不能省略,括號(hào)必須成對(duì)出現(xiàn)；(3)一個(gè)表達(dá)式在同一行上書(shū)寫(xiě)，沒(méi)有高低、大小區(qū)分；(4)不能出現(xiàn)非法的字符；(5)要注意各種運(yùn)算符的優(yōu)先級(jí)別，為保持運(yùn)算順序，在寫(xiě)VB表達(dá)式時(shí)需要適當(dāng)添加括號(hào)（）,若用到庫(kù)函數(shù)必須按庫(kù)函要求書(shū)寫(xiě)；

例(1)b2-4ac,寫(xiě)成VB表達(dá)式為:b*b-4*a*c(b-sqr(b*b-4*a*c))/(2*a)(a+b)/(a-b)課堂練習(xí)

已知數(shù)學(xué)表達(dá)式(x+1)/(xy)3,寫(xiě)出它的VB表達(dá)式.Answer:(x+1)/(x*y)^32關(guān)系運(yùn)算符與關(guān)系表達(dá)式運(yùn)算符含義優(yōu)先級(jí)實(shí)例結(jié)果<小于15+10<20False<=小于或等于10<=20True>大于10>20False>=大于或等于"This">="That"True=等于"This"="That"False<>不等于"This"<>"That"True

比較兩個(gè)運(yùn)算量之間的關(guān)系，關(guān)系表達(dá)式的運(yùn)算結(jié)果為邏輯量。若關(guān)系成立，結(jié)果為True，若關(guān)系不成立，結(jié)果為False。

VB中的關(guān)系運(yùn)算符如下表所示。比較時(shí)注意以下規(guī)則：(1)如果兩個(gè)操作數(shù)都是數(shù)值型，則按其大小比較．如20>100,結(jié)果為false.(2)數(shù)值型與可轉(zhuǎn)換成數(shù)值型的數(shù)據(jù)比較,如:200>”100”,按數(shù)值比較,結(jié)果為True.(3)數(shù)值型與不能轉(zhuǎn)換成數(shù)值型的數(shù)據(jù)比較,如54>”abc”,不能比較,系統(tǒng)出錯(cuò).（4）字符串比較,則按字符的ASCII碼值從左到右一一比較,直到出現(xiàn)不同的字符為止。例："ABCDE">"ABRA"結(jié)果為False

課堂練習(xí)

如:“aBcd”>”abc”結(jié)果為“bc”>”abd”結(jié)果為.“abc”>”abd”結(jié)果為falsetruefalse(5)漢字字符>西文字符.例“abc”>”中國(guó)”,結(jié)果為false.3.邏輯運(yùn)算符包括：Not、And、Or、Xor.AND:邏輯與,兩邊的值均為真時(shí),結(jié)果為真；否則為假OR:邏輯或,兩邊的值至少有一個(gè)真,結(jié)果為真；否則為假NOT:邏輯反.只有一個(gè)參數(shù)XOR:邏輯異或,兩邊的值不同時(shí),結(jié)果為真；否則為假

ABNotAAAndBAOrBAXorB

TTFTTFTFFFTTFTTFTTFFTFFF說(shuō)明：數(shù)學(xué)上表示某個(gè)數(shù)在某個(gè)區(qū)域時(shí)用表達(dá)式：10≤X<20

在VB程序中應(yīng)寫(xiě)成：X>=10AndX<20

如果寫(xiě)成如下形式將是錯(cuò)誤的：

10<=x<20或

10<=xOrx<20

例：寫(xiě)出邏輯表達(dá)式：選拔優(yōu)秀生的條件：三門功課英語(yǔ)(C1)、數(shù)學(xué)(C2)、計(jì)算機(jī)(C3),總分至少265分，或C2、C3分別大于90分且C1不低于80分。C1+C2+C3>=265OR(C1>＝80andC2>90andC3>90)

寫(xiě)成下列VB表達(dá)式：用人單位招聘秘書(shū)：年齡小于40歲，女性，學(xué)歷?？苹虮究疲?/p>

年齡<=39性別=“女”學(xué)歷=“?？啤睂W(xué)歷=“本科”課堂練習(xí)AndOrAnd(）注意:參與邏輯運(yùn)算的一般都是邏輯型數(shù)據(jù),Not(6>2)=(6>2)or(6<2)=falsetrue思考:??9and5=??

如果參與運(yùn)算的兩個(gè)操作數(shù)都是數(shù)值量,則以數(shù)值的二進(jìn)制值逐位進(jìn)行邏輯運(yùn)算.例:9and5

將1001and0101=0001=1邏輯運(yùn)算的優(yōu)先次序如下:not->and->or->xor4、日期型表達(dá)式日期型數(shù)據(jù)是一種特殊的數(shù)值型數(shù)據(jù)，只能有下面3種情況：1．一個(gè)日期型數(shù)據(jù)可以相減：

DateB-DateA結(jié)果是一個(gè)數(shù)值型整數(shù)(兩個(gè)日期相差的天數(shù))。例如：#05/08/2002#-#05/01/2002#其結(jié)果為數(shù)值：72．一個(gè)日期型數(shù)據(jù)（DateA）與一數(shù)值數(shù)據(jù)（N）可作加法運(yùn)算：DateA+N其結(jié)果仍是一個(gè)日期型數(shù)據(jù)。3.一個(gè)日期型數(shù)據(jù)（DateA）與一數(shù)值數(shù)據(jù)（N）可作減法運(yùn)算：

DateA-N其結(jié)果仍是一個(gè)日期型數(shù)據(jù)。例如：#05/08/2002#-75、運(yùn)算符的執(zhí)行順序

表達(dá)式中出現(xiàn)了多種不同類型的運(yùn)算符時(shí)，其運(yùn)算符優(yōu)先級(jí)如下：

算術(shù)運(yùn)算符>=字符運(yùn)算符>關(guān)系運(yùn)算符>邏輯運(yùn)算

說(shuō)明：

1．當(dāng)一個(gè)表達(dá)式中出現(xiàn)多種運(yùn)算符時(shí)，首先進(jìn)行算術(shù)運(yùn)算符，接著處理字符串連接運(yùn)算符，然后處理比較運(yùn)算符，最后處理邏輯運(yùn)算符.2．可以用括號(hào)改變優(yōu)先順序，強(qiáng)令表達(dá)式的某些部分優(yōu)先運(yùn)行。括號(hào)內(nèi)的運(yùn)算總是優(yōu)先于括號(hào)外的運(yùn)算。對(duì)于多重括號(hào)，總是由內(nèi)到外。思考:B=(30-15>4+7and5*4=20)=???分析：出現(xiàn)了算術(shù)運(yùn)算：*，+，-；關(guān)系運(yùn)算：>,=;邏輯運(yùn)算:and.

先進(jìn)行30-15,4+7和5*4,分別得15、11和20；再對(duì)這些結(jié)果進(jìn)行關(guān)系運(yùn)算15>11,20=20,其結(jié)果都是True,再進(jìn)行邏輯運(yùn)算.TrueandTrue,B=True6.同一表達(dá)式中的數(shù)據(jù)的類型轉(zhuǎn)換(了解)

在算術(shù)運(yùn)算中，如果操作數(shù)的數(shù)據(jù)精度不同，VB規(guī)定運(yùn)算結(jié)果采用精度較高的數(shù)據(jù)類型。比如:整