VB語法參考模板

1、1 常量與變量 1.1 VB的數(shù)據(jù)類型數(shù)據(jù)類型是數(shù)據(jù)的表示和存儲形式。VB定義的基本數(shù)據(jù)類型如表5-1所示。表5-1 VB的基本數(shù)據(jù)類型數(shù)據(jù)類型類型描述類型說明后綴數(shù)據(jù)范圍所占字節(jié)數(shù)Integer整型%-32768327672Long長整型&-214748364821474836474Single單精度浮點型!-3.402823E38-1.401298E-451.401298E-453.402823E384Double雙精度浮點型#-1.79769313486232E308-4.9406564584124E3244.9406564584124E3241.79769313486232E3

2、088Currency貨幣型 8String字符串型$ 每字符占一字節(jié)Byte字節(jié)型 02551Boolean布爾數(shù)據(jù)型 -1（True）、（False） Date日期型   Object對象型  4Variant變體為上述任一種  Integer（整型）、Long（長整型）、Single（單精度浮點型）、Double（雙精度長整型）及Currency（貨幣型）均為Numeric數(shù)據(jù)類型。其中整型是16位的整數(shù)，長整型是32位的整數(shù)。單精度及雙精度浮點型就表示實數(shù)，常被用于數(shù)

3、量較大的數(shù)字。Currency數(shù)據(jù)類型支持小數(shù)點右面15位，是定點數(shù)據(jù)類型，適用于貨幣計算。1 / 26String（字符串變量）的數(shù)據(jù)類型只存放文本，是一個字符序列，它的每一個字符用ASCII編碼表示。不包含任何字符的串稱為空串。Byte數(shù)據(jù)類型表示0到255之間的數(shù)，常用于訪問二進制文件、圖形和聲音文件等。當需要把數(shù)據(jù)存放成字節(jié)，必須訪問各字節(jié)時可采用Byte類型。取值僅為True/False的類型稱為Boolean（布爾）型，缺省值為False。Date數(shù)據(jù)類型用于以特殊方式存放日期和時間。Object變量可引用應用程序中或某些其他應用程序中的對象。VB缺省規(guī)定，如果在生命中沒有說明數(shù)據(jù)

4、類型，則變量的數(shù)據(jù)類型為Variant（變體）。Variant數(shù)據(jù)類型還包含三種特定值：Empty、Null、Error。Empty值用于確定是否已將一個值賦予所創(chuàng)建的變量。賦值之前，Variant變量具有值Empty。Null常用于數(shù)據(jù)庫應用程序，表示未知或丟失為空的數(shù)據(jù)。Error值是指已發(fā)出的過程中的錯誤狀態(tài)。Variant數(shù)據(jù)類型是最為靈活的數(shù)據(jù)類型，可以依據(jù)不同的需要進行各種數(shù)據(jù)類型的轉換。它實際上包含兩部分信息，一部分是數(shù)據(jù)類型的信息，一部分是表示數(shù)據(jù)值的信息。但正是由于它的靈活性，又使得它存在著一個明顯的缺點，Variant數(shù)據(jù)類型比其他類型的數(shù)據(jù)占有更多的內存空間。2 數(shù)組VB

5、中數(shù)組的定義類似于變量定義，所不同的是數(shù)組需要指定數(shù)組中的元素個數(shù)，例如： Dim Array（9） As Integer數(shù)組中包含10個元素，腳標從0到9。也可以指定腳標的起始值，例如：Dim IntegerArray（2 to 10） As Integer這個數(shù)組含有九個元素，腳標從2到10。還可以定義多維數(shù)組：Dim ThreeD（4,2 to 5,3 to 6） As Integer定義一個三維數(shù)組（4×4×4）。數(shù)組數(shù)組是一組擁有相同名稱同類元素。定義數(shù)組后，即創(chuàng)建了數(shù)組。數(shù)組中單個的數(shù)據(jù)項稱為數(shù)組元素，用于訪問數(shù)組元素的編號稱為數(shù)組索引號，最小索引號和最大索引號

6、稱為邊界。在VBA中，根據(jù)數(shù)組元素是否變化，分為固定大小的數(shù)組和動態(tài)數(shù)組，根據(jù)數(shù)組的維數(shù)又可分為一維數(shù)組和多維數(shù)組。1、創(chuàng)建數(shù)組用Dim語句來定義固定大小的數(shù)組，即聲明一個數(shù)組。如Dim myArray(9) As Integer上面的代碼創(chuàng)建一個名為myArray含有10個數(shù)組元素的一維數(shù)組。注意，所有VBA數(shù)組的下界均從0開始，因此上面的代碼所創(chuàng)建的數(shù)組元素從myArray(0)到myArray(9)。在Dim語句中不指明數(shù)組元素的個數(shù)來聲明動態(tài)數(shù)組，如Dim myDynamicArray() As Integer使用ReDim關鍵字重新定義數(shù)組的大?。篟eDim myDynamicArr

7、ay(10)也可以用ReDim關鍵字同時聲明一個動態(tài)數(shù)組并指定該數(shù)組的元素個數(shù)：ReDim myDynamicArray(5) As IntegerVBA沒有限制重新定義動態(tài)數(shù)組大小的次數(shù)，但在重新定義數(shù)組大小時，原有的數(shù)組數(shù)據(jù)就會丟失。如果需要保留原來的數(shù)據(jù)，可以使用Preserve關鍵字：ReDim Preserve myDynamicArray(5)需要注意的是，如果重新定義數(shù)組時減小了數(shù)組的大小，則會丟失被縮減了的那部分元素的數(shù)據(jù)。當然，與聲明變量一樣，也可以用Public語句聲明公共數(shù)組。2、確定數(shù)組的邊界可以使用UBound函數(shù)和LBound函數(shù)分別獲取數(shù)組的最大邊界和最小邊界。默

8、認情況下，VBA的數(shù)組的下界是從0開始的，可以在模塊的聲明部分使用Option Base語句來改變模塊中數(shù)組的起始邊界。如Option Base 1該語句使數(shù)組元素的索引號從1開始。也可以在定義數(shù)組時指定數(shù)組的上界和下界，如Dim <數(shù)組名> (<下界> to <上界>) As <數(shù)據(jù)類型>3、多維數(shù)組多維數(shù)組可以在每個數(shù)組元素中存儲一組數(shù)據(jù)，因此，多維數(shù)組的每個數(shù)組元素都包含一個數(shù)組。與一維數(shù)組相同，可以使用下面的兩種方法創(chuàng)建多維數(shù)組：(1)Dim <數(shù)組名> (<數(shù)組元素數(shù)1>，<數(shù)組元素數(shù)2>，) As

9、<數(shù)據(jù)類型>(2)Dim <數(shù)組名>(<下界> to <上界>，<下界> to <上界>，) As <數(shù)據(jù)類型>與一維數(shù)組相似，多維數(shù)組也可以是動態(tài)的。4、引用數(shù)組中的元素可以使用數(shù)組名稱和一個索引號來引用數(shù)組中的某個特定的元素。變量與常量:  1）VB允許使用未定義的變量，默認是變體變量Variant。  2）在模塊通用說明部份，加入 Option Explicit 語句可以強迫用戶進行變量定義。  3）變量定義語句及變量作用域 Dim    

10、60;     變量 as 類型 '定義為局部變量，如 Dim xyz as integerPrivate 變量 as 類型 '定義為私有變量，如 Private xyz as bytePublic 變量 as 類型 '定義為公有變量，如 Public xyz as singleGlobal 變量 as 類型 '定義為全局變量，如 Globlal xyz as dateStatic 變量 as 類型 '定義為靜態(tài)變量，如 Static xyz as double一般變量作用域的原則是，那部份定義就在那部份

11、起作用，模塊中定義則在該模塊那作用。  4）常量為變量的一種特例，用Const定義，且定義時賦值，程序中不能改變值，作用域也如同變量作用域。如下定義：Const Pi=3.1415926 as single  5,數(shù)組:是包含相同數(shù)據(jù)類型的一組變量的集合，對數(shù)組中的單個變量引用通過數(shù)組索引下標進行。在內存中表現(xiàn)為一個連續(xù)的內存塊，必須用Global或Dim語句來定義。定義規(guī)則如下： Dim 數(shù)組名(lower to upper , lower to upper, .) as type ;Lower缺省值為0。二維數(shù)組是按行列排列，如XYZ(行，列)。  除了以上固

12、定數(shù)組外，VBA還有一種功能強大的動態(tài)數(shù)組，定義時無大小維數(shù)聲明；在程序中再利用Redim語句來重新改變數(shù)組大小，原來數(shù)組內容可以通過加preserve關鍵字來保留。如下例： Dim array1() as double : Redim array1(5) : array1(3)=250 : Redim preserve array1(5,10)  6,注釋和賦值語句  1）注釋語句是用來說明程序中某些語句的功能和作用；VB中有兩種方法標識為注釋語句。  單引號 ;如：定義全局變量；可以位于別的語句之尾，也可單獨一行  Rem ;如：Rem定義全局變量；

13、只能單獨一行  2）賦值語句是進行對變量或對象屬性賦值的語句，采用賦值號 =，如X=123：Form1.caption=”我的窗口”。對對象的賦值采用：set myobject=object 或 myobject:=object  7,書寫規(guī)范:  1）VBA不區(qū)分標識符的字母大小寫，一律認為是小寫字母；  2）一行可以書寫多條語句，各語句之間以冒號 : 分開；  3）一條語句可以多行書寫，以空格加下劃線 _ 來標識下行為續(xù)行；  4）標識符最好能簡潔明了，不造成歧義。 運算符 VB具有豐富的運算符集，大體上分為三類，算術運算符、關系

14、運算符和邏輯運算符。5.3.1 算術運算符VB中的算術運算符有如下幾種： 冪運算 - 負號* 乘 / 除 整除 Mod 取模+ 加 - 減以下列出幾個算術運算的表達式：X=Y2 X等于Y的平方X=Y-2 X等于Y的負二次方X=Y*Z X等于Y乘以ZX=Y/Z X等于Y除以ZX=5/2 X等于5除以2，值為2.5X=52 X等于5用2整除，值為2X=5Mod2 X等于5模2，值為15.3.2 關系運算符= 等于 > 大于 < 小于<> 不等于 <= 小于等于 >= 大于等于如：X=Y3<>2 關系運算符與數(shù)學運算符的用法一致，只是表達方式有所不同而

15、已。5.3.3 邏輯運算符VB中的邏輯運算符有：NOT 非 AND 與OR 或 XOR 異或EQU 邏輯等 IMP 隱含以下分別介紹這幾種運算符：NOT：邏輯非。對邏輯值取反，如：3<5 表達式值為真NOT3<5 取反，表達式值為假AND：邏輯與。兩個表達式的值均為真，則結果為真，如果有任一個表達式值為假，則結果為假。其運算規(guī)則如表5-2。表5-2 AND運算規(guī)則表第一操作符第二操作符操作結果TrueTrueTrueTrueFalseFalseFalseTrueFalseFalseFalseFalse例如：3<5AND4>3 兩個表達式結果均為真，則AND操作結果為真。

16、3<5AND4<3 第一個表達式結果為真，第二個表達式結果為假，則AND操作結果為假。 OR：邏輯或。當兩個表達式中至少一個為真時，結果為真。運算規(guī)則如表5-3。表5-3 OR運算規(guī)則表第一操作符第二操作符操作結果TrueTrueTrueTrueFalseTrueFalseTrueTrueFalseFalseFalse例如：3<5OR4<3 第一個表達式結果為真，第二個表達式結果為假，則OR操作結果為真。XOR：邏輯異或。當兩個表達式值相反時，結果為真。運算規(guī)則如表5-4。表5-4 XOR運算規(guī)則表第一操作符第二操作符操作結果TrueTrueFalseTrueFalse

17、TrueFalseTrueTrueFalseFalseFalse例如： 5/3>1XOR1<0 第一個表達式結果為真，第二個表達式結果為假，則XOR操作結果為真。EQU: 邏輯等。兩個表達式的值相同時，結果為真。運算規(guī)則如表5-5。表5-5 EQU運算規(guī)則表第一操作符第二操作符操作結果TrueTrueTrueTrueFalseFalseFalseTrueFalseFalseFalseTrue例如：3<2EQU（3-1）<0 第一個表達式結果為假，第二個表達式結果也為假，則EQU操作結果為真。IMP：比較兩個表達式。當?shù)谝粋€表達式為假或第二個表達式為真時操作結果

18、為真。運算規(guī)則如表5-6。表5-6 IMP運算規(guī)則表第一操作符第二操作符操作結果TrueTrueTrueTrueFalseFalseFalseTrueTrueFalseFalseTrue例如： 3<2IMP3>0 第一個表達式結果為假，第二個表達式結果為真，則IMP操作結果為真。5.4 基本語句5.4.1 注釋語句在使用注釋語句之前必須先了解注釋的作用，注釋不僅僅是對程序的解釋，有時它對于程序的調試也非常有用，譬如說可以利用注釋屏蔽一條語句以觀察變化，發(fā)現(xiàn)問題和錯誤。以后注釋語句將是我們在編程里最經(jīng)常用到的語句之一。在VB里，注釋語句有兩種，一種是用“Rem”關鍵字，這跟DOS里的

19、批處理文件的用法一樣，還有一種是利用單引號“”，例如：Dim a As String 與Rem Dim a As String 的作用是一致的。5.4.2 順序語句順序語句就是依順序逐條執(zhí)行的語句。在程序中沒有流程控制語句的情況下，程序中各語句將按順序逐一執(zhí)行，只有在上一條語句執(zhí)行完畢后，才能執(zhí)行下一條語句。5.4.3 條件語句 任何一種程序語言都離不開流程控制語句，程序中控制流程的語句有兩種：條件與循環(huán)。掌握這兩種語句是學習編程關鍵的一步，下面首先介紹VB中的條件語句。 IF語句在條件語句里，我們先來學習“IfThen”語句。語法：If <條件> Then <

20、語句>End If如果希望條件不滿足時執(zhí)行另一語句，可以以增加一個else語句：If <條件> Then <語句>else<語句>End If如果Then后面所跟的語句只有一條，可以寫成：If <條件> Then <語句>而不用End If。還可以在Else里在嵌套If語句，如：If <條件> Then <語句>Else If <條件> Then <語句>Else <語句>End If判斷語句  1）IfThenElse語句 If condition Then

21、 statementsElse elsestatements如1：If A>B And C<D Then A=B+2 Else A=C+2如2：If x>250 Then x=x-100或者，可以使用塊形式的語法：If condition ThenstatementsElseIf condition-n Thenelseifstatements .ElseelsestatementsEnd If如1:If Number < 10 ThenDigits = 1ElseIf Number < 100 ThenDigits = 2ElseDigits = 3End If

22、2）Select CaseCaseEnd Case語句 如1：Select Case PidCase “A101”Price=200Case “A102”Price=300Case ElsePrice=900End Case 3）Choose 函數(shù)： choose(index, choce-1,choice-2,choice-n)，可以用來選擇自變量串列中的一個值，并將其返回，index 必要參數(shù)，數(shù)值表達式或字段，它的運算結果是一個數(shù)值，且界于 1 和可選擇的項目數(shù)之間。choice 必要參數(shù)，Variant表達式，包含可選擇項目的其中之一。如： GetChoice? = Choo

23、se(Ind, "Speedy", "United", "Federal")  4）Switch函數(shù)： Switch(expr-1, value-1, expr-2, value-2 _ , expr-n,value-n) switch函數(shù)和Choose函數(shù)類似，但它是以兩個一組的方式返回所要的值，在串列中，最先為TRUE的值會被返回。 expr 必要參數(shù)，要加以計算的 Variant 表達式。value 必要參數(shù)。如果相關的表達式為 True，則返回此部分的數(shù)值或表達式，沒有一個表達式為 True，Switch 會返回一個

24、 Null值。  9,循環(huán)語句  1）For Next語句 以指定次數(shù)來重復執(zhí)行一組語句 For counter = start To end Step step ' step 缺省值為1statementsExit ForstatementsNext counter如1：For Words = 10 To 1 Step -1 ' 建立 10 次循環(huán)For Chars = 0 To 9 ' 建立 10 次循環(huán)MyString = MyString & Chars ' 將數(shù)字添加到字符串中Next Chars ' Increme

25、nt counterMyString = MyString & " " ' 添加一個空格Next Words2）For EachNext語句:主要功能是對一個數(shù)組或集合對象進行，讓所有元素重復執(zhí)行一次語句 For Each element In groupStatementsExit forStatementsNext element如1：For Each rang2 In range1With erior.colorindex=6.pattern=xlSolidEnd withNext這上面一例中用到了 WithEnd With 語句，

26、目的是省去對象多次調用，加快速度；語法為：With objectstatementsEnd With3）Doloop語句 在條件為true時，重復執(zhí)行區(qū)塊命令 Do while |until condition ' while 為當型循環(huán)，until為直到型循環(huán)，顧名思義，不多說啦StatementsExit doStatementsLoop或者使用下面語法Do ' 先do 再判斷，即不論如何先干一次再說StatementsExit doStatementsLoop while |until condition 10,其他類語句和錯誤語句處理  A, 其他循

27、環(huán)語句:結構化程序使用以上判斷和循環(huán)語句已經(jīng)足夠，建議不要輕易使用下面的語句，雖然VBA還支持。  1)Goto line 該語句為跳轉到line語句行  2)On expression gosub destinatioinlist 或者 on expression goto destinationlist 語句為根據(jù) exprssion表達式值來跳轉到所要的行號或行標記  3)Gosub linelineReturn語句， Return 返回到 Gosub line行，如下例： Sub gosubtry()Dim numNum=inputbox(“輸入一個數(shù)字，

28、此值將會被判斷循環(huán)”)If num>0 then Gosub Routine1 ：Debug.print num：Exit subRoutine1:Num=num/5ReturnEnd sub4)whilewend語句，只要條件為TRUE，循環(huán)就執(zhí)行，這是以前VB老語法保留下來的，如下例： while condition 'while I<50 statements 'I=I+1 wend 'Wend  B, 錯誤語句處理:執(zhí)行階段有時會有錯誤的情況發(fā)生，利用On Error語句來處理錯誤，啟動一個錯誤的處理程序。語法如下： On Error Go

29、to Line'當錯誤發(fā)生時，會立刻轉移到line行去On Error Resume Next '當錯誤發(fā)生時，會立刻轉移到發(fā)生錯誤的下一行去On Erro Goto 0 '當錯誤發(fā)生時，會立刻停止過程中任何錯誤處理過程5.5 過程在程序設計中經(jīng)常會有重復的地方，可以把重復的部分獨立為一個過程，在使用時進行調用，從而簡化代碼編寫，提高編程效率。過程可用于壓縮重復任務或共享任務。用過程編程有兩大好處：·         過程可使程序劃分成離散的邏輯單元，每個單元都比無過程的整個程序容

30、易調試。 ·         一個程序中的過程，往往不必修改或只需稍作改動，便可以成為另一個程序的構件。在 Visual Basic 中使用下列幾種過程：1子（Sub）過程 Private | Public Static Sub name （arglist） statementsExit SubstatementsEnd SubSub 語句的語法包含下面部分：Public|Private、Static 聲明函數(shù)的作用域、生存期。Name：必需的。Sub 的名稱，遵循標準的變量命名約定。 Arglist：可

31、選的。代表在調用時要傳遞給 Sub 過程的參數(shù)的變量列表。多個變量則用逗號隔開。Statements：可選的。Sub 過程中所執(zhí)行的任何語句組。事件過程或其他過程可按名稱調用子過程。子過程能夠接收參數(shù)，并可用于完成過程中的任務并返回一些數(shù)值。但是，與函數(shù)過程不同，子過程不返回與其特定子過程名相關聯(lián)的值（盡管它們能夠通過變量名返回數(shù)值）。子過程一般用于接收或處理輸入數(shù)據(jù)、顯示輸出或者設置屬性。 2函數(shù)（Function） 過程Public | Private Static Function name （arglist） As typestatementsname = expressionExit

32、 Function statementsname = expressionEnd Function各參數(shù)分述如下：Public|Private、Static：聲明函數(shù)的作用域、生存期。Name：必需的。Function 的名稱，遵循標準的變量命名約定。Arglist：可選的。代表在調用時要傳遞給 Function 過程的參數(shù)變量列表。多個變量應用逗號隔開。type：可選的。Function 過程的返回值的數(shù)據(jù)類型，可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（除定長）、Objec

33、t、Variant或任何用戶定義類型。任何類型的數(shù)組都不能作為返回值，但包含數(shù)組的 Variant 可以作為返回值。Statements：可選的。在 Function 過程中執(zhí)行的任何語句組。Expression：可選的。Function 的返回值。事件過程或其他過程可按名稱調用函數(shù)過程。函數(shù)過程能夠接收參數(shù)，并且總是以該函數(shù)名返回一個值。這類過程一般用于完成計算任務。函數(shù)過程與子過程有許多相似的地方，它們之間最大也是最本質的區(qū)別就在于，函數(shù)過程有一個返回值，而子過程只是執(zhí)行一系列動作。事件處理過程要對一個控件事件編寫事件處理程序，應先打開窗體的代碼窗口并從可用對象的下拉列表中選擇所需的控件。

34、然后，從該控件的可用事件下拉列表中選擇所用的事件。此時，對事件處理程序的定義語句就會自動出現(xiàn)在代碼窗口中，就可以直接編寫事件處理程序了。在Excel中，有下面幾類事件，即Excel應用程序事件、工作簿事件、工作表事件、圖表事件、用戶窗體事件等。屬性過程屬性過程(property procedure)是特殊的過程，用于賦予和獲取自定義屬性的值。屬性過程只能在對象模塊如窗體或類模塊中使用。有三種屬性過程：Property Let  給屬性賦值Property Get  獲取屬性的值Property Set  將對象引用賦給屬性引用- - - - - - - - - -

35、 - - - - - - - - - -調用子過程和函數(shù)過程子過程可以用下面三種方法調用。第一種使用Call語句：Call DoSomething(參數(shù)1，參數(shù)2，)如果使用Call語句，就必須用小括號將參數(shù)列表括起來。第二種是直接利用過程名：DoSomething 參數(shù)1，參數(shù)2，此時，不用在參數(shù)列表兩邊加上括號。如果不想使用函數(shù)的返回值，可以用上述任一種方法調用函數(shù)。否則，可以用函數(shù)名作為表達式的組成部分，如If GetFunctionResult(parameter)=1 Then如果用函數(shù)調用作為表達式的一部分，參數(shù)列表必須放在小括號中。第三種是使用Run方法。 5.6 VB

36、的系統(tǒng)函數(shù)在VB中，為了增強程序的功能，我們經(jīng)常要調用系統(tǒng)提供的函數(shù)。這些函數(shù)可以分為以下幾類：字符處理函數(shù)、數(shù)學函數(shù)、數(shù)據(jù)類型函數(shù)、輸入輸出函數(shù)、圖像函數(shù)和時間函數(shù)。下面我們就來分門別類地介紹一些常用的函數(shù)。5.6.1 字符處理函數(shù)在這一章里，我們將介紹一系列的字符處理函數(shù)：Chr,Asc,String,Len,Left,Right,Mid,Lcase,Ucase,Ltrim,Rtrim,Trim,Str,Val,InStr,StrComp。1Chr$（數(shù)值）函數(shù)返回標準擴展碼的對應字符。說明：（1）數(shù)值范圍在0到255之間。（2）Chr（）返回的是數(shù)值類型，而Chr$（）則返回字符類型。（3）ANSI是ASCII碼的擴充，其前128個字符都與ASCII碼相同。例如，我們常用以下的語句加入回車換行符。Chr（13）+Chr（10）2Asc（“字符”）函數(shù)此函數(shù)用來返回字符的ANSI碼值。