1、u了解模塊的概念與基本操作。u掌握模塊和過程的創(chuàng)建方法。u掌握VBA的基礎(chǔ)知識(shí)。u掌握VBA程序設(shè)計(jì)中的流程控制方法。u掌握VBA程序的編輯運(yùn)行第第7章章 VBA編程基礎(chǔ)編程基礎(chǔ)宏：借助宏對象可以處理一些簡單的操作，如打開和關(guān)閉窗體、報(bào)表等。對于復(fù)雜條件和循環(huán)等結(jié)構(gòu)則無能為力。模塊：解決一些實(shí)際開發(fā)活動(dòng)中的復(fù)雜應(yīng)用。例：（30）在Access中，如果要處理具有復(fù)雜條件或循環(huán)結(jié)構(gòu)的操作，則應(yīng)該使用的對象是A)窗體 B)模塊 C)宏 D)報(bào)表7.1 VBA的編程環(huán)境VB是Microsoft公司開發(fā)的可視化的編程軟件，VBA（Visual Basic for Application）語言是在此基礎(chǔ)上

2、集成在Office辦公軟件中的可視化的編程軟件。在Access2010中，進(jìn)入VBA的編程環(huán)境的方式：1.在“數(shù)據(jù)庫工具”選項(xiàng)卡中，單擊“宏”命令組中的“Visual Basic”命令按鈕。2.單擊“創(chuàng)建”選項(xiàng)卡，再在“宏與代碼”命令組中單擊“Visual Basic”命令按鈕。3.在窗體設(shè)計(jì)視圖或報(bào)表設(shè)計(jì)視圖中，單擊“窗體設(shè)計(jì)工具/設(shè)計(jì)”選項(xiàng)卡或“報(bào)表設(shè)計(jì)工具/設(shè)計(jì)”選項(xiàng)卡，再在“工具”命令組中單擊“查看代碼”命令按鈕。4.在窗體、報(bào)表的設(shè)計(jì)視圖中，右鍵單擊控件對象，再在打開的快捷菜單中選擇“事件生成器”命令，打開“選擇生成器”對話框，選擇其中的“代碼生成器”選項(xiàng)，單擊“確定”按鈕?；騿螕簟?/p>

3、屬性表”對話框中的“事件”選項(xiàng)卡，選中某個(gè)事件并單擊屬性框右邊的省略號(hào)按鈕，也可以打開“選擇生成器”對話框，選擇其中的“代碼生成器”選項(xiàng)，單擊“確定”按鈕。5. 使用AltF11組合鍵，可以在Access主窗口和VBA的編程環(huán)境之間進(jìn)行切換。VBA的開發(fā)環(huán)境，如圖所示。主窗口工程資源管理器窗口屬性窗口代碼窗口立即窗口VBA編程環(huán)境窗口的組成VBA編程環(huán)境的窗口除主窗口外，主要由工程資源管理器窗口、屬性窗口、代碼窗口和立即窗口等組成，另外還有對象窗口、對象瀏覽器、本地窗口和監(jiān)視窗口等，可以通過VBE“視圖”菜單中的相應(yīng)命令來控制這些窗口的顯示。(1) 主窗口主窗口有菜單欄和工具欄。菜單欄包括文件

4、、編輯、視圖、插入、調(diào)試、運(yùn)行、工具、外接程序、窗口和幫助10個(gè)菜單項(xiàng)，其中包含了各種操作命令。(2)工程資源管理器窗口工程資源管理器窗口列出了在應(yīng)用程序中用到的模塊。使用該窗口，可以在數(shù)據(jù)庫內(nèi)各個(gè)對象之間快速地瀏覽。各對象以樹形圖的形式分級顯示在窗口中，包括Access類對象、模塊和類模塊。要查看對象的代碼，只需在該窗口中雙擊對象即可。要查看對象的窗體，可以右鍵單擊對象名，然后在彈出的快捷菜單中選擇“查看對象”命令。(3)屬性窗口屬性窗口列出了所選對象的各種屬性，可按字母和分類排序來查看屬性?？梢灾苯釉趯傩源翱谥袑@些屬性進(jìn)行編輯，還可以在代碼窗口中用VBA語句設(shè)置對象的屬性。(4)代碼窗口

5、在代碼窗口中可以輸入和編輯VBA代碼?？梢源蜷_多個(gè)代碼窗口來查看各個(gè)模塊的代碼，而且可以方便地在代碼窗口之間進(jìn)行復(fù)制和粘貼。在代碼窗口的頂部是兩個(gè)下拉列表框，左邊是對象下拉列表框，右邊是事件下拉列表框。對象下拉列表框中列出了所有可用的對象名稱，選擇某一個(gè)對象后，在事件下拉列表框中將列出該對象所有的事件。對象事件(5)立即窗口立即窗口常用于程序在調(diào)試期間輸出中間結(jié)果及幫助用戶在中斷模式下測試表達(dá)式的值等，也可以在立即窗口中直接輸入VBA命令并按Enter鍵，值此后VBA會(huì)實(shí)時(shí)解釋并執(zhí)行該命令例如:用戶可在立即窗口中利用？或print命令或debug.print輸出表達(dá)式的值。7.2模塊簡介 模塊

6、是Access系統(tǒng)中的一個(gè)重要對象，它以VBA（Visual Basic Application）語言為基礎(chǔ)編寫，以函數(shù)過程(Function)和子過程(Sub)為單元的集合方式存儲(chǔ)。在Access中，模塊分為類模塊和標(biāo)準(zhǔn)模塊。7.2.1類模塊：窗體和報(bào)表模塊都屬于類模塊，它們從屬于各自的窗體和報(bào)表。7.2.2標(biāo)準(zhǔn)模塊：一般用于存放供其他Access數(shù)據(jù)庫對象使用的公共過程。每個(gè)標(biāo)準(zhǔn)模塊有唯一的名稱，在導(dǎo)航窗格的“模塊”對象中，可以查看數(shù)據(jù)庫中的標(biāo)準(zhǔn)模塊。7.2.3 模塊的創(chuàng)建1創(chuàng)建模塊的方法模塊的創(chuàng)建有以下幾種方法。單擊“創(chuàng)建”選項(xiàng)卡，再在“宏與代碼”命令組中單擊“模塊”或“類模塊”命令按鈕

7、，打開VBA的編程環(huán)境窗口并建立一個(gè)新的模塊。在VBA的編程窗口中，選擇“插入”“模塊”菜單命令可以創(chuàng)建新的標(biāo)準(zhǔn)模塊；選擇“插入”“類模塊”菜單命令可以創(chuàng)建新的類模塊。過程是模塊的主要單元組成，由VBA代碼編寫而成，過程分兩種類型，Sub子過程和Function函數(shù)過程。一個(gè)模塊包含一個(gè)聲明區(qū)域，且可以包含一個(gè)或多個(gè)子過程（以sub開頭）或函數(shù)過程（ 以Function開頭 ）。模塊的聲明區(qū)域用來聲明模塊使用的變量等項(xiàng)目。（1）Sub 過程稱為子過程，執(zhí)行一系列的操作，無返回值，定義格式如下：Sub 過程名 程序代碼End Sub引用：直接引用過程名或使用關(guān)鍵字Call （2）Function

8、 過程又稱為函數(shù)過程，執(zhí)行一系列的操作，有返回值，定義格式如下：Function 過程名 As (返回值)類型 程序代碼End Function函數(shù)過程不能使用Call來調(diào)用，需要直接引用函數(shù)過程名。舉例：創(chuàng)建模塊之Sub過程Private Sub Command4_Click() Dim x As Integer Dim y As Integer x = Text0 把文本框0的值賦值給x y = Text2 把文本框2的值賦值給y Call swap(x, y) 調(diào)用過程swap，或者使用格式 swap x,y Text0 = x 把交換后的x值重新賦值給文本框0 Text2 = y 把交

9、換后的y值重新賦值給文本框2End SubPublic Sub swap(a As Integer, b As Integer) 定義一個(gè)過程,實(shí)現(xiàn)2個(gè)數(shù)的交換 Dim temp As Integer 定義一個(gè)臨時(shí)變量 temp = a 把a(bǔ)的值賦值給temp a = b 把b的值賦值給a b = temp 把temp的值賦值給bEnd SubFunction FirstOfNextMonth() 定義一個(gè)函數(shù),返回下一個(gè)月的第一天 FirstOfNextMonth = DateSerial(Year(Now), Month(Now) + 1, 1)End Function引用：引用：（29）

10、Sub 過程與 Function 過程最根本的區(qū)別是A）Sub過程的過程名不能返回值，而Function過程能通過過程名返回值B）Sub 過程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以C）兩種過程參數(shù)的傳遞方式不同D）Function過程可以有參數(shù)，Sub過程不可以A 1、創(chuàng)建應(yīng)用程序界面。 2、設(shè)置屬性。 3、編寫事件代碼。 4、運(yùn)行和調(diào)試 5、保存文件事件(event)：是發(fā)生在控件對象上且可以辨認(rèn)的動(dòng)作，如像單擊鼠標(biāo)或按下某鍵等事件過程 Private Sub Command7_Click() . End Sub Sub表示定義一個(gè)過程。 End Sub表示該

11、過程的結(jié)尾處。 Command7_Click()表示過程名稱，在access中，過程名為： 控件名稱_事件名稱()，過程名后必須有一個(gè)( )。 Command7為按鈕的名稱，Click為單擊事件。 例一： 創(chuàng)建一個(gè)簡單應(yīng)用程序，該應(yīng)用程序由一個(gè)文本框和一個(gè)命令按鈕組成。單擊命令按鈕，文本框中會(huì)出現(xiàn) Hello , world! 消息。 Private Sub cmd1_Click() txt1.Value = Hello World!End SubPrivate Sub Form_Load()txt1.Value = txt1.FontSize = 20txt1.FontItalic = Tr

12、uetxt1.FontBold = Truetxt1.BackColor = vbBluecmd1.FontSize = 20cmd1.FontBold = TrueMe.Caption = 程序設(shè)計(jì)之一程序設(shè)計(jì)之一End Sub例二： 編寫一個(gè)簡單程序。要求：在窗體上創(chuàng)建一個(gè)文本框控件、三個(gè)命令按鈕控件，命令按鈕的標(biāo)題分別設(shè)置為“顯示”、“隱藏”和“關(guān)閉”。 單擊“隱藏”按鈕后文本框消失； 單擊“顯示”按鈕顯示出文本框； 單擊“關(guān)閉”結(jié)束程序執(zhí)行。 Private Sub cmd1_Click() 隱藏隱藏 txt1.Visible = FalseEnd Sub Private Sub cm

13、d3_Click() 顯示顯示 txt1.Visible = TrueEnd SubPrivate Sub cmd2_Click() 關(guān)閉關(guān)閉 DoCmd.CloseEnd SubPrivate Sub Form_Load() txt1.Value = 歡迎使用歡迎使用VB創(chuàng)建程序！創(chuàng)建程序！ txt1.BackColor = vbBlue txt1.ForeColor = vbWhite txt1.FontSize = 20 Me.Caption = 程序設(shè)計(jì)之二程序設(shè)計(jì)之二 txt1.Visible = FalseEnd Sub部分事件過程部分事件過程對象對象 事件事件說明說明格式格式窗體

14、窗體Onload加載時(shí)加載時(shí)Private Sub Form_Load()OnUnload卸載時(shí)卸載時(shí)Private Sub Form_UnLoad()OnOpen打開時(shí)打開時(shí)Private Sub Form_Open ()OnClose關(guān)閉時(shí)關(guān)閉時(shí)Private Sub Form_Close ()OnClick單擊時(shí)單擊時(shí)Private Sub Form_Click()OnDblClick雙擊時(shí)雙擊時(shí)Private Sub Form_DblClick(Cancel As Integer)報(bào)表報(bào)表OnOpen報(bào)表打報(bào)表打開時(shí)開時(shí)Private Sub Report_Open(Cancel As

15、 Integer)OnClose報(bào)表關(guān)報(bào)表關(guān)閉時(shí)閉時(shí)Private Sub Report_Close()命命 令令按按鈕鈕OnClick單擊按鈕時(shí)單擊按鈕時(shí)Private Sub Command1_Click()OnDblClick雙擊按鈕時(shí)雙擊按鈕時(shí)Private Sub 對象對象_DblClick(Cancel As Integer)MouseUp鼠標(biāo)釋放時(shí)鼠標(biāo)釋放時(shí)Private Sub對象對象_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)MouseDown鼠標(biāo)按下時(shí)鼠標(biāo)按下時(shí)Private

16、Sub對象對象_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)MouseMove鼠標(biāo)移動(dòng)時(shí)鼠標(biāo)移動(dòng)時(shí)Private Sub對象對象_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 文文本本框框BeforeUpdate內(nèi)容更新前內(nèi)容更新前Private Sub 對象對象_BeforeUpdate(Cancel As Integer)AfterUpdate內(nèi)容更新后內(nèi)容更新后Private Sub 對象對

17、象_AfterUpdate()OnEnter獲取焦點(diǎn)后獲取焦點(diǎn)后Private Sub 對象對象_Enter()OnGetFoucs獲取焦點(diǎn)時(shí)獲取焦點(diǎn)時(shí)Private Sub 對象對象_GotFocus()OnLostFoucs失去焦點(diǎn)時(shí)失去焦點(diǎn)時(shí)Private Sub 對象對象_LostFocus()OnChange內(nèi)容更新時(shí)內(nèi)容更新時(shí)Private Sub 對象對象_Change().5面向?qū)ο蟪绦蛟O(shè)計(jì)面向?qū)ο蟪绦蛟O(shè)計(jì)的基本概念的基本概念1、Access對象 一個(gè)對象就是一個(gè)實(shí)體，例如一輛自行車或一個(gè)人。每種對象都具有一些屬性以相互區(qū)分。Access根對象有6個(gè)，如表所示

18、： 對象名說明Application應(yīng)用程序，即Access環(huán)境。DBEngine數(shù)據(jù)庫管理系統(tǒng)，表對象、查詢對象、記錄對象、字段對象等都是它的子對象。Debug立即窗口對象，在調(diào)試階段可用其Print方法在立即窗口顯示輸出信息。Forms所有處于打開狀態(tài)的窗體所構(gòu)成的對象。Reports所有處于打開狀態(tài)的報(bào)表所構(gòu)成的對象。Screen屏幕對象。2、對象的屬性 是對象或?qū)嶓w的特征； 在程序代碼中，則通過賦值的方式來設(shè)置對象的屬性，其格式為：對象.屬性 = 屬性值 例如：Label1.Caption = 學(xué)生成績表3、對象的事件 對于對象而言，事件就是發(fā)生在該對象上的事情或消息。系統(tǒng)為每個(gè)對象預(yù)

19、先定義好了一系列的事件，例如，Click（單擊）、DblClick（雙擊）等。 (p351附錄5)例如：Private Sub Command1_Click() Text1.FontSize = 14 End Sub 4、對象的方法、對象的方法 方法是是附屬于對象的行為和動(dòng)作，是一些系統(tǒng)封裝起來的通用過程系統(tǒng)封裝起來的通用過程和函數(shù)和函數(shù)，以方便用戶的調(diào)用。對象方法的調(diào)用格式為： 對象.方法 參數(shù)名表 例如：Debug.Print 2+3在vba中用的最多是DoCmd對象的一些方法。使用DoCmd對象的方法，可以運(yùn)行Access的操作，如執(zhí)行打開窗體（OpenForm）、關(guān)閉窗體（Close）

20、、SelectObject（指定數(shù)據(jù)庫對象）等。 當(dāng)某一個(gè)事件發(fā)生時(shí)，方法被執(zhí)行（28）能被對象所識(shí)別的動(dòng)作和對象可執(zhí)行的活動(dòng)分別稱為對象的A）方法和事件 B）事件和方法 C）事件和屬性 D）過程和方法B例 在“教學(xué)管理”數(shù)據(jù)庫中創(chuàng)建一個(gè)標(biāo)準(zhǔn)模塊。操作步驟：進(jìn)入VBA的編程環(huán)境。在代碼窗口中輸入一個(gè)名為“qq”的子過程，然后在立即窗口中輸入命令“Call qq()”，或單擊窗口“標(biāo)準(zhǔn)”工具欄中的“運(yùn)行子過程/用戶窗體”命令按鈕，或從“運(yùn)行”菜單中選擇相應(yīng)命令來運(yùn)行該過程，隨后可以看到該過程的運(yùn)行結(jié)果。在窗口中單擊“標(biāo)準(zhǔn)”工具欄中的“保存”按鈕，并輸入模塊名稱將模塊存盤，這樣一個(gè)標(biāo)準(zhǔn)模塊就建好了

21、，回到Access導(dǎo)航窗格中可以看到建好的模塊對象。聲明區(qū)域過程或函數(shù)區(qū)域例：創(chuàng)建一個(gè)窗體類模塊在“教學(xué)管理”數(shù)據(jù)庫中創(chuàng)建如圖9-3所示的窗體，窗體中包含兩個(gè)文本框和相應(yīng)的標(biāo)簽及兩個(gè)命令按鈕。單擊第1個(gè)命令按鈕時(shí)將第1個(gè)文本框中的內(nèi)容顯示在第2個(gè)文本框中，單擊第2個(gè)命令按鈕時(shí)關(guān)閉該窗體。事件對象屬性方法屬性值（34）窗體上添加有3個(gè)命令按鈕，分別命名為Command1、Command2和Command3。編寫Command1的單擊事件過程，完成的功能為：當(dāng)單擊按鈕Command1時(shí)，按鈕Command2可用，按鈕Command3不可見。以下正確的是C當(dāng)引用對象的多個(gè)屬性時(shí)，可使用WithEnd

22、 With結(jié)構(gòu)，而不需要重復(fù)指出對象的名稱。例如，如果要給命令按鈕Cmd1的多個(gè)屬性賦值，可表示為With Cmd1.Caption確定.Height2000.Width2000End With在模塊的過程定義中，可以使用Docmd對象的Runmacro方法，執(zhí)行設(shè)計(jì)好的宏，運(yùn)行宏格式：Docmd.Runmacro “宏名”7.3 VBA程序設(shè)計(jì)基礎(chǔ)7.3.1程序語句書寫規(guī)則(1)注釋語句在VBA程序中，注釋可以通過以下兩種方式實(shí)現(xiàn)u 使用Rem語句，格式為：Rem 注釋語句u 使用單引號(hào)“”，格式為： 注釋語句例7.1 定義變量并賦值Rem 定義兩個(gè)變量Dim str1,str2 Str1=

23、“beijing” :Rem 注釋在語句之后要用冒號(hào)隔開Sre2=“shanghai” 這也是一條注釋，這時(shí)無需使用冒號(hào)隔開注釋可以添加到程序模塊的任何位置，并且默認(rèn)以綠色文本顯示。(2)語句連寫和換行在一行中寫幾條語句，這時(shí)語句之間需要用冒號(hào)“：”來分隔。對于太長的語句，可能一行寫不完，可以用續(xù)行符“_”將其截?cái)酁槎嘈?，此為語句的換行。(3)采用縮進(jìn)格式書寫程序采用縮進(jìn)格式可以明確示意出程序中語句的結(jié)構(gòu)層次，可以利用VBE的“編輯”“縮進(jìn)”或“凸出”菜單命令進(jìn)行設(shè)置。（29）VBA程序的多條語句可以寫在一行中，其分隔符必須使用符號(hào)A）:B）C）;D）,A基本類型字符串型 String $數(shù)值

24、型浮點(diǎn)數(shù)單精度型 Single(4字節(jié)）!整型 Integer（2字節(jié)）%長整型 Long（4字節(jié)) &貨幣 Currency（8字節(jié)）整數(shù)變體 Variant字節(jié) Byte（1字節(jié)） 布爾 Boolean（2字節(jié)）(true 或false） 日期 Date （8字節(jié)）對象 Object雙精度型 double(8字節(jié))#Variant數(shù)據(jù)類型是一種特殊數(shù)據(jù)類型，具有很大的靈活性，可以表示多種數(shù)據(jù)類型，其最終的數(shù)據(jù)類型由賦予它的值來確定。如果變量在使用前未加以類型說明，默認(rèn)為Variant型。2用戶自定義數(shù)據(jù)類型VBA允許用戶自定義數(shù)據(jù)類型，使用Type語句就可以實(shí)現(xiàn)這個(gè)功能。用戶自定義數(shù)據(jù)類型

25、可包含一個(gè)或多個(gè)某種數(shù)據(jù)類型的數(shù)據(jù)元素。Type語句的語法格式為:Type 數(shù)據(jù)類型名 數(shù)據(jù)元素定義語句End Type例7.2 定義一個(gè)學(xué)生信息數(shù)據(jù)類型Type newstudent txtno as string *7 txtname as string txtsex as string *1 txtage as integer end type7.3.3 常量與變量1符號(hào)常量常量是指在程序運(yùn)行的過程中其值不會(huì)發(fā)生變化的數(shù)據(jù).VBA編程過程中，對于一些使用頻率較高的常量，可以用符一號(hào)常量形式來表示。符號(hào)常量使用關(guān)鍵字Const來定義，格式如下： Const 符號(hào)常量名稱 常量值 例如：Co

26、nst PI=3.14159 定義了一個(gè)符號(hào)常量PI 2. 變量： 是指程序運(yùn)行時(shí)值會(huì)發(fā)生變化的數(shù)據(jù)。在VBA代碼中，變量名的命名有如下規(guī)定： .最長只能有 255 個(gè)字符。 .必須用字母開頭。 .可以包含字母、數(shù)字或下劃線字符 (_)。 .不能包含標(biāo)點(diǎn)符號(hào)或空格等。 .不能是 Visual Basic 關(guān)鍵字。關(guān)鍵字是那些在 Visual Basic 中用作語言的一部分的詞，包括預(yù)定義語句（如 If 和 Loop）、函數(shù)（如 Len 和 Abs）和運(yùn)算符（如 Or 和 Mod）。2010.9（27）下列變量名中，合法的是A)4A B)A-1 C)ABC_1 D)privateC3. 變量的聲

27、明 使用變量前，應(yīng)首先定義所用到的變量（包括變量名和類型），使系統(tǒng)分配相應(yīng)的內(nèi)存空間，并確定該空間可存儲(chǔ)的數(shù)據(jù)類型。VBA聲明變量有兩種方法 （1）顯式聲明Dim 變量名 as 數(shù)據(jù)類型|類型符,變量名 as 數(shù)據(jù)類型|類型符例：dim a as integer a為整型變量 dim a%, sum! a為整型變量，sum為單精度型變量（2）隱含聲明Dim 變量名1，變量名2，例 dim m，n m 、n為變體 variant 變量（34）在VBA中，如果沒有顯式聲明或用符號(hào)來定義變量的數(shù)據(jù)類型，變量的默認(rèn)數(shù)據(jù)類型為A）BooleanB）IntC）StringD）Variant注意:若把多個(gè)變

28、量都定義成同一類型，例如：把X，Y，Z都定義成雙精度型，必須寫成： Dim X as double，Y as double，Z as double如果寫成：Dim x，y，z as double 則x，y 定義成可變類型，z 定義成雙精度型。D字符串變量定義Dim s1As String , s2 As String , s3 As String s1 = 世界你好 s2 = Hello s3 = s1 & s2Visual Basic中的字符串分為變長字符串和定長字符串，用As String可以定義變長字符串，也可以定義定長字符串。例如：Dim s1 As String(把s1定義為變長字符

29、串)Dim s2 As String*10(定長字符串,長度為10個(gè)字節(jié))(33)在窗體中有一個(gè)標(biāo)簽Lb1和一個(gè)命令按鈕Command1，事件代碼如下： Option Compare Database Dim a As String*10 Private Sub Command1_Click() a=1234 b=Len(a) Me.Lb1.Caption=bEnd Sub打開窗體后單擊命令按鈕，窗體中顯示的內(nèi)容是 A)4 B)5 C)10 D)4010Len( 或):返回字符串所含字符數(shù)，注意，定長字符串其長度是定義時(shí)的長度，與字符串的實(shí)際值無關(guān)。Visual Basic允許用戶不聲明變量而

30、直接使用, 就是默認(rèn)聲明。所有默認(rèn)聲明的變量都是Variant數(shù)據(jù)類型。例如：Private Sub Form_Click() Total = 0 a = 10: b = 20 Total = a + b Print Total=; TotalEnd Sub 良好的編程習(xí)慣都應(yīng)該是先聲明變量，后使用變量，這樣做可以提高程序的效率，同時(shí)也使程序易于調(diào)試。Visual Basic 中可以強(qiáng)制顯式聲明，可以在窗體模塊、標(biāo)準(zhǔn)模塊和類模塊的通用聲明段中加入語句： Option Explicit表示強(qiáng)制變量必須先定義才能使用！4. 變量的作用域在VBA編程中，變量定義的位置和方式不同，則它存在的時(shí)間和起的

31、作用范圍有所不同，這就是變量的作用域與生命周期，在VB中變量的作用域有三個(gè)層次，1)局部范圍 變量定義在模塊的過程內(nèi)部，只有在聲明它們的過程中才能被識(shí)別，也稱它們?yōu)榫植孔兞?。用Dim或者Static關(guān)鍵字來聲明它們。例如：Dim V1 As Integer 或 Static V1 As Integer在整個(gè)應(yīng)用程序運(yùn)行時(shí)，用Static聲明的局部變量中的值一直存在，而用Dim聲明的變量只在過程執(zhí)行期間才存在。2）模塊范圍 變量定義在模塊的所有過程之外的起始位置，模塊級變量對該模塊的所有過程都可用，但對其他模塊的代碼不可用。在模塊的通用說明區(qū)，用dim、static、private定義的變量都是

32、模塊范圍例如； Private V1 As Integer3）全局范圍變量定義在標(biāo)準(zhǔn)模塊的所有過程之外的起始位置，變量在其他模塊也有效，可用Public關(guān)鍵字聲明變量。公用變量中的值可用于應(yīng)用程序的所有過程。用戶不能在過程中聲明公用變量，例如：Public V1 As Integer(30)在Access中，如果變量定義在模塊的過程內(nèi)部，當(dāng)程序代碼執(zhí)行時(shí)才可見，則這種變量的作用域?yàn)锳)程序范圍 B)全局范圍 C)模塊范圍 D)局部范圍D （35）在窗體中添加一個(gè)名稱為Command1的命令按鈕，然后編寫如下程序：Public x As IntegerPublic x As IntegerPri

33、vate Sub Command1_Click( ) x = 10 Call s1 Call s2 MsgBox xEnd SubPrivate Sub s1( ) x = x + 20End SubPrivate Sub s2( ) Dim x As Integer x = x + 20End Sub窗體打開運(yùn)行后，單擊命令按鈕，則消息框的輸出結(jié)果為A）10B）30C）40D）50BD如果去掉這句，結(jié)果為本題考查考生對VBA代碼中子程序調(diào)用及變量的定義。在程序中，首先將x定義為公共變量，并賦值為10，然后調(diào)用子過程s1后，變量x加20后重新賦值給變量x，此時(shí)x=30；返回主程序后，再次調(diào)用子

34、過程s2，但在s2中首先定義了一個(gè)獨(dú)立的變量（使用DimAs關(guān)鍵字定義x），獨(dú)立變量只能在過程中訪問，完成過程后，變量失效，變量的值消失，下次調(diào)用該過程，需重新聲明。然后對該變量賦值（x=x+20），此時(shí)公共變量x的值未變，所以消息框中顯示為30（從子過程s1傳回的）。 故本題答案選B。（11）在窗體中添加一個(gè)命令按鈕（名稱為Command1），然后編寫如下代碼： Private Sub Command1_Click( ) Static b As Integer b=b+1 End Sub 窗體打開運(yùn)行后，三次單擊命令按鈕后，變量b的值是_。3 Access建立的數(shù)據(jù)庫對象及其屬性，均可被看成

35、是VBA程序代碼中的變量及其指定的值來加以引用。例如，Access中窗體與報(bào)表對象的引用格式為：Forms!窗體名稱!控件名稱.屬性名稱Reports!報(bào)表名稱!控件名稱.屬性名稱6.數(shù)組變量數(shù)組是一組具有相同數(shù)據(jù)類型的數(shù)據(jù)所構(gòu)成的集合，而其中單個(gè)的數(shù)據(jù)稱為數(shù)組元素。 ( 1)聲明數(shù)組 格式：Dim 數(shù)組名(n) as 數(shù)據(jù)類型 Dim 數(shù)組名(m to n) as 數(shù)據(jù)類型 n是數(shù)組的下標(biāo)上界，m是數(shù)組的下標(biāo)下界，m可以省略，如省略表 示0(下標(biāo)下界的默認(rèn)值為0)，數(shù)組共有n-m+1個(gè)元素。舉例 Dim a(2 to 5) as integer 說明：共有數(shù)組 a(2)、a(3)、a(4)、

36、a(5)四個(gè)元素 Dim b(5) as integer 說明：共有數(shù)組b(0)、b(1)、b(2)、b(3)、b(4)、b(5)六個(gè)元賦值 a(2)=10說明：將10賦值給a(2)元素 VBA也支持多維數(shù)組，可以在數(shù)組的下標(biāo)中加入多個(gè)數(shù)值，并以逗號(hào)分開，最多可以定義60維，二維數(shù)組 例如：Dim T（2，3）As Integer 定義了一個(gè)二維數(shù)組，名字為T，類型為Integer，該數(shù)組有3行（02）4列（03），占據(jù)12（34）個(gè)整型變量的空間，如圖所示。（33）定義了二維數(shù)組A(2 to 5,5)，該數(shù)組的元素個(gè)數(shù)為 A）20 B）24 C）25 D）36 2010.3 VBA中，在模塊

37、的聲明部分使用Option Base 1語句，可以將數(shù)組的默認(rèn)下標(biāo)下限由0改為1（29）在模塊的聲明部分使用“Option Base 1”語句，然 后定義二維數(shù)組A(2 to 5,5)，則該數(shù)組的元素個(gè)數(shù)為 A)20 B)24 C)25 D)36 2006.4（10）在使用Dim語句定義數(shù)組時(shí)，在缺省情況下數(shù)組下標(biāo)的下限為_。BA029.語句Dim NewArray(10) As Integer的含義是A)定義了一個(gè)整形變量且初值為10B)定義了10個(gè)整數(shù)構(gòu)成的數(shù)組 C)定義了11個(gè)整數(shù)構(gòu)成的數(shù)組D)將數(shù)組的第10個(gè)元素設(shè)置為整型2009.9(31)下列數(shù)組聲明語句中，正確的是A)Dim A

38、3,4 As Integer B) Dim A(3,4) As IntegerC)Dim A 3;4 As Integer D)Dim A(3;4) As IntegerCB數(shù)組分為固定大小數(shù)組和動(dòng)態(tài)數(shù)組兩種類型。若數(shù)組的大小被指定，則它是個(gè)固定大小數(shù)組；若程序運(yùn)行時(shí)數(shù)組的大小可以被改變，則它是個(gè)動(dòng)態(tài)數(shù)組。(1)聲明固定大小數(shù)組下面的語句聲明了一個(gè)固定大小數(shù)組。Dim MyArray(10) As Integer(2)聲明動(dòng)態(tài)數(shù)組可以利用Dim語句來聲明數(shù)組，不需給出數(shù)組大小。每當(dāng)需要時(shí)，可以使用ReDim語句去更改動(dòng)態(tài)數(shù)組，此時(shí)數(shù)組中存在的值會(huì)丟失。若要保存數(shù)組中原先的值，則可以使用ReDi

39、m Preserve語句來擴(kuò)充數(shù)組。Dim sngarry() as singleRedim sngarry(2)7.3.4 內(nèi)部函數(shù)內(nèi)部函數(shù)是VBA系統(tǒng)為用戶提供的標(biāo)準(zhǔn)過程，能完成許多常見運(yùn)算。根據(jù)內(nèi)部函數(shù)的功能，可將其分為數(shù)學(xué)函數(shù)、字符串函數(shù)、日期或時(shí)間函數(shù)、類型轉(zhuǎn)換函數(shù)和測試函數(shù)等。1數(shù)字函數(shù)（1）求絕對值格式：Abs(數(shù)值)功能：返回參數(shù)的絕對值 Abs(-10) 結(jié)果：10（2）取整部分格式：int(數(shù)值)功能：返回不大于參數(shù)的最大整數(shù)部分 Int(13.4) 結(jié)果：13 Int(13.6) 結(jié)果：13 Int(-13.6) 結(jié)果：-14（3）取整數(shù)部分函數(shù)，負(fù)數(shù)時(shí)返回大于等于參數(shù)的

40、第一個(gè)負(fù)數(shù)格式：fix(數(shù)值)功能：參數(shù)的整數(shù)部分 Fix(13.4) 結(jié)果：13 Fix(13.6) 結(jié)果：13 Fix(-13.6) 結(jié)果：-134）隨機(jī)函數(shù)格式：rnd(數(shù)值) 功能：產(chǎn)生一個(gè)01的隨機(jī)數(shù)(8)Int（-3.25）的結(jié)果是 。(31)表達(dá)式Fix（-3.25）和Fix（3.75）的結(jié)果分別是 A)-3，3 B)-4，3 C)-3，4 D)-4，4 2010.3（28）如果x是一個(gè)正的實(shí)數(shù)，保留兩位小數(shù)，將千分位四舍五入的表達(dá)式是A)0.01*Int（x+0.05） B) 0.01*Int（100*（x+0.005） C) 0.01*Int（x+0.005） D) 0.01

41、*Int（100*（x+0.05）-4AB隨機(jī)函數(shù)Rnd Rnd返回0 1）（即包括0，但不包括1）之間的雙精度隨機(jī)數(shù)。 Rnd*100Int (Rnd*100) Int (Rnd*(100) +1 Int (Rnd*6)+10 100）之間的雙精度數(shù)0 99之間的整數(shù)1 100之間的整數(shù)1 6之間的整數(shù)（28）在如下語句 s = Int(100*Rnd)執(zhí)行完畢后，s 的值是A）0，99的隨機(jī)整數(shù) B）0，100的隨機(jī)整數(shù)C）1，99的隨機(jī)整數(shù) D）1，100的隨機(jī)整數(shù)A2日期函數(shù)（1）當(dāng)前日期函數(shù)格式：date()功能：返回系統(tǒng)當(dāng)前日期（2）當(dāng)前時(shí)間函數(shù)格式：time()功能：返回系統(tǒng)當(dāng)前

42、時(shí)間（3）當(dāng)前日期時(shí)間函數(shù)格式：now()功能：返回系統(tǒng)的日期和時(shí)間（4）取出年份函數(shù)格式：year(日期)功能：取出日期中的年份，整型Year(date() 結(jié)果：返回系統(tǒng)日期中的年份（5）取出日月份函數(shù)格式：month(日期)功能：取出括號(hào)日期中月份，整型。Month(date() 結(jié)果：返回系統(tǒng)日期中的月份。(6) 返回包含指定年月日的日期函數(shù)Dateserial(表達(dá)式1，表達(dá)式2，表達(dá)式3)返回由表達(dá)式1值為年，表達(dá)式2值為月，表達(dá)式3值為日組成的日期例：去年的5月2日 Dateserial(year(date()-1,5,2) 思考：D=#2014-8-27#則：Dateseria

43、l(year(D),month(D),0)=?2014/7/31給定日期DD，可以計(jì)算該日期當(dāng)月最大天數(shù)的正確表達(dá)式是A、Day(DD)B、Day(DateSerial(Year(DD),Month(DD),day(DD)C、Day(DateSerial(Year(DD),Month(DD),0)D、Day(DateSerial(Year(DD),Month(DD)+1,0)評析：DateSerial函數(shù)是返回指定年月日的日期。格式為DateSerial(表達(dá)式1、表達(dá)式2、表達(dá)式3)，如果表達(dá)式3為0，則DateSerial返回表達(dá)式2所寫前一個(gè)月的最后一天的日期。要返回當(dāng)月的最后一天的日期

44、，表達(dá)式2就要等于Month(DD)+1。所以本題答案是D。語法：DateDiff(interval, date1, date2) 功能：返回date1和date2之間按間隔類型所指定的時(shí)間間隔數(shù)目.DateDiff 函數(shù)語法中有下列命名參數(shù)： 參數(shù)描述interval必要,字符串表達(dá)式，表示用來計(jì)算date1 和 date2 的時(shí)間差的時(shí)間間隔Date1Date2必要；Variant (Date)。計(jì)算中要用到的兩個(gè)日期。interval 參數(shù)的設(shè)定值如下：參數(shù)參數(shù)返回的值返回的值yyyyyyyy年年q q季季m m月月y y一年的日數(shù)一年的日數(shù)d d日日w w一周的日數(shù)一周的日數(shù)wwww周

45、周h h時(shí)時(shí)n n分鐘分鐘s s秒秒當(dāng) interval 是“一周的日數(shù)”(w) 時(shí)，DateDiff 返回兩日期間的周數(shù)。如果 date1 是星期一，DateDiff 計(jì)算到 date2 為止的星期一的個(gè)數(shù)。這個(gè)數(shù)包含 date2 但不包含 date1。不過，如果 interval 是“周”(ww)，則 DateDiff 函數(shù)返回兩日期間的“日歷周”數(shù)。由計(jì)算 date1 與 date2 之間星期日的個(gè)數(shù)而得。（34）在窗體上有一個(gè)命令按鈕Command1，編寫事件代碼如下Private Sub Command1_Click() Dim d1 As Date Dim d2 As Date d

46、1 = #12/25/2009# d2 = #1/5/2010# MsgBox DateDiff(ww, d1, d2)End Sub打開窗體運(yùn)行后，單擊命令按鈕，消息框中輸出的結(jié)果是A)1 B)2 C)10 D)11B改為w，結(jié)果為13字符串函數(shù)（1）長度函數(shù) 格式：len(字符串) 功能：返回括號(hào)中字符串的長度，即字符串中字符的個(gè)數(shù)。 Len(welcome to Beijing) 結(jié)果：18 說明：包含2個(gè)空格。（2）轉(zhuǎn)換大小寫 格式：ucase(字符串)、 lcase（字符串） 功能：將字符串全部轉(zhuǎn)換為大小寫字母 Ucase(Beijing ) 結(jié)果：BEIJING（4）左邊截取 格式

47、：left（字符串，整數(shù)N） 功能：從字符串左邊截取N個(gè)字符 Left(beijing2008 ,7) 結(jié)果：beijing（5）右邊截取 格式：right（字符串，整數(shù)N） 功能：從字符串右邊截取N個(gè)字符。 Right(beijing2008,4) 結(jié)果：2008（6）中間截取字符串 格式：mid（字符串，開始位置N1，截取長度N2） 功能：從字符串左邊第N1個(gè)位置開始截取N2個(gè)字符串 Mid(“北京歡迎你”,3,2) 結(jié)果：歡迎 3字符串函數(shù)（7）刪除左邊空格 格式：ltrim(字符串) 功能：刪除字符串左邊空格 Ltrim( welcome to beijing) 結(jié)果：welcome

48、to Beijing（8）刪除右邊空格 格式：rtrim（字符串） 功能：刪除字符串右邊空格（9）刪除兩邊空格 格式：trim(字符串) 功能：刪除字符串開始和尾部空格。（10）字符串查找 格式：instr(N，str1，str2) 功能：在str1中從N位置開始查找str2，返回首次出現(xiàn)的位置， N可以省略，省略表示總第一個(gè)字符開始查找。若找到返回所 在位置整數(shù)，若找不到，返回值為0。 Instr(welcome to beijing,o) 結(jié)果：5 說明：在welcome to beijing中查找o，返回o所在位置 Instr(6，welcome to beijing,o) 結(jié)果：10

49、說明：在welcome to beijing中從第6個(gè)字符開始查找o，返回o所在位置(22)在下列查詢語句中，與Select TAB1.* FROM TAB1 WHERE Instr(簡歷, 籃球)0功能相同的語句是A)Select TAB1.* FROM TAB1 WHERE TAB1.簡歷 Like 籃球B)Select TAB1.* FROM TAB1 WHERE TAB1.簡歷 Like *籃球C)Select TAB1.* FROM TAB1 WHERE TAB1.簡歷 Like *籃球*D)Select TAB1.* FROM TAB1 WHERE TAB1.簡歷 Like 籃球*

50、C28.從字符串s中的第2個(gè)字符開始獲取4個(gè)字符的子字符串函數(shù)是A)Mid$(s,2,4) B)Left$(s,2,4) C) Right$(s,2,4) D) Left$(s,4)A4轉(zhuǎn)換函數(shù)(1) 字符串轉(zhuǎn)換字符代碼函數(shù) Asc () 功能：返回首字符的ASCII碼 例如： s=asc(“abcde”) 返回97(2) 字符代碼轉(zhuǎn)換字符函數(shù) Chr () 功能：返回與字符代碼相關(guān)的字符 s=chr(97) 返回a s=chr(13) 返回回車符(3) 數(shù)字轉(zhuǎn)換成字符串函數(shù) : Str () 功能：將數(shù)值表達(dá)式值轉(zhuǎn)換成字符串例如：s=str(99) 返回“ 99”，有一前導(dǎo)空格s=str(-

51、6) 返回“-6”注釋：當(dāng)一個(gè)數(shù)字轉(zhuǎn)成字符串時(shí)，總會(huì)在前頭保留一空格來表示正負(fù)。表達(dá)式值為正，返回的字符串包含一前導(dǎo)空格表示一正號(hào)。（32）在窗體上添加一個(gè)命令按鈕（名為Command1）和一個(gè)文本框（名為Text1），并在命令按鈕中編寫如下事件代碼：Private Sub Command1_Click( ) m=2.17 n=Len(Str$(m)+Space(5) Me!Text1 =nEnd Sub打開窗體運(yùn)行后，單擊命令按鈕，在文本框中顯示 A）5 B）8 C）9 D）10D(4) 字符串轉(zhuǎn)換成數(shù)字函數(shù): Val ()功能：將數(shù)字字符串轉(zhuǎn)換成數(shù)值型數(shù)字。注釋：數(shù)字串轉(zhuǎn)換時(shí)可自動(dòng)將字符串

52、中的空格、制表符和換行符去掉，當(dāng)遇到它不能識(shí)別為數(shù)字的第一個(gè)字符時(shí)，停止讀入字符串。當(dāng)字符串不是以數(shù)字開頭時(shí)，函數(shù)返回0。 例如：s=val(“16”) 返回16s=val(“3 45”) 返回345s=val(“76af89”) 返回76（14）在名為Form1的窗體上添加三個(gè)文本框和一個(gè)命令按鈕，其名稱分別為Textl、Text2、Text3和Commandl，然后編寫如下兩個(gè)事件過程：Private Sub Command1_Click() Text3=Text1+Text2End SubPrivate Sub Form1_Load() Text1= Text2= Text3=End S

53、ub打開窗體Form1后，在第一個(gè)文本框（Text1）和第二個(gè)文本框（Text2）中分別輸入5和7，然后單擊命令按鈕Command1，則文本框（Text3）中顯示的內(nèi)容為 。575字符串轉(zhuǎn)換為日期函數(shù)：Datevalue()例：d= Datevalue(“february 29,2004”), 返回#2004-2-29#在VBA編程語言中，提供了許多運(yùn)算符來完成各種形式的運(yùn)算和處理。根據(jù)運(yùn)算不同，可以分成4種類型的運(yùn)算符：算術(shù)運(yùn)算符、關(guān)系運(yùn)算符、邏輯運(yùn)算符和連接運(yùn)算符。 運(yùn)算符算術(shù)運(yùn)算符： * / Mod + -字符串連接：& +關(guān)系運(yùn)算符： = 或大于大于abc ABC True=大于等于大

54、于等于 a= abFalse小于小于23True=小于等于小于等于12=3True不等于不等于abcABCTrueLike字符串匹配字符串匹配ABCDE Like *CD*TrueIs對象引用比較對象引用比較-1表示真真0 表示假假關(guān)系運(yùn)算的規(guī)則如下： （1）當(dāng)兩個(gè)操作式均為數(shù)值型，按數(shù)值大小比較。 （2）字符串比較,則按字符的ASCII碼值從左到右一一比較, 直到出現(xiàn)不同的字符為止.。 例： ABCDE ABRA 結(jié)果為 False 說明： 數(shù)學(xué)中判斷X是否在區(qū)間a,b時(shí),習(xí)慣上寫成axb，但在Visual Basic中不能寫成： axb 應(yīng)寫成：應(yīng)寫成： ax And xandor邏輯運(yùn)算

55、符運(yùn)算符運(yùn)算符功能功能例子例子結(jié)果結(jié)果And邏輯與邏輯與True And TrueTrue And FalseFalse And FalseTrueFalseFalseOr邏輯或邏輯或True or TrueTrue or FalseFalse or FalseTrueTrueFalseNot邏輯非邏輯非Not True Not FalseFalseTrue（31）下列邏輯表達(dá)式中，能正確表示條件x和y都是奇數(shù)的是A）x Mod 2 = 1 Or y Mod 2 = 1B）x Mod 2 = 0 Or y Mod 2 = 0C）x Mod 2 = 1 And y Mod 2 = 1D）x Mo

56、d 2 = 0 And y Mod 2 = 0C字符串運(yùn)算符有： 、+ ， 功能是字符串連接例如： ABCD + EFGHI 結(jié)果為：ABCDEFGHI VB & 程序設(shè)計(jì)教程 結(jié)果為：VB程序設(shè)計(jì)教程說明：當(dāng)連接符兩旁的操作量都為字符串時(shí)，上述兩個(gè)連接符等價(jià)。它們區(qū)別是： +（連接運(yùn)算）：兩個(gè)操作數(shù)均應(yīng)為字符串類型； &（連接運(yùn)算）：兩個(gè)操作數(shù)既可為字符型也可為數(shù)值型，當(dāng)是數(shù)值型時(shí)，系統(tǒng)自動(dòng)先將其轉(zhuǎn)換為數(shù)字符，然后進(jìn)行連接操作。 例：100 + 123 Abc + 123 100 & 123 100 & 123 Abc & 123Abc & 1231. 進(jìn)行字符連接時(shí)，盡量使用&2. 使用運(yùn)

57、算符&時(shí),變量與運(yùn)算符&之間應(yīng)加一個(gè)空格結(jié)果為 100123出錯(cuò)結(jié)果為 100123結(jié)果為 100123結(jié)果為 Abc123結(jié)果為 Abc123【例】判斷表達(dá)式的結(jié)果在VBE窗口，運(yùn)行菜單【視圖】|【立即窗口】命令，彈出如圖立即窗口，輸入“?”號(hào)，在問號(hào)后輸入表達(dá)式，回車后即可顯示表達(dá)式結(jié)果。表達(dá)式舉例表達(dá)式舉例表達(dá)式表達(dá)式結(jié)果結(jié)果說明說明江小青江小青張小民張小民false字符串比較按照字母順序比較，漢字按其字符串比較按照字母順序比較，漢字按其拼音對應(yīng)的字母順序。拼音對應(yīng)的字母順序。12 mod 5.42對第二個(gè)數(shù)進(jìn)行四舍五入后求余對第二個(gè)數(shù)進(jìn)行四舍五入后求余102 and 102True優(yōu)先

58、級相當(dāng)于：優(yōu)先級相當(dāng)于：(102) and (102)3*33/39根據(jù)優(yōu)先級關(guān)系相當(dāng)于：根據(jù)優(yōu)先級關(guān)系相當(dāng)于：(3*3)(3/3)運(yùn)算符的優(yōu)先級運(yùn)算符的優(yōu)先級:p228頁頁 表表7.8（30）VBA表達(dá)式3*33/3的輸出結(jié)果是A）0B）1C）3D）9（32）以下關(guān)于VBA運(yùn)算符優(yōu)先級比較，正確的是A）算術(shù)運(yùn)算符 邏輯運(yùn)算符 比較運(yùn)算符B）邏輯運(yùn)算符 比較運(yùn)算符 算術(shù)運(yùn)算符C）算術(shù)運(yùn)算符 比較運(yùn)算符 邏輯運(yùn)算符D）以上均是錯(cuò)誤的DC7.3.6輸入輸出 p246頁(1)輸入框InputBox函數(shù)InputBox函數(shù)的作用是顯示一個(gè)輸入對話框，對話框中有一些提示信息及文本框，等待用戶輸入信息或單

59、擊按鈕。在按鈕事件發(fā)生后返回文本框的內(nèi)容，返回值的類型為字符串。InputBox函數(shù)的調(diào)用格式為InputBox(Prompt,Title,Default,XPos,YPos)必需的 例如：有下列語句如下: InputBox(請輸入一個(gè)數(shù), 輸入框, 100) 在立即窗口中執(zhí)行： 語句執(zhí)行后打開如下對話框。缺省值標(biāo)題提示例要在屏幕上顯示圖示的對話框：相應(yīng)的語句如下：InputBox(請輸入你的姓名 & chr(13)&chr(10)& 然后單擊確定 , 輸入框 )提示信息中的強(qiáng)制換行方式：Chr(13)+Chr(10) vbCrLf回車符換行符*可用兩者的組合或其中之一（29）InputBox

60、 函數(shù)的返回值類型是A）數(shù)值 B）字符串C）變體 D）數(shù)值或字符串（視輸入的數(shù)據(jù)而定）B格式格式: :MsgBoxMsgBox promptprompt,buttons,title,buttons,title,helpfile,contexthelpfile,context MsgBox 提示,按鈕圖標(biāo)，標(biāo)題 提示：提示信息 按鈕，圖標(biāo) ：按鈕、圖標(biāo)的種類。 標(biāo)題：對話框標(biāo)題 2.消息框（ MsgBox）用途：用于在一個(gè)對話框中顯示用途：用于在一個(gè)對話框中顯示信息，等待用戶單擊按信息，等待用戶單擊按鈕鈕.圖標(biāo)標(biāo)題提示信息命令按鈕MsgBox 注意：你輸入的數(shù)據(jù)不正確,2+48,錯(cuò)誤提示例要在屏