【正文】 義了長(zhǎng)度為 8的字符串 str1 – VBA允許不聲明該變量，而在程序中直接使用，這個(gè)時(shí)候該變量被默認(rèn)為 Variant數(shù)據(jù)類型。這種方式稱為變量的 隱式 聲明。 3. 變量的作用域 變量在使用時(shí)，由于所處過(guò)程的不同，又分為 全程變量、局部變量和模塊變量 。 4. 變量數(shù)組 ? 由變量名和數(shù)組下標(biāo)組成，如果沒(méi)有 Option Base 語(yǔ)句，則默認(rèn)為 0 ? 格式： Dim 數(shù)組名（下標(biāo)下限 To 下標(biāo)上限） ? 如 : Dim A(0 to 10) As Integer ? 等同于 Dim A(10) As Integer ? 例： Dim e (20) as string Dim e (3 to 2) as string 運(yùn)算符與表達(dá)式 ? 表達(dá)式 由常量、變量、函數(shù)及運(yùn)算符組成的式子 ? 運(yùn)算符 規(guī)定對(duì)數(shù)據(jù)進(jìn)行的某種操作，也稱為操作符。不同類型的數(shù)據(jù)其運(yùn)算符種類不同。 ? VBA中的運(yùn)算符可分為 5類： ? 算術(shù)運(yùn)算符、字符串運(yùn)算符、 ? 關(guān)系運(yùn)算符、邏輯運(yùn)算符和日期運(yùn)算符。 ? 算術(shù)運(yùn)算 +（加）、 （減、取負(fù)）、 *（乘）、 /（除）、 Mod（取模）、 \（整除）、 ^（乘方） ? 關(guān)系運(yùn)算符 =（等于）、 （不等于）、 （大于）、 （小于）、 =（大于等于）、 =（小于等于） ? 連接運(yùn)算符 amp。 、 + ? 邏輯運(yùn)算符 Imp（包含）、 Eqv（等價(jià)于）、 Xor（異或）、 Or（或）、 And（與）、 Not（非） 鞏固題 (12*511*6)/3 ?結(jié)果 “123”*2+123 ?結(jié)果 “中國(guó) “ amp。 ”湖北 ” + ”武漢” ‘結(jié)果 “abc”=”abcd” ?結(jié)果 TrueFalse ?結(jié)果 “abc” “ABC” ?結(jié)果 “China” like “*i*” ?結(jié)果 2^33^2 Or “abc”=”abcd” And 3=4 ?結(jié)果 52 Xor 3=4 Or “abc”=”abcd” ?結(jié)果 函數(shù) 是預(yù)先編好的具有某種操作功能的程序，每一個(gè)函數(shù)都有特定的數(shù)據(jù)運(yùn)算或轉(zhuǎn)換功能。 函數(shù)由 函數(shù)名、參數(shù)和函數(shù)值 組成 – 函數(shù)名是函數(shù)的標(biāo)識(shí)，說(shuō)明函數(shù)的功能。 – 調(diào)用函數(shù)時(shí)，應(yīng)注意所給參數(shù)的 個(gè)數(shù)、順序和類型 要與函數(shù)的定義一致。 格式： 函數(shù)名 [(參數(shù) 1,[參數(shù) 2],[參數(shù) 3]…)] Array(a,b) 函數(shù) 按其功能可分為數(shù)學(xué)函數(shù)、字符串函數(shù)、日期函數(shù)、轉(zhuǎn)換函數(shù)等 。 1. 數(shù)值函數(shù) 數(shù)值處理函數(shù)的自變量和返回值往往都是數(shù)值型數(shù)據(jù)。如絕對(duì)值函數(shù)、取整數(shù)函數(shù)、隨機(jī)函數(shù)、最大和最小值函數(shù)、平方根函數(shù)、三角函數(shù)、指數(shù)函數(shù)、對(duì)數(shù)函數(shù)等。 Abs(10) int() fix() Round(,2) ?int()返回小于或等于數(shù)值表達(dá)式的最大整數(shù) ， Fix()返回大于或等于數(shù)值表達(dá)式最小整數(shù)。 2 字符串長(zhǎng)度函數(shù) 【 語(yǔ)法 】 Len(字符表達(dá)式 ) |LenB(字符表達(dá)式 ) Len()返回字符表達(dá)式中字符的 個(gè)數(shù) LenB()返回字符表達(dá)式所占的 字節(jié)數(shù) 注意， 在 VBA中，字符串長(zhǎng)度以字為單位，也就是每個(gè) 西文字符和中文漢字 都作為 1個(gè)字，占兩個(gè)字節(jié)。 3 求子字符串函數(shù)。 【 語(yǔ)法 】 Left(字符表達(dá)式 ,數(shù)值表達(dá)式 ) | Right(字符表達(dá)式 ,數(shù)值表達(dá)式 ) |Mid(字符表達(dá)式 ,數(shù)值表達(dá)式 1[,數(shù)值表達(dá)式 2]) – Left()從字符表達(dá)式左邊開(kāi)始，截取數(shù)值表達(dá)式所指定長(zhǎng)度的字符個(gè)數(shù)； – Right()從字符表達(dá)式右邊開(kāi)始，截取數(shù)值表達(dá)式所指定長(zhǎng)度的字符個(gè)數(shù)； – Mid()從數(shù)值表達(dá)式 1指定的位置開(kāi)始，截取數(shù)值表達(dá)式 2所指定的字符個(gè)數(shù)，返回子字符串。數(shù)值表達(dá)式 2為可選項(xiàng)，如果缺省，則返回從數(shù)值表達(dá)式 1開(kāi)始的所有字符。如果數(shù)值表達(dá)式 1大于字符表達(dá)式的長(zhǎng)度，則返回零長(zhǎng)度字符串。 字符串函數(shù)實(shí)例 LEN(Access),LenB(Access) ?結(jié)果為 6 12 Left(“中南財(cái)經(jīng)政法大學(xué)” ,2) ?結(jié)果為中南 Right(“中南財(cái)經(jīng)政法大學(xué)” ,2) ?結(jié)果為大學(xué) Mid(“中南財(cái)經(jīng)政法大學(xué)” ,3,4) ?結(jié)果為財(cái)經(jīng)政法 4. 日期和時(shí)間函數(shù) 【 語(yǔ)法 】 Date()/Date Time()/Time Now()/Now Date返回當(dāng)前的系統(tǒng)日期， Time返回系統(tǒng)時(shí)間， Now返回當(dāng)前系統(tǒng)的時(shí)間和日期。 其他函數(shù) （ 1） MsgBox()函數(shù)。 MsgBox()函數(shù)用來(lái)打開(kāi)一個(gè)對(duì)話框，向用戶顯示提示信息，并且等待用戶單擊指定的按鈕，然后向系統(tǒng)返回用戶的選擇。該函數(shù)可用于信息的輸出和提示。 【 語(yǔ)法 】 MsgBox(顯示信息 [,對(duì)話框類型 ][,對(duì)話框標(biāo)題 ]) ? “回車符”： Chr(13) ? “換行符” Chr(8) 【 例 】 MsgBox函數(shù)的示例。 在代碼窗口輸入命令，然后執(zhí)行。彈出如圖所示的對(duì)話框。 Dim Ans as Integer Ans = MsgBox(“歡迎使用本數(shù)據(jù)庫(kù)系統(tǒng)” ,1+64+0,”歡迎信息” ) （ 2） InputBox 函數(shù)。 InputBox()函數(shù)用于打開(kāi)一個(gè)對(duì)話框，在對(duì)話框中顯示提示信息和一個(gè)文本框，并等待用戶輸入，然后將用戶在文本框中的輸入返回給系統(tǒng)，返回值的類型為字符串。 【 語(yǔ)法 】 InputBox(顯示信息 [,對(duì)話框標(biāo)題 ][,默認(rèn)值 ]) 【 例 】 InputBox函數(shù)示例。 Dim User as String User=InputBox(“請(qǐng)輸入你的用戶名 :”,“登錄” , “Administrator”) Msgbox ”歡迎你 : ”+User, VbOkOnly+VbInformation,”歡迎” VBA流程控制語(yǔ)句 VBA中的語(yǔ)句是執(zhí)行具體操作的指令，每個(gè)語(yǔ)句以 Enter結(jié)束。程序語(yǔ)句是 VBA關(guān)鍵字、屬性、函數(shù)、運(yùn)算符以及 VBE可以識(shí)別指令的符號(hào)的任意組合。 1. VBA控制結(jié)構(gòu) ? 順序結(jié)構(gòu) ? 分支結(jié)構(gòu) – Ifthen語(yǔ)句 – Ifthenelseif語(yǔ)句 – Selectcaseend select語(yǔ)句 ? 循環(huán)結(jié)構(gòu) – Fornext語(yǔ)句 – Do whileloop語(yǔ)句 2. 分支結(jié)構(gòu) ? If…Then 語(yǔ)句 If 表達(dá)式 Then 語(yǔ)句塊 End If 表達(dá)式語(yǔ)句塊FT? If…Then…Else 結(jié)構(gòu) If 表達(dá)式 Then 語(yǔ)句塊 1 Else 語(yǔ)句塊 2 End If 表達(dá)式語(yǔ)句1 語(yǔ)句2? If…Then…ElseIf 結(jié)構(gòu) If 表達(dá)式 1 Then 語(yǔ)句塊 1 ElseIf 表達(dá)式 2 Then 語(yǔ)句塊 2 …… End If ? 嵌套 If結(jié)構(gòu) If 表達(dá)式 1 Then … If 表達(dá)式 2 Then … End If … End If 表達(dá)式1表達(dá)式2表達(dá)式 n語(yǔ)句塊 n語(yǔ)句塊2語(yǔ)句塊1 語(yǔ)句塊 n +1FFFTTT示例－購(gòu)物打折 某商場(chǎng)為了促銷，采用購(gòu)物打折扣的優(yōu)惠辦法，每位顧客一次購(gòu)物： – 在 1000元以上者，按八折優(yōu)惠； – 在 500元以上，但不足 1000元者，按八五折優(yōu)惠； – 在 300元以上，但不足 500元者，按九折優(yōu)惠； – 在 100元以上，但不足 300元者，按九五折優(yōu)惠； – 不足 100元者，沒(méi)有優(yōu)惠。 Dim a As Single, b As Single 39。a為購(gòu)物款， b為折扣后應(yīng)付款 If a = 1000 Then b = * a ElseIf a = 500 Then b = * a ElseIf a = 300 Then b = * a ElseIf a = 100 Then b = * a Else b = a End If Select Case語(yǔ)句 Select Case 變量或表達(dá)式 Case 表達(dá)式 1 語(yǔ)句塊 1 Case 表達(dá)式 2 語(yǔ)句塊 2 … End Select 表達(dá)式1表達(dá)式2表達(dá)式n語(yǔ)句塊1語(yǔ)句塊2語(yǔ)句塊n語(yǔ)句塊n + 1??FFFTTT 示例－購(gòu)物打折 Select Case a Case Is = 1000 b = * a Case Is = 500 b = * a Case Is = 300 b = * a Case Is = 100 b = * a Case Else b = a End Select For循環(huán)語(yǔ)句 For 循環(huán)變量 = 初值 To 終值 [Step 步長(zhǎng) ] [語(yǔ)句塊 ] [Exit For] [語(yǔ)句塊 ] Next [循環(huán)變量 ] 循 環(huán) 變 量 ≤ 終 值語(yǔ) 句 塊循 環(huán) 變 量 = 初 值有 E x i t F o r語(yǔ) 句 塊循 環(huán) 變 量 = 循 環(huán) 變 量 + 步 長(zhǎng)FTFF（ a ） 步 長(zhǎng) ＞ 0循 環(huán) 變 量 ≥ 終 值語(yǔ) 句 塊循 環(huán) 變 量 = 初 值有 E x i t F o r語(yǔ) 句 塊循 環(huán) 變 量 = 循 環(huán) 變 量 + 步 長(zhǎng)FTFF（ b ） 步 長(zhǎng) ＜ 0 Do…Loop 語(yǔ)句 Do While | Until 條件 [語(yǔ)句塊 ] [Exit Do] [語(yǔ)句塊 ] Loop [條件 ] 、過(guò)程調(diào)用與參數(shù)傳遞 將反復(fù)執(zhí)行的或具有獨(dú)立功能的程序編成一個(gè)子過(guò)程，使主過(guò)程與這些子過(guò)程通過(guò)并列調(diào)用或嵌套調(diào)用有機(jī)地聯(lián)系起來(lái)，使程序結(jié)構(gòu)清晰，便于閱讀、修改及交流，體現(xiàn)了程序的模塊化思想。 ①定義一個(gè) Sub過(guò)程 【 語(yǔ)法 】 [Public| Private] [ Static]Sub 子過(guò)程名 ([形式參數(shù) As 數(shù)據(jù)類型 ]) 語(yǔ)句序列 [Exit Sub] 語(yǔ)句序列 End Sub 功能：建立一個(gè)子過(guò)程，并接收參數(shù)。 關(guān)鍵字 說(shuō)明： – Public用來(lái)表示該過(guò)程可以被所有模塊的過(guò)程所調(diào)用； – Private表示該過(guò)程只能被其所屬的模塊中的其他過(guò)程調(diào)用； – Static表示該過(guò)程中的所有變量值都將被保留。 ②調(diào)用一個(gè) Sub過(guò)程 【 語(yǔ)法 1】 [Call] 過(guò)程名 ([實(shí)參 ]) 【 語(yǔ)法 2】 過(guò)程名 [實(shí)參 ] –實(shí)參 是實(shí)際參數(shù)的簡(jiǎn)稱，其作用是將實(shí)際參數(shù)中的內(nèi)容傳遞給指