【正文】 聲明變量 基本語句 End Function VBA程序設(shè)計(jì)基礎(chǔ) ? 數(shù)據(jù)類型 ? 常量與變量 ? 運(yùn)算符與表達(dá)式 ? 函數(shù) 數(shù)據(jù)類型 （ 1）字符串型（ String） ? 字符串是一個(gè)字符的序列，如字母、數(shù)字、標(biāo)點(diǎn)、漢字等都可以定義為字符串類型。 ? 過程分兩種類型： 1． Sub過程 2． Function過程 模塊的組成 ? 1. 過程 ? Sub過程以關(guān)鍵字 Sub開始，以 End Sub結(jié)束，不返回任何值。 例 :創(chuàng)建一個(gè)標(biāo)準(zhǔn)模塊，顯示 “ 歡迎使用 ” 信息。 ?模塊包含若干由 VBA代碼組成的過程。 ? 模塊是 Access數(shù)據(jù)庫 6個(gè)對(duì)象之一，其實(shí)質(zhì)就是沒有界面的 VBA程序。 VBA編程環(huán)境 VBE窗口由工具欄、屬性窗口、工程資源管理器窗口、代碼窗口和立即窗口組成。 ?選擇工具菜單中“宏”子菜單的“ Visual Basic編輯器”命令。 在 Access中，打開 VBE窗口的方法有多種。面向?qū)ο蟪绦蛟O(shè)計(jì)是一種以對(duì)象為基礎(chǔ)，以事件來驅(qū)動(dòng)對(duì)象的程序設(shè)計(jì)方法。 第 8章 VBA編程與模塊 ? VBA概述 ? 模塊基本概念 ? VBA程序設(shè)計(jì)基礎(chǔ) ? VBA基本控制結(jié)構(gòu) ? 面向?qū)ο蟪绦蛟O(shè)計(jì) VBA概述 ? VBA簡(jiǎn)介 ? VBA編程環(huán)境 ? VBE窗口 ? VBA（ Visual Basic For Application）是微軟公司 Office系列軟件中內(nèi)置的用來開發(fā)應(yīng)用系統(tǒng)的編程語言。 ? （ 3）掌握簡(jiǎn)單的 VBA程序并實(shí)現(xiàn)輸入與輸出。1 第 8章 VBA編程與模塊 通過對(duì)本章的學(xué)習(xí)，需要掌握以下內(nèi)容： ? （ 1）掌握創(chuàng)建模塊的基本方法和使用過程的基本方法。 ? （ 2）熟悉 VBA程序設(shè)計(jì)的基礎(chǔ)知識(shí)和熟練使用 VBA編程環(huán)境編輯、調(diào)試與運(yùn)行程序。 ? （ 4）掌握創(chuàng)建與窗體和報(bào)表相關(guān)的類模塊和創(chuàng)建標(biāo)準(zhǔn)模塊的方法。 ? VBA 是 面向?qū)ο蟮某绦蛟O(shè)計(jì)語言 。 VBA簡(jiǎn)介 Office中提供的 VBA開發(fā)界面 稱為 VBE( Visual Basic Editor ) ，即 可視化的 Basic 編程環(huán)境。 ?在 模塊對(duì)象窗口 單擊“新建”按鈕，或打開一個(gè)已存在的模塊，都會(huì)打開 VBE窗口。 ?使用 Alt+F11快捷鍵打開 VBE界面，或切換數(shù)據(jù)庫窗口和 VBE窗口。 VBE窗口 工具欄 工程 窗口 屬性 窗口 代碼窗口 標(biāo)準(zhǔn)工具欄 模塊基本概念 ? ? ? 模塊是 Access系統(tǒng)中的一個(gè)重要對(duì)象，它以VBA(Visual Basic for Application)語言為基礎(chǔ)編寫，以函數(shù)過程 (Function)或子過程 (Sub)為單元的集合方式存儲(chǔ)。 ? 模塊具有很強(qiáng)的通用性，窗體、報(bào)表等對(duì)象都可以調(diào)用模塊內(nèi)部的過程。 ?在 Access中，模塊分為： ?1. 類模塊 ?2. 標(biāo)準(zhǔn)模塊 標(biāo)準(zhǔn)模塊，它獨(dú)立存放于數(shù)據(jù)庫中，供其他對(duì)象調(diào)用；類模塊，為事件過程的集合，用于響應(yīng)窗體或窗體控件的各個(gè)事件。 一個(gè)標(biāo)準(zhǔn)模塊 一個(gè)類模塊 ? 過程是模塊的組成單元，由 VBA代碼編寫而成。過程的語法結(jié)構(gòu)如下： Sub 過程名稱 () 聲明變量 基本語句 End Sub ? 2. 函數(shù) ? 函數(shù)不僅能執(zhí)行一定的命令，還能根據(jù)參數(shù)計(jì)算出對(duì)程序有用的數(shù)值，并且可以在表達(dá)式中被引用。 ? 字符串?dāng)?shù)據(jù)類型分為 定長(zhǎng)字符串 和 變長(zhǎng)字符串 。 ? 例：“ 123”、“ AS123”、“東華理工大學(xué)” 。 ? 整型數(shù)據(jù)占 2字節(jié)空間，其范圍為－ 32768～32767。 ? 單精度浮點(diǎn)型數(shù)據(jù)存儲(chǔ)空間也為 4字節(jié) 32位。 （ 3）布爾型（ Boolean） 布爾（ Boolean）數(shù)據(jù)類型是一個(gè)邏輯值，用 2字節(jié)存儲(chǔ)，它的取值只有 True或 False。 ?當(dāng)轉(zhuǎn)換 Boolean值為其他的數(shù)據(jù)類型時(shí)， False成為 0，而 True成為 1。定義日期類型時(shí)必須用 “ ” 符括起來 。午夜為 0而中午 。 （ 5）貨幣型（ Currency） 該類型以 8字節(jié)（ 64位）進(jìn)行存儲(chǔ)，并且小數(shù)點(diǎn)位數(shù)是固定的。 ?這種類型的數(shù)據(jù)可以靈活地轉(zhuǎn)換為任何數(shù)據(jù)類型，當(dāng)它被賦予不同值時(shí)，將自動(dòng)進(jìn)行類型的轉(zhuǎn)換。 （ 7）用戶自定義型 ?該數(shù)據(jù)類型可以包含一個(gè)或多個(gè)數(shù)據(jù)類型。再將某一個(gè)學(xué)生的信息輸入到這個(gè)自定義數(shù)據(jù)類型的變量中。用來保存在程序運(yùn)行期間數(shù)據(jù)。在 VBA中有三類常量： ?直接 常量 ，如： 34 、 23等； ?固有常量，如： acForm、 adAddNew、vbCuruency等； ?系統(tǒng)定義常量，如 True、 False、 Null等。 VBA中使用關(guān)鍵字 Const 聲明符號(hào)常量 。 Const p = Sub area() Dim r As Integer Dim s As Single p = r = InputBox(請(qǐng)輸入半徑 ) s = p * r * r s End Sub 思考 ： 此程序是否正確？ 變量與常量的區(qū)別？ （二）變量 程序運(yùn)行過程中，值可以改變的量 。 變量聲明 使用變量之前，一般必須 先聲明變量 。此時(shí)變量名與類型符之間 不能有空格。 長(zhǎng)整型 ！ 單精度型 雙精度型 貨幣型 $ 字符串型 ② 一個(gè) Dim語句可以同時(shí)定義多個(gè)變量，但每個(gè)變量必須有自己的類型聲明， 類型聲明不能共用 ，否則為變體型 。 練習(xí)： Dim p1 as string , p5 as string 與語句： Dim p1,p5 as string的區(qū)別？ ③ 對(duì)字符串變量，根據(jù)其存放的字符串長(zhǎng)度是否固定，其定義方法有兩種： Dim 字符串變量名 AS String Dim 字符串變量名 AS Strint*字符數(shù) 例： Dim s1 As String ?聲明 變長(zhǎng) 字符串 Dim s2 As String*50 ?聲明 定長(zhǎng) 字符串變量，可存放 50個(gè)字符 練習(xí)： 以下對(duì)變量的聲明中，不正確的是（ ） A)Dim xinxizhongxin as integer B)Dim b as integer C)Dim x_x as integer D)Dim yy as integer 下列符號(hào)中， ( )不是 VBA的合法變量名。 ?表達(dá)式是由運(yùn)算符、函數(shù)和數(shù)據(jù)等內(nèi)容組合而成。 算術(shù)運(yùn)算符 ?+ 加、 減 、 * 乘 、 / 除 ? \ 整除、 MOD求余 、 ^乘方 練習(xí)： 4+5\6*7/8 MOD 9 示例與優(yōu)先級(jí) MOD （求余運(yùn)算符） ? 如果 操作數(shù)是小數(shù) ,系統(tǒng)會(huì) 四舍五入變成整數(shù) 后再運(yùn)算； ? 如果被除數(shù)是負(fù)數(shù) ,余數(shù)也是負(fù)數(shù) ,反之 ,如果被除數(shù)是正數(shù) ,余數(shù)也是正數(shù)。 注意： 字符串比較 ,則按字符的 ASCII碼值從左到右一一比較，直到出現(xiàn)不同的字符為止 。：可以將不同類型變量連接成字符串 注意： + 兩旁的操作數(shù)應(yīng)均為字符型； 1)數(shù)值型 :則進(jìn)行算術(shù)加運(yùn)算。 3)一個(gè)為非數(shù)字字符，另一個(gè)為數(shù)值型，出錯(cuò)。 456 結(jié)果 123456 使用＆ 與 +的區(qū)別： abcdef amp。 456 結(jié)果為 123456 123 + 456 結(jié)果為 579 邏輯運(yùn)算符及其表達(dá)式 ? 將操作數(shù)進(jìn)行邏輯運(yùn)算，結(jié)果是邏輯值 表達(dá)式 書寫規(guī)則 (1) 運(yùn)算符不能相鄰。 (2) 乘號(hào)不能省略。 (3) 括號(hào)必須成對(duì)出現(xiàn)，均使用圓括號(hào)。 ? 其 VBA表達(dá)式為： (b+Sqr(b^24*a*c))/(2*a) acabb??????242 1+2=3 and (aamp。 例： INT()=12 INT()=13 ?Fix(數(shù)值表達(dá)式 ) ?Round(數(shù)值表達(dá)式 [,m]) 功能：四舍五入函數(shù)。 （ 即包括 0，但不包括 1） 例： 產(chǎn)生 [0 ,100)之間的雙精度數(shù)： Rnd*100 產(chǎn)生 [0， 99]的隨機(jī)整數(shù)： Int（ 100 * Rnd )； 產(chǎn)生 [0， 100]的隨機(jī)整數(shù)： Int（ 101 * Rnd )； 產(chǎn)生 [1， 100]的隨機(jī)整數(shù)： Int (100 * Rnd + 1 ) 如果要產(chǎn)生 [3050]之間的隨機(jī)數(shù)？ 2. 字符串函數(shù) ? Len(字符串表達(dá)式 或 變量名 ) ? Left(字符串表達(dá)式 ,N) ? Right(字符串表達(dá)式 ,N) ? Mid(字符串表達(dá)式 ,N1,N2) ?instr(起始位置，字串 1，字串 2，比較方式 )，功能：返回字串 2在字串