第一章對(duì)象及其操作

1、第一章 對(duì)象及其操作基本要求1) 掌握開發(fā)環(huán)境的使用。了解工程的概念和組成。2) 通過編寫一個(gè)程序?qū)嵗齺砹私鈶?yīng)用程序的整個(gè)編寫步驟。3) 重點(diǎn)掌握面向?qū)ο蟪绦蛟O(shè)計(jì)的基本原理和事件驅(qū)動(dòng)編程機(jī)制。4) 掌握Visual Basic中對(duì)象的概念和用法。基本內(nèi)容11 Visual Basic程序開發(fā)環(huán)境12 面向?qū)ο蟮某绦蛟O(shè)計(jì)121 程序設(shè)計(jì)語言的發(fā)展122 結(jié)構(gòu)化程序設(shè)計(jì)123 面向?qū)ο蟮幕靖拍?，24 VB程序的執(zhí)行步驟：125 Visual Basic應(yīng)用程序設(shè)計(jì)步驟13 常用對(duì)象操作131 窗體操作132 計(jì)時(shí)器和標(biāo)簽133 文本框134 命令按鈕作業(yè)練習(xí)第二章 數(shù)據(jù)類型、運(yùn)算及數(shù)據(jù)輸入輸出

2、基本要求1)重點(diǎn)掌握Visual Basic的基本語法知識(shí)2)掌握常量和變量的定義和使用。3)了解各種運(yùn)算符的具體用法。基本內(nèi)容21 編碼規(guī)則、數(shù)據(jù)類型、常量與變量211 編碼規(guī)則212 數(shù)據(jù)類型213 常量和變量22 表達(dá)式221 算術(shù)運(yùn)算222 字符串運(yùn)算223 關(guān)系運(yùn)算23 常用內(nèi)部函數(shù)（標(biāo)準(zhǔn)函數(shù)、庫函數(shù)）231數(shù)學(xué)函數(shù)233 日期函數(shù)234 輸入/出函數(shù)235 shell函數(shù)第三章 控制結(jié)構(gòu)基本要求1)重點(diǎn)掌握幾種程序的結(jié)構(gòu)。2)掌握DoLoop和ForNext等幾種循環(huán)語句的用法。3)了解GoTo語句執(zhí)行跳轉(zhuǎn)的用法?；緝?nèi)容31選擇結(jié)構(gòu)311 單行結(jié)構(gòu)條件語句312 塊結(jié)構(gòu)條件語句3

3、13 多分支結(jié)構(gòu)32 循環(huán)控制結(jié)構(gòu)321 For循環(huán)控制結(jié)構(gòu)322 While循環(huán)323 DoLoop循環(huán)第四章 數(shù)組基本要求1)重點(diǎn)掌握數(shù)據(jù)的定義和使用。2)掌握使用數(shù)組來保存不同類型的數(shù)據(jù)。3)掌握使用數(shù)據(jù)進(jìn)行排序，學(xué)會(huì)使用動(dòng)態(tài)數(shù)組。4)了解控件數(shù)組的基本原理和用途，學(xué)會(huì)在窗口界面中設(shè)計(jì)控件數(shù)組，和對(duì)控件數(shù)組編寫事件過程。基本內(nèi)容41 數(shù)組的概念：411 數(shù)組的定義412 動(dòng)態(tài)數(shù)組42 數(shù)組的基本操作421 數(shù)組元素的輸入、輸出和復(fù)制422 排序43 控件數(shù)組第五章 過程基本要求1) 重點(diǎn)掌握子程序和函數(shù)的編寫和使用。2) 掌握模塊化程序設(shè)計(jì)的思想，學(xué)會(huì)編寫具有特定功能的子程序或函數(shù)。3)

4、 了解Visual Basic常用的內(nèi)部函數(shù)的功能?；緝?nèi)容51 過程分類52 Funtion過程：（1）Funtion過程的定義（2）調(diào)用Funtion過程53 Sub過程（1）Sub過程的建立（2）調(diào)用Sub過程54 參數(shù)傳送、變量作用域541 按引用、按值的參數(shù)傳送542 不定數(shù)量參數(shù)543 作用域544 遞歸第六章 常用控件、界面基本要求1)重點(diǎn)掌握單選按鈕、復(fù)選框、框架、列表框、組合框、滾動(dòng)條等控件的使用。1)重點(diǎn)掌握菜單、工具欄的制作過程。2)學(xué)會(huì)設(shè)計(jì)簡(jiǎn)單的窗口界面，并編寫不太復(fù)雜的應(yīng)用程序?；緝?nèi)容61常用控件611 單選按鈕、復(fù)選框、框架612 列表框、組合框613

5、滾動(dòng)條、圖形控件62 常用ActiveX控件63 菜單第七章 數(shù)據(jù)文件基本要求1)重點(diǎn)掌握文件的讀寫操作。2)了解常用的文件操作的語句和函數(shù)?；緝?nèi)容1文件的結(jié)構(gòu)與分類。2文件操作語句和函數(shù)。3順序文件：4隨機(jī)文件。5文件系統(tǒng)控件：6文件基本操作。第一章 對(duì)象及其操作 基本要求1) 掌握Visual Basic 6.0開發(fā)環(huán)境的使用。了解工程的概念和組成。2) 通過編寫一個(gè)程序?qū)嵗齺砹私鈶?yīng)用程序的整個(gè)編寫步驟。3) 重點(diǎn)掌握面向?qū)ο蟪绦蛟O(shè)計(jì)的基本原理和事件驅(qū)動(dòng)編程機(jī)制。4) 掌握Visual Basic中對(duì)象的概念和用法?；緝?nèi)容11 Visual Basic程序開發(fā)環(huán)境1啟動(dòng)（1）單擊“開始

6、”按鈕“程序”下的中文版進(jìn)行啟動(dòng)。（2）若Windows桌面上有Visual Basic 6.0的快捷圖標(biāo)，則可雙擊它直接進(jìn)行啟動(dòng)。（3）通過“我的電腦”或“資源管理器”進(jìn)入安裝路徑，雙擊VB6.EXE的圖標(biāo)進(jìn)行啟動(dòng)。2退出（1）選擇“文件”菜單à“退出”命令。（2）單擊標(biāo)題欄右側(cè)的關(guān)閉按鈕。（3）使用Alt+Q快捷鍵。 3集成開發(fā)環(huán)境Visual Basic的3種工作狀態(tài)：（1）設(shè)計(jì)；（2）運(yùn)行，只能交互；（3）中斷舉例說明基本操作。12 面向?qū)ο蟮某绦蛟O(shè)計(jì)121 程序設(shè)計(jì)語言的發(fā)展機(jī)器語言匯編語言高級(jí)程序設(shè)計(jì)語言面向?qū)ο蟮某绦蛟O(shè)計(jì)語言例如Visual Basic、Visual C

7、+、Java、Visual Basic .NET等122 結(jié)構(gòu)化程序設(shè)計(jì)三種基本結(jié)構(gòu)：順序結(jié)構(gòu)；分支結(jié)構(gòu)（即選擇結(jié)構(gòu)）；當(dāng)型循環(huán)、直到型循環(huán) True False P B False True P A True False P A B A B 三種基本結(jié)構(gòu)的共同點(diǎn)如下：（1）只有一個(gè)入口和一個(gè)出口。（2）結(jié)構(gòu)中的每個(gè)部分都有執(zhí)行到的可能。（3）結(jié)構(gòu)內(nèi)不存在死循環(huán)（無終止的循環(huán)）。結(jié)構(gòu)化程序設(shè)計(jì)方法：自頂向下逐步細(xì)化模塊化設(shè)計(jì)123 面向?qū)ο蟮幕靖拍?1)類某些具有共同抽象的對(duì)象的集合，即將這些對(duì)象的共同特征（屬性和方法等）抽取出來，形成一個(gè)關(guān)于這些對(duì)象集合的抽象定義。(2)對(duì)象類的實(shí)例化，是

8、運(yùn)行的基本實(shí)體，包括屬性、方法和事件要素。將數(shù)據(jù)和處理該數(shù)據(jù)的過程（函數(shù)和子程序）打包在一起而生成的新的數(shù)據(jù)類型稱之為對(duì)象。VB工具箱中是各種標(biāo)準(zhǔn)控件類，通過“部件”還可加入ActiveX控件類。TextBox是文本框控件類，在窗體中實(shí)例化為Text1，就是文本框控件對(duì)象。也可以重新修改對(duì)象名Text1，Text1對(duì)象繼承了TextBox類的屬性、方法和事件。Form類（窗體類）實(shí)例化為Form1對(duì)象，新建工程時(shí)自動(dòng)地創(chuàng)建一個(gè)Form1對(duì)象。在窗體對(duì)象中創(chuàng)建對(duì)象的方法：雙擊法、拖動(dòng)法。(3)屬性對(duì)象本身所具有的特性。屬性的設(shè)置：設(shè)計(jì)狀態(tài)下利用屬性框修改、運(yùn)行狀態(tài)中通過代碼賦值。(4)方法對(duì)象自

9、身可以進(jìn)行的動(dòng)作或行為。VB將通用的過程或函數(shù)封裝在類中，建立好對(duì)象后就可以調(diào)用。(5)事件預(yù)先定義好的、能夠被對(duì)象識(shí)別的動(dòng)作。(6)事件驅(qū)動(dòng)在Visual Basic應(yīng)用程序中每一個(gè)窗體和控件對(duì)象都有一個(gè)預(yù)先定義好的過程集，運(yùn)行時(shí)若用戶或系統(tǒng)觸發(fā)事件，則調(diào)用執(zhí)行相應(yīng)的事件過程，否則整個(gè)程序就處于等待狀態(tài)。并沒有按事件過程的順序執(zhí)行。在某事件過程中所編寫的代碼決定了用戶在觸發(fā)該事件后執(zhí)行的動(dòng)作。例：根據(jù)以下描述，請(qǐng)說出氣球?qū)ο蟮膶傩?、方法和事件分別是什么？米老鼠形狀的紅色氣球被針刺破了。答：氣球?qū)ο蟮膶傩裕好桌鲜笮螤?、紅色。方法：破了。事件：刺。1，24 VB程序的執(zhí)行步驟：(1)啟動(dòng)應(yīng)用程序

10、，裝載和顯示窗體。(2)窗體（窗體上的控件）等待事件的發(fā)生。(3)事件發(fā)生時(shí)執(zhí)行對(duì)應(yīng)的事件過程。(4)重復(fù)上述(2)、(3)兩步。125 Visual Basic應(yīng)用程序設(shè)計(jì)步驟 (1)創(chuàng)建工程(2)界面設(shè)計(jì)(3)屬性設(shè)置(4)代碼編輯，糾錯(cuò)(5)文件保存(6)程序運(yùn)行和調(diào)試13 常用對(duì)象操作131 窗體操作例3-1，學(xué)習(xí)窗體屬性。Name窗體名稱Visible對(duì)象是否可見MouseIcon自定義鼠標(biāo)Caption窗體標(biāo)題Font字體格式Icon加載窗體圖標(biāo)MaxButton是否最大化ForeColor前景色ControlBox是否有控制菜單MinButton是否最小化BackColor背景色

11、Picture加載圖片Height對(duì)象的高度BorderColor邊框顏色BoreStyle窗體邊框的樣式Width對(duì)象的寬度FillColor填充顏色WindowState運(yùn)行時(shí)的顯示狀態(tài)Top上邊距MaskColor圖形透明色BorderStyle窗體邊框風(fēng)格Left左邊距UseMaskColor是否透明CurrentX當(dāng)前位置的橫坐標(biāo)Enable是否有效MousePoint鼠標(biāo)指針類型CurrentY當(dāng)前位置的縱坐標(biāo)例3-2，學(xué)習(xí)窗體事件。Load裝入Click單擊Initialize初始化事件UnLoad卸載DblClick雙擊QueryUnload卸載前觸發(fā)Activate激活Pai

12、nt移動(dòng)、放大GotFocus獲得焦點(diǎn)事件Deactive不是當(dāng)前Resize改變窗體大小LostFocus失去焦點(diǎn)事件例3-3，學(xué)習(xí)窗體方法。Print輸出打印Hide隱藏窗體PrintForm打印窗體Cls清屏Move移動(dòng)窗體Refresh刷新窗體Show顯示窗體AutoRedraw例3-4，學(xué)習(xí)多窗體切換。工程菜單中屬性、通用、啟動(dòng)對(duì)象設(shè)置啟動(dòng)窗體。132 計(jì)時(shí)器和標(biāo)簽例3-5，滾動(dòng)字幕。計(jì)時(shí)器的Interval屬性決定間隔多長(zhǎng)時(shí)間產(chǎn)生一次Timer事件。標(biāo)簽的Alignment屬性決定其中文字的水平對(duì)齊方式；AutoSize：自動(dòng)調(diào)整大小；WordWarp：由AutoSize決定在垂直

13、或水平方向自動(dòng)調(diào)整大?。籅ackStyle：標(biāo)簽是否透明。133 文本框例3-6，數(shù)據(jù)過濾。文本框?qū)傩缘腡ext：其中的內(nèi)容；MultiLine：文本是否多行；MaxLength：文本的最大長(zhǎng)度；ScrollBars：滾動(dòng)條；Locked：可否編輯；PasswordChar：輸入密碼；SelStart：選定文本的開始位置；SelLength：選定文本的長(zhǎng)度；SelText：選定的文本。文本框事件Change：改變Text的內(nèi)容時(shí)；KeyPress：輸入一個(gè)字符時(shí)；LostFocus：失去焦點(diǎn)時(shí)；GotFocus獲得焦點(diǎn)時(shí)。文本框方法SetFocus：焦點(diǎn)移到指定對(duì)象。134 命令按鈕例3-7，

14、實(shí)現(xiàn)剪帖。按鈕屬性Style：決定Picture是否能顯示圖形；ToolTipText：提示文字；Value：按鈕是否按下；Cancel：設(shè)定取消按鈕；Default：自動(dòng)獲得焦點(diǎn)的按鈕。作業(yè)練習(xí)1-1、1-2、2-1、2-2、3-13-7第二章 數(shù)據(jù)類型、運(yùn)算及數(shù)據(jù)輸入輸出基本要求1)重點(diǎn)掌握Visual Basic的基本語法知識(shí)2)掌握常量和變量的定義和使用。3)了解各種運(yùn)算符的具體用法?；緝?nèi)容21 編碼規(guī)則、數(shù)據(jù)類型、常量與變量211 編碼規(guī)則1VB字符集字母、數(shù)字、27個(gè)專用字符2VB語句書寫(1)不區(qū)分大小寫，但為了增加可讀性，關(guān)鍵字中屬于單詞的首字母用大寫。語句可以左縮進(jìn)。(2)

15、同行多條語句用冒號(hào)分隔。長(zhǎng)語句可以用空格加下劃線續(xù)行。(3)單引號(hào)+注釋，用于獨(dú)行注釋或語句后注釋，但不能用于續(xù)行注釋。Rem+注釋可獨(dú)行，與其他語句同行時(shí)用冒號(hào)分隔。(4)數(shù)值前加&H、&O分別表示十六進(jìn)制、八進(jìn)制，不加前綴表示十進(jìn)制。3標(biāo)識(shí)符命名(1)由字母或漢字引導(dǎo)的字母、漢字、數(shù)字、下劃線組成。避免與關(guān)鍵字重名。(2)字符數(shù)255，其中窗體、控件、模塊的標(biāo)識(shí)符字符數(shù)40。(3)建議對(duì)象名前3個(gè)小寫字母表示對(duì)象的類型。以后能自動(dòng)向首次定義的轉(zhuǎn)換。212 數(shù)據(jù)類型不同數(shù)據(jù)類型占用內(nèi)存、取值范圍、運(yùn)算性質(zhì)不同。1基本數(shù)據(jù)類型(1)數(shù)值型字節(jié)型、整型、長(zhǎng)整型、單精度、雙精度、貨

16、幣型數(shù)據(jù)類型關(guān)鍵字類型符前綴占用字節(jié)表示范圍字節(jié)型Byte無byt10255整型Integer%int2-215215-1長(zhǎng)整型Long&lng4-231231-1單精度Single!sng4雙精度Double#dbl8貨幣型Currencycur8-922337203685477字符型String$str不定長(zhǎng)065535個(gè)字符邏輯型Boolean無bln2True、False日期型Date|Time無dtm801,01,10012,31,9999對(duì)象型Object無obj4任何對(duì)象的引用變體型Variant無vnt據(jù)需分配(2)字符型。定長(zhǎng)字符串、變長(zhǎng)字符串(3)邏輯型(4)日期型

17、(5)對(duì)象型(6)變體型。在運(yùn)行期間存放不同類型的數(shù)據(jù)。2用戶定義的數(shù)據(jù)類型3枚舉類型213 常量和變量1變量變量顯示聲明，通過類型符號(hào)：S&=10Dim聲明語句：Dim a As Integer,b As Long或Dim a %, b&隱式聲明，不聲明就使用。設(shè)置強(qiáng)制聲明：Option Eplicit或在選項(xiàng)、編輯器選中“要求變量聲明”。未賦值的變量有默認(rèn)值：數(shù)值，0；變長(zhǎng)字符串，無字符的空串；定長(zhǎng)字符串，定長(zhǎng)空格；varint，空；booleam，false。變量的有效范圍局部變量：過程內(nèi)部聲明的變量，僅在該過程中有效。Dim 變量名 As 類型，過程執(zhí)行期結(jié)束后重新調(diào)用

18、過程，該變量重新初始化。Static 變量名 As 類型 ，過程執(zhí)行期結(jié)束后重新調(diào)用過程，原值有效。模塊變量：在模塊通用段用Private或Dim聲明，可被該模塊的任何過程訪問。全局變量：在標(biāo)準(zhǔn)模塊（文件擴(kuò)展名為.bas，只含有程序代碼）聲明段用Public或Global聲明，可被該工程中的所有模塊的任何過程訪問。窗體模塊的通用段用Public聲明后變量，其他模塊可以用“窗體模塊名變量名”訪問。2常量直接常量：在程序中直接給出數(shù)值、字符串、日期等具體的數(shù)值。#5/1/2009 8:30:15 AM#符號(hào)常量：用標(biāo)識(shí)符代表。Const <符號(hào)常量名> As 數(shù)據(jù)類型 =<常量表

19、達(dá)式>例4-1，交換文本框中的數(shù)據(jù)。22 表達(dá)式221 算術(shù)運(yùn)算算術(shù)運(yùn)算表達(dá)式：由算術(shù)運(yùn)算符、括號(hào)、函數(shù)、數(shù)據(jù)組成的式子。算術(shù)運(yùn)算符有優(yōu)先級(jí)，()、-、* /、Mod、+ -。運(yùn)算時(shí)以參與運(yùn)算的精度高的類型為準(zhǔn)，但Long與Single運(yùn)算結(jié)果為Double；除法和乘方的結(jié)果為Double。222 字符串運(yùn)算字符串運(yùn)算符：&、+，實(shí)現(xiàn)連接。數(shù)字字符串+數(shù)值型數(shù)，將“數(shù)字字符串”轉(zhuǎn)換為數(shù)值型再做算術(shù)運(yùn)算；字符串+數(shù)值型數(shù)，結(jié)果出錯(cuò)；數(shù)值型數(shù)&數(shù)值型數(shù)，將“數(shù)值型數(shù)”轉(zhuǎn)換為字符串型再做連接運(yùn)算。223 關(guān)系運(yùn)算關(guān)系運(yùn)算符：<、>、<=、>=、=、<

20、;>、Is、Like。各關(guān)系運(yùn)算符優(yōu)先級(jí)相同。優(yōu)先級(jí)低于算術(shù)運(yùn)算+、-和字符串運(yùn)算，高于邏輯符的非not運(yùn)算。224 邏輯運(yùn)算邏輯運(yùn)算符：Not、And、Or、Xor、Eqv、Imp。例4-2，判斷閏年。23 常用內(nèi)部函數(shù)（標(biāo)準(zhǔn)函數(shù)、庫函數(shù)）數(shù)學(xué)函數(shù)、字符串函數(shù)、日期函數(shù)、轉(zhuǎn)換函數(shù)、輸出函數(shù)、測(cè)試函數(shù)。有參數(shù)、無參數(shù)。231數(shù)學(xué)函數(shù)Sqrt(N)Abs(N)Int(N)Fix(N)Sin(N)Cos(N) Round(N1，N2)Tan(N)Atm(N)Exp(N)Log(N)Rnd(N)Sgn(N)例4-3，直角三角形斜邊。232 字符串函數(shù)Asc(“And”) 65字符串首字母的AS

21、CII碼值Chr(98) ”b”ASCII碼所代表的字符Str(456) “456”數(shù)字轉(zhuǎn)換為字符串Val(“24 and 57”) 24Val(“and 57”) 0不能識(shí)別，不轉(zhuǎn)換Hex(65.6) “42”O(jiān)CT(65.6) “102”四舍五入后的八進(jìn)制LCase(“Hello”) “hello”UCase(“Hello”) “HELLO”Left(“Hello Li”,5) “Hello”Right(“Hello Li”,2)Mid(“Hello Li”,7,2)String(4,”*”) “*”Ltrim(C)Rtrim(C)Trim(C)Space(N)Len(C)例4-4，提取字

22、符串233 日期函數(shù)DateTimeNow不需參數(shù)，返回當(dāng)前系統(tǒng)的日期時(shí)間Year(D)Month(D)Day(D)WeekDay(D)Hour(Time)DateAdd()DateDiff()例4-5，顯示日期時(shí)間。234 輸入/出函數(shù)輸入函數(shù)InputBox(promt,title,default,Xpos,Ypos)消息框MsgBox(prompt,button,title)Button可用符號(hào)常量、數(shù)字表示：vbOKOnly0；vbOKCancel 1；vbAbortREtryIgnore2Print輸出對(duì)象Print 輸出項(xiàng)，|；Debug.Print “HELLO” 在立即窗口顯示

23、HELLOPrinter. Print “HELLO” 在打印機(jī)上輸出HELLO逗號(hào)表示在14列后輸出，分號(hào)表示緊跟著輸出格式輸出Formatexpression,format例4-6，輸入/出函數(shù)235 shell函數(shù)Shell(字符串，窗口類型)字符串：路徑程序名、要打開的文檔窗口類型：程序窗口的大小。例4-7，調(diào)用外部程序。第三章 控制結(jié)構(gòu) 基本要求1)重點(diǎn)掌握幾種程序的結(jié)構(gòu)。2)掌握DoLoop和ForNext等幾種循環(huán)語句的用法?；緝?nèi)容31選擇結(jié)構(gòu) 311 單行結(jié)構(gòu)條件語句If <條件> Then <語句1> Else <語句2> 例5-1，四則

24、運(yùn)算。例5-2，求最大數(shù)。312 塊結(jié)構(gòu)條件語句If <條件> Then語句塊1 Else語句塊2End If例5-3，選擇嵌套。IIf函數(shù)313 多分支結(jié)構(gòu)Select Case <測(cè)試表達(dá)式>Case <表達(dá)式列表1>語句塊1Case <表達(dá)式列表2>語句塊2Case Else語句塊nEnd SelectIf <條件1> Then語句塊1ElseIf <條件2> Then語句塊2Else<其他語句>End If表達(dá)式列表的形式：case 4,6,8,3+7case “計(jì)算機(jī)”,”電腦”Xase 2 to 2

25、0case “a” to “z”case is < 10case 4,6,8 to 20,is < 100例5-4，判斷星期。例5-5，成績(jī)等級(jí)。32 循環(huán)控制結(jié)構(gòu)321 For循環(huán)控制結(jié)構(gòu)For <循環(huán)變量> = <初值> To <終值> Step <步長(zhǎng)> 語句塊 Exit For 語句塊Next 循環(huán)變量例5-6，數(shù)列求和。循環(huán)變量又稱為“循環(huán)控制變量”、“控制變量”或“循環(huán)計(jì)數(shù)器”，是用做循環(huán)計(jì)數(shù)器的數(shù)值變量。這個(gè)變量必須為數(shù)值型變量，不能是邏輯型數(shù)據(jù)或數(shù)組元素。 循環(huán)體 被重復(fù)執(zhí)行的代碼段。循環(huán)次數(shù)循環(huán)體被重復(fù)執(zhí)行的次數(shù)。循

26、環(huán)次數(shù)必須是有限的，否則稱程序陷入“死循環(huán)”322 While循環(huán)While <循環(huán)條件> 循環(huán)體Wend例5-7，While型。323 DoLoop循環(huán)格式1Do While /Until <條件> 語句塊 Exit Do 語句塊Loop False 循環(huán)條件 循環(huán)體 True 格式2Do 語句塊 Exit Do 語句塊Loop While /Until <條件> 循環(huán)條件 循環(huán)體 False True 例5-8，求階乘。例5-9，判斷素?cái)?shù)。例5-10，乘法表。小結(jié)賦值語句對(duì)普通變量的賦值。對(duì)對(duì)象變量的賦值。例Dim ex As DataBaseSet e

27、x=OpenDataBase("File.mdb")If 語句Select Case 語句For 循環(huán)語句普通的數(shù)字變量：集合中的對(duì)象：For Each obj In objs.Next objDo 循環(huán)語句當(dāng)型循環(huán)（先判斷后執(zhí)行）直按型循環(huán)（先執(zhí)行后判斷）With 語句With Text1 .SelStart=0： .SeiLength=Len(.Text)：.SetFocusEnd With第四章 數(shù)組 基本要求1)重點(diǎn)掌握數(shù)據(jù)的定義和使用。2)掌握使用數(shù)組來保存不同類型的數(shù)據(jù)。3)掌握使用數(shù)據(jù)進(jìn)行排序，學(xué)會(huì)使用動(dòng)態(tài)數(shù)組。4)了解控件數(shù)組的基本原理和用途，學(xué)會(huì)在窗口界面

28、中設(shè)計(jì)控件數(shù)組，和對(duì)控件數(shù)組編寫事件過程?；緝?nèi)容41 數(shù)組的概念： 411 數(shù)組的定義數(shù)組是一組相同類型的變量集合。數(shù)組名：集合的名稱。數(shù)組元素：集合內(nèi)的每一個(gè)成員。下標(biāo)：數(shù)組元素在數(shù)組中的編號(hào)，代表了該元素在數(shù)組中的位置。數(shù)組的長(zhǎng)度：數(shù)組元素的個(gè)數(shù)。某個(gè)數(shù)組元素表示為：數(shù)組名(下標(biāo)）按維數(shù)分類：一維數(shù)組、二維數(shù)組、三維數(shù)組。最大維數(shù)達(dá)60。多維數(shù)組的大?。ㄔ氐膫€(gè)數(shù)）= 第一維大小×第二維大小× 按在內(nèi)存分配是否可變分：定長(zhǎng)（固定大?。?shù)組（數(shù)組的維數(shù)和長(zhǎng)度一旦定義，不能改變）動(dòng)態(tài)數(shù)組（可動(dòng)態(tài)重新定義數(shù)組的維數(shù)和長(zhǎng)度）定長(zhǎng)數(shù)組的聲明Dim 數(shù)組名(下標(biāo)) As 類型名D

29、im Score(1 to 30) As IntegerPrivate 數(shù)組名(下標(biāo)) As 類型名Private BookName(3000) As StringPublic 數(shù)組名(下標(biāo)) As 類型名Public Cost(100) As SingleDim Tr(3,4,4) As LongDim A(1 to 5,1 to 5,1 to 5) As LongAs 類型名若省略，則默認(rèn)為變體數(shù)組。數(shù)組正確定義后：系統(tǒng)分配連續(xù)的內(nèi)存空間，空間名稱為數(shù)組名數(shù)組中各個(gè)元素獲得初始值數(shù)值型為0邏輯型為False字符串型為""變體型為Empty412 動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組在數(shù)組聲

30、明時(shí)不指定數(shù)組的大小Dim 數(shù)組名（）As 類型名 如：Dim s() As Single 動(dòng)態(tài)數(shù)組在需要使用時(shí)必須先使用Redim語句指定或改變維數(shù)和大小，然后訪問。程序程序到Redim再分配存儲(chǔ)空間。Redim Preserve 數(shù)組名(下標(biāo)1，下標(biāo)2)As 類型名 如：Redim s(10) Redim Preserve s(2，3)Preserve保留數(shù)組中原有的數(shù)據(jù)。用Preserve的Redim只能改變數(shù)組最后一維的大小。例6-1，統(tǒng)計(jì)人數(shù)。Private Sub Form_Click()Dim a(-3 To 3) As Integer ' 初值為0Dim b(1, 1

31、To 3, 3) ' 未定義類型，默認(rèn)變體。沒有初值Dim i%, j%, k%Print LBound(a), UBound(a)For i = LBound(a) To UBound(a) Print "a(" i; ")=" a(i),Next iPrint: PrintPrint LBound(b, 1), LBound(b, 2), LBound(b, 3)Print UBound(b, 1), UBound(b, 2), UBound(b, 3)Print: PrintFor i = LBound(b, 1) To UBound(b,

32、 1) For j = LBound(b, 2) To UBound(b, 2) For k = LBound(b, 3) To UBound(b, 3) Print "b(" i; "," j; "," k; ")=" b(i, j, k), Next k Print Next j PrintNext iEnd Sub42 數(shù)組的基本操作 421 數(shù)組元素的輸入、輸出和復(fù)制數(shù)組的輸入Dim A(1 To 5) As Integer, i As IntegerFor i = 1 To 5 A(i) = InputB

33、ox(“請(qǐng)輸入第” & i & “個(gè)數(shù)據(jù)”)Next i適用于數(shù)組元素值與下標(biāo)之間存在函數(shù)關(guān)系：Dim A(1 To 5) As Integer, k As Integer For k = 1 To 5 A(k) = 2 * k - 1 Next kArray函數(shù) 對(duì)數(shù)組整體賦值Dim m As Variant，i As Integer，b() As VariantmArray(1,3,5,7,9) 即m(0)=1、m(1)=3、m(2)=5、m(3)=7、m(4)=9 For i=0 to UBound(m) 獲取下界函數(shù)：UBound()，設(shè)定下界為1：Option Bas

34、e 1Picture1Print m(i)；“ ”；Next ib=m m各元素賦值給b。b不能為具體類型，必須為變體例6-2，數(shù)組的復(fù)制422 排序選擇法For i = 1 To UBound(iA) - 1 iMin = i For j = i + 1 To UBound(iA) If iA(j) < iA(iMin) Then iMin = j Next j t = iA(i) iA(i) = iA(iMin) iA(iMin) = tNext i冒泡法iMin = UBound(iA)For i = 1 To iMin - 1 For j = iMin To i + 1 If i

35、A(j) < iA(j - 1) Then t = iA(j) iA(j) = iA(j - 1) iA(j - 1) = t End If Next jNext i43 控件數(shù)組控件數(shù)組由一組類型相同的控件組成，它們具有一個(gè)共同的控件名，相同的屬性，實(shí)現(xiàn)相似的功能，控件數(shù)組中各控件通過索引號(hào)識(shí)別。第i個(gè)控件的索引號(hào)為i-1。在設(shè)計(jì)時(shí)建立控件數(shù)組，例6-3，設(shè)置背景。在運(yùn)行時(shí)建立控件數(shù)組：Private Sub Form_Load()Dim i&For i = 1 To 3 Load Text1(i) Text1(i).Left = Text1(0).Left + i * (Te

36、xt1(0).Width + 300) Text1(i).Visible = TrueNext iEnd SubPrivate Sub Command1_Click()Dim i&For Each TextBox In Text1 Text1(i) = Text1(i).Index i = i + 1NextEnd Sub第五章 過程 基本要求1) 重點(diǎn)掌握子程序和函數(shù)的編寫和使用。2) 掌握模塊化程序設(shè)計(jì)的思想，學(xué)會(huì)編寫具有特定功能的子程序或函數(shù)。3) 了解Visual Basic常用的內(nèi)部函數(shù)的功能。基本內(nèi)容51 過程分類事件過程Sub自定義子過程Sub自定義函數(shù)Fun自

37、定義子過程Sub自定義函數(shù)Fun窗體模塊不僅包含有用于處理發(fā)生在窗體中的各個(gè)對(duì)象的事件過程，而且包含有窗體及窗體中各個(gè)控件對(duì)象的屬性設(shè)置以及相關(guān)的說明。如果某些自定義過程僅供本窗體內(nèi)的其他過程共享，則它也可包含在該窗體模塊之中。標(biāo)準(zhǔn)模塊：被應(yīng)用程序的多個(gè)窗體共享。包含有自定義過程、函數(shù)、類型說明、數(shù)據(jù)說明。類模塊：包含用于創(chuàng)建新的對(duì)象類的屬性、方法的定義等。窗體事件過程：Private Sub Form_事件名(參數(shù)列表)局部變量和常數(shù)聲明語句塊End Sub控件事件過程：Private Sub 控件名_事件名(參數(shù)列表)局部變量和常數(shù)聲明語句塊End SubPrivate表示該事件過程不能在

38、它自己的窗體模塊之外被調(diào)用。52 Funtion過程： （1）Funtion過程的定義Public|PrivateStatic Function 函數(shù)名(參數(shù)列表)As Type局部變量或常數(shù)定義：語句塊：函數(shù)名 = 表達(dá)式：Exit Function語句塊：函數(shù)名= 表達(dá)式End Function通過As指定函數(shù)返回值的類型；缺省該選項(xiàng)時(shí)，函數(shù)類型默認(rèn)為變體(Variant)類型。形參僅代表了參數(shù)的個(gè)數(shù)、位置和類型，其初值來源于函數(shù)過程調(diào)用。ByVal表明按值傳遞，ByRef表明按地址傳遞，缺省時(shí)按地址傳遞。當(dāng)退出過程體后，用Dim聲明的變量的空間被收回，而Static聲明的要等到模塊結(jié)束時(shí)

39、，才被收回空間。（2）調(diào)用Funtion過程由于函數(shù)過程名返回一個(gè)值，故一般函數(shù)過程不能作為單獨(dú)的語句加以調(diào)用，必須作為表達(dá)式或表達(dá)式中的一部分，再配以其他的語法成分構(gòu)成語句。必須給參數(shù)加上括號(hào)，當(dāng)調(diào)用無參函數(shù)，括號(hào)可以缺省。例7-1，求公約數(shù)Private Sub Command1_Click()Dim x As Integer, y As Integerx = CInt(Text1)：y = CInt(Text2)：Label1 = gcd(x, y)End SubPrivate Function gcd(ByVal m As Integer, ByVal n As Integer)Dim

40、 r As Integerr = m Mod nDo While r <> 0 m = n： n = r： r = m Mod nLoopgcd = nEnd FunctionPrivate Function fun(s As String) As StringDim s1 As String, i%For i = 1 To Len(s) s1 = UCase(Mid(s, i, 1) + s1Next ifun = s1End Function53 Sub過程（1）Sub過程的建立Private | PublicStatic Sub 子程序過程名(參數(shù)列表) 局部變量和常量聲明：

41、語句塊：Exit Sub：語句塊End Sub只要能用函數(shù)過程定義的，肯定能用子過程定義；反之不一定。通常當(dāng)該過程具有一個(gè)返回值時(shí)，用函數(shù)過程更直觀；當(dāng)過程有多個(gè)返回值時(shí)，一般用設(shè)置多個(gè)按地址傳遞的參數(shù)的子程序過程來實(shí)現(xiàn)。（2）調(diào)用Sub過程Call 子程序過程名(實(shí)參列表)把過程名作為一個(gè)語句來使用：過程名 實(shí)參1，實(shí)參2，過程名與第一個(gè)實(shí)參之間要有一個(gè)空格進(jìn)行分隔；不需要關(guān)鍵字Call；實(shí)參列表不需要加括號(hào)。例7-2，求兩正數(shù)間的素?cái)?shù)。54 參數(shù)傳送、變量作用域541 按引用、按值的參數(shù)傳送例7-3，判斷閏年。Private Sub Form_Click()Dim x%, y%：Cls:

42、x = 5: y = 20：Print "實(shí)參原值： ", x, yCall change1(x, y)：Print "按值調(diào)用后：", x, y：x = 5: y = 20Call change2(x, y)：Print "按引用調(diào)用后", x, yEnd SubPrivate Sub change1(ByVal m%, ByVal n%)m = m + 1：n = n * 2End SubPrivate Sub change2(ByRef m%, ByRef n%)m = m + 1：n = n * 2End Sub542 不定數(shù)

43、量參數(shù)Private Sub Command2_Click()Dim y%：ClsCall f5(y, 1, 10, 100)：Print yCall f5(y, 10, 20, 30, 40, 50)：Print yEnd SubPrivate Sub f5(s%, ParamArray a() '不定數(shù)量形參：放在最后；變體數(shù)組；用ParamArrayDim x, t% For Each x In a t = t + x * xNext xs = tEnd Sub543 作用域Option ExplicitPublic x%：Dim z%z為Form1窗體（模塊）級(jí)變量Privat

44、e Sub Command1_Click()Call temp3：Call temp4End SubPrivate Sub temp3()Dim a%：a = 10：z = z + a：Print a, zEnd SubPrivate Sub temp4()Dim a%：a = 2：z = z * a：Print a, zEnd SubPrivate Sub Form_Click()Cls：x = x + 1：Print "單擊次數(shù)" x：End Sub在form2的按鈕上，調(diào)用Form1窗體的全局變量xPrivate Sub Command1_Click()Form1.x

45、 = Form1.x + 100End Sub例7-4，求和。544 遞歸求最大公約數(shù)Private Sub Command2_Click()a = gcd(126, 12)：Print aEnd SubPrivate Function gcd(p&, q&) As LongIf q Mod p = 0 Then gcd = pElse gcd = gcd(q, p Mod q)End IfEnd Function例7-5，求階乘。第六章 常用控件、界面 基本要求 1)重點(diǎn)掌握單選按鈕、復(fù)選框、框架、列表框、組合框、滾動(dòng)條等控件的使用。1)重點(diǎn)掌握菜單、工具欄的制作過程。2)學(xué)

46、會(huì)設(shè)計(jì)簡(jiǎn)單的窗口界面，并編寫不太復(fù)雜的應(yīng)用程序?；緝?nèi)容61常用控件611 單選按鈕、復(fù)選框、框架單選按鈕（OptionButton）又稱選項(xiàng)按鈕，用來顯示一個(gè)可以打開或關(guān)閉的選項(xiàng)，一般成組出現(xiàn)，用戶每次只能在一組單選按鈕中選擇其一。其默認(rèn)名稱為OptionN（N為1，2，3）。復(fù)選框的常用屬性和單選按鈕的常用屬性大致相同， Alignment屬性用來設(shè)置單選按鈕標(biāo)題的對(duì)齊方式。當(dāng)值為0時(shí)，為默認(rèn)值，標(biāo)題在控件對(duì)象的右側(cè)；當(dāng)值為1時(shí)，標(biāo)題在控件對(duì)象的左側(cè)。 Value屬性用來表示單選按鈕的狀態(tài)。當(dāng)值為True，表明該按鈕處于選中狀態(tài)，按鈕的圓圈中有點(diǎn)；當(dāng)值為False，則表明沒被選中，按鈕的圓

47、圈中沒有點(diǎn)。復(fù)選框的Value屬性可以取0、1和2，分別表示該復(fù)選框未選中、選中和變灰（暫時(shí)不能訪問）3種狀態(tài)?？蚣埽‵rame）是個(gè)容器控件，常用于將其他控件對(duì)象按功能分組，既實(shí)現(xiàn)了界面上功能的分割，又保證了界面的整齊美觀，默認(rèn)名稱為FrameN（N為1，2，3）。例8-1，修改字體顏色。 612 列表框、組合框常用屬性MultiSelect0值禁止多選ListIndex被選中項(xiàng)索引號(hào)List列表項(xiàng)內(nèi)容ListCount列表項(xiàng)數(shù)目Text被選中項(xiàng)內(nèi)容Selected成員是否選中Style外觀類型Sorted列表項(xiàng)排序方式List是個(gè)字符型數(shù)組，存放列表框、組合框的選項(xiàng)。List1list(0

48、)=“北京”、list1list(4)=“常州”。當(dāng)選中“北京”時(shí)，listindex=0， List1Text=“北京”，List1list(listindex)=“北京”，List1Selected(0)=True。選中最后項(xiàng)時(shí)listindex= ListCount-1，未選任何項(xiàng)時(shí)listindex=-1。方法 AddItem方法 用來向列表框中增加項(xiàng)目。調(diào)用格式：對(duì)象名. AddItem 列表項(xiàng)內(nèi)容 ,插入位置下標(biāo) RemoveItem方法 用于刪除指定位置的列表項(xiàng)。調(diào)用格式：對(duì)象名. RemoveItem 刪除項(xiàng)下標(biāo)Clear方法 刪除或清空列表框和組合框中所有的列表項(xiàng)。調(diào)用格式：對(duì)象名. Clear 例8-2，裝機(jī)清單。613 滾動(dòng)條、圖形控件 常用屬性Name滾動(dòng)條名稱SmallChange滑塊滾動(dòng)的小增量值LargeChange滑塊滾動(dòng)的大增量值Max滾動(dòng)條的最大值Min滾動(dòng)條的最小值Value當(dāng)前滑塊的位置事件（1）Change事件 該事件在滾動(dòng)后發(fā)生，