江蘇省計(jì)算機(jī)二級VB

1、南通大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院南通大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院 魯松魯松計(jì)算機(jī)程序設(shè)計(jì)強(qiáng)化復(fù)習(xí)Visual Basic 6.0Visual Basic 6.0計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松2 2全文結(jié)構(gòu)全文結(jié)構(gòu)一一VB語法知識基礎(chǔ)語法知識基礎(chǔ)二二VB語法知識進(jìn)階語法知識進(jìn)階三三常用算法及編程技巧常用算法及編程技巧四四界面元素與程序調(diào)試界面元素與程序調(diào)試五五真題講解真題講解第第1 1章章 程序代碼的組織方式程序代碼的組織方式第第2 2章章 數(shù)據(jù)類型、常量與變量數(shù)據(jù)類型、常量與變量第第3 3章章 運(yùn)算符、表達(dá)式與公共函數(shù)運(yùn)算符、表達(dá)式與公共函數(shù)第第4 4章章 數(shù)組

2、數(shù)組第第5 5章章 順序結(jié)構(gòu)順序結(jié)構(gòu)第第6 6章章 選擇結(jié)構(gòu)選擇結(jié)構(gòu)第第7 7章章 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)第第8 8章章 過程設(shè)計(jì)過程設(shè)計(jì)第第9 9章章 文件操作文件操作第第1010章章 算法中使用的基本技巧算法中使用的基本技巧第第1111章章 數(shù)列、級數(shù)求和及矩陣運(yùn)算問題數(shù)列、級數(shù)求和及矩陣運(yùn)算問題第第1212章章 數(shù)組的移動(dòng)、排序及查找數(shù)組的移動(dòng)、排序及查找第第1313章章 因數(shù)、最大公約數(shù)與素?cái)?shù)等問題因數(shù)、最大公約數(shù)與素?cái)?shù)等問題第第1414章章 整數(shù)拆分、進(jìn)制轉(zhuǎn)換整數(shù)拆分、進(jìn)制轉(zhuǎn)換第第1515章章 字符運(yùn)算及圓圈數(shù)問題字符運(yùn)算及圓圈數(shù)問題第第1616章章 常用控件的通用屬性、事件及方常用控件的

3、通用屬性、事件及方法法第第1717章章 窗體窗體的通用屬性、事件及方法的通用屬性、事件及方法第第1818章章 重要控件重要控件第第1919章章 程序調(diào)試和程序設(shè)計(jì)程序調(diào)試和程序設(shè)計(jì)計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松3 3第第1 1章章 程序代碼的組織方式程序代碼的組織方式l 字符集字符集l 關(guān)鍵字關(guān)鍵字l 標(biāo)識符標(biāo)識符l 運(yùn)算符運(yùn)算符l 表達(dá)式表達(dá)式l 語句及語法規(guī)則語句及語法規(guī)則l 語義語義Print aPrint a,Print a;字符字符關(guān)鍵字關(guān)鍵字/ /標(biāo)識符標(biāo)識符表達(dá)式表達(dá)式語句語句過程過程模塊模塊程序程序計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（

4、VBVB）培訓(xùn)）培訓(xùn) 魯松魯松4 4第第1 1章章 程序代碼的組織方式程序代碼的組織方式l用過程編程的兩大好處用過程編程的兩大好處lVB中過程的種類中過程的種類u事件過程事件過程系統(tǒng)提供的過程系統(tǒng)提供的過程u通用過程通用過程用戶自定義過程用戶自定義過程 l窗體模塊窗體模塊l標(biāo)準(zhǔn)模塊標(biāo)準(zhǔn)模塊l類模塊類模塊計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松5 5第第2 2章章 數(shù)據(jù)類型、常量與變量數(shù)據(jù)類型、常量與變量2.1 基本數(shù)據(jù)類型基本數(shù)據(jù)類型l 數(shù)值型數(shù)值型l 字符串型字符串型l 邏輯型邏輯型l 日期型日期型l 變體型變體型l 數(shù)據(jù)類型轉(zhuǎn)換數(shù)據(jù)類型轉(zhuǎn)換u 數(shù)值類型間的轉(zhuǎn)換

5、數(shù)值類型間的轉(zhuǎn)換u 數(shù)值類型與字符串類型的轉(zhuǎn)換數(shù)值類型與字符串類型的轉(zhuǎn)換u 數(shù)值類型與邏輯類型的轉(zhuǎn)換數(shù)值類型與邏輯類型的轉(zhuǎn)換u 字符串類型與邏輯類型的轉(zhuǎn)換字符串類型與邏輯類型的轉(zhuǎn)換Print True+3顯示結(jié)果為顯示結(jié)果為2Print “123”+100顯示結(jié)果為顯示結(jié)果為223Print #5/1/2000# + 3顯示結(jié)果是顯示結(jié)果是00-5-4類型名稱類型名稱表示數(shù)據(jù)表示數(shù)據(jù)存儲空間存儲空間取值范圍取值范圍整型整型Integer整型整型2個(gè)字節(jié)個(gè)字節(jié)-32,768 32,767Long長整型長整型4個(gè)字節(jié)個(gè)字節(jié)-2,147,483,648 2,147,483,647Byte字節(jié)型字節(jié)型

6、1個(gè)字節(jié)個(gè)字節(jié)0 255實(shí)型實(shí)型Single單精度浮點(diǎn)數(shù)單精度浮點(diǎn)數(shù)4個(gè)字節(jié)個(gè)字節(jié)-3.402,823E38 -1.401,298E-451.401,298E-45 3.402,823E38Double雙精度浮點(diǎn)數(shù)雙精度浮點(diǎn)數(shù)8個(gè)字節(jié)個(gè)字節(jié)-1.797,693,134,862,32D308 -4.940,656,458,412,47D-3244.940,656,458,412,47D-324 1.797,693,134,862,32D308Cunency貨幣型貨幣型8個(gè)字節(jié)個(gè)字節(jié)-922,337,203,685,447.580,8 922,337,203,685,447.580,7 計(jì)算機(jī)等級

7、考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松6 6第第2 2章章 數(shù)據(jù)類型、常量與變量數(shù)據(jù)類型、常量與變量2.2 構(gòu)造數(shù)據(jù)類型構(gòu)造數(shù)據(jù)類型l 數(shù)組數(shù)組u固定大小數(shù)組固定大小數(shù)組u動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組l 自定義類型自定義類型2.3 常量與變量常量與變量l 字面常量字面常量l 符號常量符號常量u系統(tǒng)內(nèi)部常量系統(tǒng)內(nèi)部常量VbRed、VbCrLf等等u用戶自定義符號常量用戶自定義符號常量Const Pi As Single =3.14l變量變量計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松7 7第第3 3章章 運(yùn)算符、表達(dá)式與公共函數(shù)運(yùn)算符、表達(dá)式與公共函數(shù)3.1

8、VB中的運(yùn)算符與表達(dá)式中的運(yùn)算符與表達(dá)式l 算術(shù)運(yùn)算符與算術(shù)表達(dá)式算術(shù)運(yùn)算符與算術(shù)表達(dá)式l 字符串連接符字符串連接符l 關(guān)系運(yùn)算符與關(guān)系表達(dá)式關(guān)系運(yùn)算符與關(guān)系表達(dá)式l 邏輯運(yùn)算符與邏輯表達(dá)式邏輯運(yùn)算符與邏輯表達(dá)式l 運(yùn)算符的優(yōu)先級運(yùn)算符的優(yōu)先級u算術(shù)運(yùn)算符算術(shù)運(yùn)算符 、-、*或或/、Mod、+或或-u字符運(yùn)算符字符運(yùn)算符 +或或&u關(guān)系運(yùn)算符關(guān)系運(yùn)算符 =、=、=、Is、Likeu邏輯運(yùn)算符邏輯運(yùn)算符 Not、And、Or、Xor、Eqv、Imp計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松8 8第第3 3章章 運(yùn)算符、表達(dá)式與公共函數(shù)運(yùn)算符、表達(dá)式與公共函數(shù)3.2 V

9、B中的公共函數(shù)中的公共函數(shù)l 數(shù)學(xué)函數(shù)數(shù)學(xué)函數(shù)l 字符串函數(shù)字符串函數(shù)l 類型轉(zhuǎn)換函數(shù)類型轉(zhuǎn)換函數(shù)l 隨機(jī)函數(shù)隨機(jī)函數(shù)生成某個(gè)范圍內(nèi)的隨機(jī)整數(shù)生成某個(gè)范圍內(nèi)的隨機(jī)整數(shù)Int(upperbound lowerbound +1)*Rnd + lowerbound)l 輸入與輸出函數(shù)輸入與輸出函數(shù)計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松9 9第第4 4章章 數(shù)數(shù) 組組4.1 數(shù)組的命名及說明數(shù)組的命名及說明l 數(shù)組的命名數(shù)組的命名l 數(shù)組的說明數(shù)組的說明4.2 數(shù)組結(jié)構(gòu)與數(shù)組元素?cái)?shù)組結(jié)構(gòu)與數(shù)組元素l 數(shù)組的邏輯結(jié)構(gòu)與存儲結(jié)構(gòu)數(shù)組的邏輯結(jié)構(gòu)與存儲結(jié)構(gòu)l 數(shù)組元素?cái)?shù)組元素4

10、.3 固定大小數(shù)組與動(dòng)態(tài)數(shù)組固定大小數(shù)組與動(dòng)態(tài)數(shù)組l 固定大小數(shù)組固定大小數(shù)組l 動(dòng)態(tài)數(shù)組動(dòng)態(tài)數(shù)組4.4 Erase語句語句計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松1010第第5 5章章 順序結(jié)構(gòu)順序結(jié)構(gòu)5.1 賦值語句賦值語句l 賦值語句的格式賦值語句的格式=l 不同類型數(shù)據(jù)之間的賦值不同類型數(shù)據(jù)之間的賦值l 賦值號與等號的區(qū)別賦值號與等號的區(qū)別A AB B變量變量表達(dá)式表達(dá)式邏輯型邏輯型True非非0數(shù)值型數(shù)值型False0整型整型-1True邏輯型邏輯型0False字符型字符型“True”True邏輯型邏輯型“False”False數(shù)值型數(shù)值型編譯出錯(cuò)編譯出

11、錯(cuò)非數(shù)值字符串非數(shù)值字符串字符型字符型對應(yīng)的數(shù)值對應(yīng)的數(shù)值數(shù)值字符串?dāng)?shù)值字符串計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松1111第第5 5章章 順序結(jié)構(gòu)順序結(jié)構(gòu)5.2 Print 方法、方法、Cls 方法方法l 方法調(diào)用語句的一般形式方法調(diào)用語句的一般形式.參數(shù)列表參數(shù)列表l Print 方法方法對象對象.Print p1p2例例5-7：下列程序片斷的輸出結(jié)果是什么？：下列程序片斷的輸出結(jié)果是什么？a=3 : b=5Print “12345678901234567890”Print a;bPrint a,Print bPrint aPrint bl Cls 方法、方

12、法、Clear方法方法1234567890123456789012345678901234567890 3 5 3 5 3 5 3 5 3 3 5 5 計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松1212第第6 6章章 選擇結(jié)構(gòu)選擇結(jié)構(gòu)6.1 IfThen 結(jié)構(gòu)語句結(jié)構(gòu)語句l 標(biāo)準(zhǔn)分支選擇結(jié)構(gòu)標(biāo)準(zhǔn)分支選擇結(jié)構(gòu)例例6-1：寫出根據(jù)鍵盤輸入的百分制學(xué)生成績判斷該學(xué)生：寫出根據(jù)鍵盤輸入的百分制學(xué)生成績判斷該學(xué)生是否及格并輸出是否及格并輸出“Pass”或或“Fault”。l 單分支結(jié)構(gòu)單分支結(jié)構(gòu)例例6-2：寫出根據(jù)鍵盤輸入的百分制學(xué)生成績判斷該學(xué)生：寫出根據(jù)鍵盤輸入的百分制學(xué)

13、生成績判斷該學(xué)生是否及格并將及格學(xué)生的成績輸出的程序片段。是否及格并將及格學(xué)生的成績輸出的程序片段。l 多分支結(jié)構(gòu)多分支結(jié)構(gòu)例例6-3：寫出將鍵盤輸入的百分制學(xué)生成績轉(zhuǎn)換成五分制：寫出將鍵盤輸入的百分制學(xué)生成績轉(zhuǎn)換成五分制并輸出的程序片段。并輸出的程序片段。e eA AB BTrueTrueFalseFalse計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松1313第第6 6章章 選擇結(jié)構(gòu)選擇結(jié)構(gòu)6.2 Select Case 結(jié)構(gòu)語句結(jié)構(gòu)語句l 一般形式一般形式l 測試項(xiàng)的形式測試項(xiàng)的形式例例6-4：在：在 Select Case X 結(jié)構(gòu)中，描述判斷條件結(jié)構(gòu)中，描述判

14、斷條件3X7的的測試項(xiàng)應(yīng)該寫成測試項(xiàng)應(yīng)該寫成 。A. Case 3 X7B. Case 3 X, X7C. Case Is7 , Is3 D. Case 3 To 7計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松1414第第7 7章章 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)7.1 DoLoop 結(jié)構(gòu)語句結(jié)構(gòu)語句l Do-While循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)l Do-Until循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)e eA AFalseFalseTrueTruee eA AFalseFalseTrueTrue“當(dāng)當(dāng)”型循環(huán)型循環(huán)“直到直到”型循環(huán)型循環(huán)計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松15

15、15第第7 7章章 循環(huán)結(jié)構(gòu)循環(huán)結(jié)構(gòu)7.2 ForNext 結(jié)構(gòu)語句結(jié)構(gòu)語句l 一般形式一般形式For=ToStepExit ForNextl For循環(huán)與循環(huán)與Do循環(huán)的比較循環(huán)的比較l 循環(huán)嵌套循環(huán)嵌套計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松1616第第8 8章章 過程設(shè)計(jì)過程設(shè)計(jì)8.1 Sub過程與過程與Function過程的定義與調(diào)用過程的定義與調(diào)用l Sub過程的定義過程的定義Private | Public Static Sub 過程名過程名 (參數(shù)列表參數(shù)列表)局部變量和常量聲明局部變量和常量聲明語句體語句體Exit SubEnd SubuSub事件

16、過程的定義事件過程的定義uSub通用過程的定義通用過程的定義計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松1717第第8 8章章 過程設(shè)計(jì)過程設(shè)計(jì)8.1 Sub過程與過程與Function過程的定義與調(diào)用過程的定義與調(diào)用l Function過程的定義過程的定義Private | Public Static Function 函數(shù)名函數(shù)名 (參數(shù)列表參數(shù)列表) As 數(shù)據(jù)類型數(shù)據(jù)類型局部變量和常量聲明局部變量和常量聲明語句體語句體Exit Function函數(shù)名函數(shù)名=表達(dá)式表達(dá)式End Function例例8-5：以下有關(guān)過程的說法中錯(cuò)誤的是：以下有關(guān)過程的說法中錯(cuò)誤的

17、是 。A. 在在Sub或或Function過程中不能再定義其他過程中不能再定義其他Sub或或Function過程過程B. 在調(diào)用過程時(shí)，與使用在調(diào)用過程時(shí)，與使用ByRef說明的形參對應(yīng)的實(shí)參只能按地址傳遞方說明的形參對應(yīng)的實(shí)參只能按地址傳遞方式結(jié)合。式結(jié)合。C. 遞歸過程既可以是遞歸遞歸過程既可以是遞歸Function過程，也可以是遞歸過程，也可以是遞歸Sub過程。過程。D. 在調(diào)用過程時(shí)，形參為數(shù)組的參數(shù)對應(yīng)的實(shí)參只能是數(shù)組。在調(diào)用過程時(shí)，形參為數(shù)組的參數(shù)對應(yīng)的實(shí)參只能是數(shù)組。計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松1818第第8 8章章 過程設(shè)計(jì)過程設(shè)計(jì)8.

18、1 Sub過程與過程與Function過程的定義與調(diào)用過程的定義與調(diào)用l Function過程與過程與Sub過程的區(qū)別過程的區(qū)別例例8-6：分別用：分別用Sub過程和過程和Function過程編寫一個(gè)求過程編寫一個(gè)求n!的自定義過程。的自定義過程。SubSub過程：過程：Private Sub fact(nPrivate Sub fact(n As Integer, f As Long) As Integer, f As Long)Dim i As IntegerDim i As Integerf = 1f = 1For i = 1 To nFor i = 1 To n f = f f = f

19、 * * i iNext iNext iEnd SubEnd SubFunctionFunction過程：過程：Private Function fact(nPrivate Function fact(n As Integer) As Long As Integer) As LongDim i As IntegerDim i As Integerfact = 1fact = 1For i = 1 To nFor i = 1 To n fact = fact fact = fact * * i iNext iNext iEnd SubEnd Sub計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB

20、）培訓(xùn)）培訓(xùn) 魯松魯松1919第第8 8章章 過程設(shè)計(jì)過程設(shè)計(jì)8.1 Sub過程與過程與Function過程的定義與調(diào)用過程的定義與調(diào)用l Sub過程與過程與Function過程的調(diào)用過程的調(diào)用uSub事件過程的調(diào)用事件過程的調(diào)用uSub通用過程的調(diào)用通用過程的調(diào)用 Call 語句調(diào)用：語句調(diào)用：Call (實(shí)參表實(shí)參表) 將過程名作為語句調(diào)用：過程名將過程名作為語句調(diào)用：過程名 實(shí)參表實(shí)參表uFunction過程的調(diào)用過程的調(diào)用 變量變量=過程名（實(shí)參表）過程名（實(shí)參表）主調(diào)程序主調(diào)程序語句語句 n n調(diào)用過程調(diào)用過程 A A語句語句 n+1n+1End SubEnd Sub過程過程 A A

21、End SubEnd Sub計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松2020第第8 8章章 過程設(shè)計(jì)過程設(shè)計(jì)8.1 Sub過程與過程與Function過程的定義與調(diào)用過程的定義與調(diào)用l 過程的嵌套調(diào)用過程的嵌套調(diào)用l 過程調(diào)用的注意事項(xiàng)過程調(diào)用的注意事項(xiàng)u把把Sub過程名作為語句調(diào)用時(shí)，參數(shù)不需要加括號過程名作為語句調(diào)用時(shí)，參數(shù)不需要加括號uFunction過程無參時(shí)，括號不可省，其調(diào)用方法與公共函數(shù)類似過程無參時(shí)，括號不可省，其調(diào)用方法與公共函數(shù)類似u由于由于Function過程本身返回值，所以一般不使用過程本身返回值，所以一般不使用Sub通過過程的調(diào)通過過程的

22、調(diào)用方法，因?yàn)檫@兩種方法將放棄函數(shù)名的返回值用方法，因?yàn)檫@兩種方法將放棄函數(shù)名的返回值u若對若對Function過程的調(diào)用出現(xiàn)在表達(dá)式中，則其運(yùn)算優(yōu)先級最高過程的調(diào)用出現(xiàn)在表達(dá)式中，則其運(yùn)算優(yōu)先級最高主調(diào)程序主調(diào)程序調(diào)用過程調(diào)用過程 A AEnd SubEnd Sub過程過程 A A調(diào)用過程調(diào)用過程 B BEnd SubEnd Sub過程過程 B BEnd SubEnd Sub程序程序 A A調(diào)用過程調(diào)用過程 B BEnd SubEnd Sub程序程序 B B調(diào)用過程調(diào)用過程 A AEnd SubEnd Sub計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松2121第第8

23、 8章章 過程設(shè)計(jì)過程設(shè)計(jì)8.2 過程調(diào)用時(shí)的參數(shù)過程調(diào)用時(shí)的參數(shù)l 參數(shù)傳遞的限制參數(shù)傳遞的限制形參與實(shí)參的個(gè)數(shù)、類型和順序必須嚴(yán)格匹配形參與實(shí)參的個(gè)數(shù)、類型和順序必須嚴(yán)格匹配形參形參實(shí)參實(shí)參變量變量變量、常量、表達(dá)式、數(shù)組元素、對象變量、常量、表達(dá)式、數(shù)組元素、對象數(shù)組數(shù)組數(shù)組數(shù)組計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松2222第第8 8章章 過程設(shè)計(jì)過程設(shè)計(jì)8.2 過程調(diào)用時(shí)的參數(shù)過程調(diào)用時(shí)的參數(shù)l 按值傳遞按值傳遞 ByValu數(shù)組、自定義記錄類型的變量、對象變量不能按值傳遞；常數(shù)和數(shù)組、自定義記錄類型的變量、對象變量不能按值傳遞；常數(shù)和表達(dá)式必須按值傳遞

24、表達(dá)式必須按值傳遞u按值傳遞的參數(shù)，形參和實(shí)參的類型只需要相容即可按值傳遞的參數(shù)，形參和實(shí)參的類型只需要相容即可l 按地址傳遞按地址傳遞 ByRef計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松2323第第8 8章章 過程設(shè)計(jì)過程設(shè)計(jì)8.3 遞歸過程遞歸過程l 遞歸過程的定義遞歸過程的定義u在過程定義中調(diào)用自身或以其他方式間接調(diào)用自身的過程在過程定義中調(diào)用自身或以其他方式間接調(diào)用自身的過程u可以遞歸可以遞歸Sub過程，也可以遞歸過程，也可以遞歸Function過程過程l 遞歸過程的構(gòu)成條件遞歸過程的構(gòu)成條件u有對本身的調(diào)用語句有對本身的調(diào)用語句u有一個(gè)結(jié)束遞歸過程的條件

25、（終止條件或邊界條件）有一個(gè)結(jié)束遞歸過程的條件（終止條件或邊界條件）l 三題遞歸相關(guān)三題遞歸相關(guān)u求求 N!u求求 菲布拉及數(shù)列菲布拉及數(shù)列u求求 最大公約數(shù)最大公約數(shù)計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松2424第第8 8章章 過程設(shè)計(jì)過程設(shè)計(jì)8.4 變量的作用域與生命期變量的作用域與生命期l變量的作用域變量的作用域 在窗體模塊中，不能定義數(shù)組、定長字符串、用戶自定義類型等在窗體模塊中，不能定義數(shù)組、定長字符串、用戶自定義類型等為全局變量。為全局變量。局部變量局部變量模塊級變量模塊級變量全局變量全局變量窗體模塊窗體模塊標(biāo)準(zhǔn)模塊標(biāo)準(zhǔn)模塊聲明方式聲明方式Dim/S

26、taticDim/PrivatePublic聲明位置聲明位置過程內(nèi)過程內(nèi)窗體窗體/模塊的通用模塊的通用聲明段聲明段窗體窗體/模塊的通用聲明段模塊的通用聲明段作用范圍作用范圍本過程本過程本模塊本模塊整個(gè)程序整個(gè)程序能否本模塊其它能否本模塊其它過程訪問過程訪問不能不能能能能能能否被其它模塊能否被其它模塊訪問訪問不能不能不能不能能，但需在變量能，但需在變量名前加上窗體名名前加上窗體名能能計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松2525第第8 8章章 過程設(shè)計(jì)過程設(shè)計(jì)8.4 變量的作用域與生命期變量的作用域與生命期l變量的生命期變量的生命期l8-22：若希望在離開某過程后

27、，還能保存該過程中局部變量的值，：若希望在離開某過程后，還能保存該過程中局部變量的值，則應(yīng)使用則應(yīng)使用關(guān)鍵字在該過程中定義局部變量。關(guān)鍵字在該過程中定義局部變量。 A. DimB. PrivateC. PublicD. Staticl同名變量同名變量 局部變量局部變量靜態(tài)變量靜態(tài)變量模塊級變量模塊級變量全局變量全局變量聲明方式聲明方式DimStaticDim/PrivatePublic作用域作用域本過程本過程本過程本過程本模塊本模塊整個(gè)程序整個(gè)程序生命期生命期從聲明到過程終止從聲明到過程終止 從聲明到程序終止從聲明到程序終止 從聲明到程序終止從聲明到程序終止 從聲明到程序終止從聲明到程序終止計(jì)

28、算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松2626第第9 9章章 文件操作文件操作9.1 文件的基本概念文件的基本概念l 文件的概念文件的概念l 文件類型文件類型l 文件操作步驟文件操作步驟9.2 基本文件操作控件基本文件操作控件l 驅(qū)動(dòng)器列表框驅(qū)動(dòng)器列表框l 目錄列表框目錄列表框l 文件列表框文件列表框計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松2727第第9 9章章 文件操作文件操作9.3 常用文件操作語句與文件操作函數(shù)常用文件操作語句與文件操作函數(shù)l Open語句語句l Close語句與語句與Reset語句語句l Lock和和Unloc

29、k語句語句l Seek語句語句l Print #和和Write #語句語句l Input#和和Line Input # 語句語句l Put # 和和 Get #語句語句l 常用文件操作函數(shù)常用文件操作函數(shù)計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松2828第第10 10章章 算法中使用的基本技巧算法中使用的基本技巧10.1.1 交換交換l t=a : a=b : b=tl t=b: b=a : a=tl t=a : a=b : b=c : c=tl a=a+b : b=a-b : a=a-b10.1.2 累加、累乘累加、累乘l n=n+1l Sum=Sum+n P=P

30、*n10.2 最大最大/小值問題小值問題l max=a(1)for i=2 to Ubound(a)if a(i)max then max=a(i)next i計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松2929第第10 10章章 算法中使用的基本技巧算法中使用的基本技巧10.3.1 窮舉窮舉l 10-1：用：用100元買元買100只雞，公雞每只只雞，公雞每只5元，母雞每只元，母雞每只3元，小雞每元，小雞每1元元3只，問可以買多少只公雞、母雞和小雞？有多少種組合？只，問可以買多少只公雞、母雞和小雞？有多少種組合？Private Sub Command1_Click()

31、Dim X As Integer, Y As Integer, Z As IntegerDim Count As IntegerCount = 0For X = 0 To Fix(100 / 5) For Y = 0 To Fix(100 / 3) For Z = 0 To 100 If X * 5 + Y * 3 + Z / 3 = 100 And X + Y + Z = 100 Then Print X, Y, Z Count = Count + 1 End If Next NextNextPrint 組合個(gè)數(shù)：組合個(gè)數(shù)：; CountEnd SubFor X = 0 To 100 For

32、 Y = 0 To 100 - X Z = 100 - X - Y If 0.5 * X + 2 * Y + 3 * Z = 100 Then Print X, Y, Z Count = Count + 1 End If Next YNext計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松3030第第10 10章章 算法中使用的基本技巧算法中使用的基本技巧l 10-2：求出所有的水仙花數(shù)，如：求出所有的水仙花數(shù)，如153=13+53+33Private Sub Command1_Click()Dim X As Integer, Y As Integer, Z As Int

33、egerFor X = 1 To 9 For Y = 0 To 9 For Z = 0 To 9 If X 3 + Y 3 + Z 3 = 100 * X + 10 * Y + Z Then Print 100 * X + 10 * Y + Z End If Next NextNextEnd Sub計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松3131第第10 10章章 算法中使用的基本技巧算法中使用的基本技巧10.3.2 迭代迭代(費(fèi)波拉契數(shù)列費(fèi)波拉契數(shù)列)l 10-3：設(shè)方程為：設(shè)方程為4*x2-3*x-7=0，給出不精確的初始根，給出不精確的初始根x0=2，利用，

34、利用公式：公式：xn+1=xn-f(xn)/f(xn) n=0，1，2求出方程的近似根，直到求出方程的近似根，直到 |xn+1-xn|0.00001。Dim X0 As Double, X1 As DoubleX0 = 2Do X1 = X0 - (4 * X0 2 - 3 * X0 - 7) / (8 * X0 - 3) If Abs(X1 - X0) 0.00001 Then Exit Do X0 = X1LoopPrint X1Dim X0 As Double, X1 As DoubleDim X0 As Double, X1 As DoubleX1 = 2X1 = 2DoDo X0 =

35、 X1 X0 = X1 X1 = X0 - (4 X1 = X0 - (4 * * X0 2 - 3 X0 2 - 3 * * X0 - 7) / (8 X0 - 7) / (8 * * X0 - 3) X0 - 3)Loop Until Abs(X1 - X0) 0.00001Loop Until Abs(X1 - X0) = 10 -10) = 10 -10Print SumPrint SumEnd SubEnd Sub計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松3535Private Sub Command1_Click()Private Sub Command

36、1_Click()Const x As Single = 3.14159 / 3Const x As Single = 3.14159 / 3Dim Sum As Single, n As Integer, T As SingleDim Sum As Single, n As Integer, T As Singlen = 1: T = 1n = 1: T = 1DoDo Sum = Sum Sum = Sum + T + T n = n + 1 n = n + 1 T = (-1) (n + 1) T = (-1) (n + 1) * * x (2 x (2 * * (n - 1) /F(2

37、 (n - 1) /F(2 * * (n - 1) (n - 1)Loop While Abs(TLoop While Abs(T) = 10 -10) = 10 -10Print SumPrint SumEnd SubEnd Sub q q Function F(ByValFunction F(ByVal k As Integer) As k As Integer) As DoubleDoubleDim i As IntegerDim i As IntegerF = 1F = 1For i = 2 To kFor i = 2 To k F = F F = F * * i iNext iNex

38、t iEnd FunctionEnd Functioncos(x)=1-x2/2!+x4/4!-+(-1)n+1x2(n-1)/2(n-1)!+計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松3636第第11 11章章 數(shù)列、級數(shù)求和及矩陣運(yùn)算問題數(shù)列、級數(shù)求和及矩陣運(yùn)算問題11.2.2 連乘積連乘積11-4： 到通項(xiàng)接近到通項(xiàng)接近1時(shí)停止計(jì)算。時(shí)停止計(jì)算。2222222222Private Sub Command1_Click()Private Sub Command1_Click()Dim Sum As Single, T As SingleDim Sum As Si

39、ngle, T As SingleSum = 2: T = Sqr(2)Sum = 2: T = Sqr(2)DoDo Sum = Sum Sum = Sum * * 2 / T 2 / T T = Sqr(2 + T) T = Sqr(2 + T)Loop While Abs(2 / T - 1) = 10 -10Loop While Abs(2 / T - 1) = 10 -10Print SumPrint SumEnd SubEnd Sub計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松3737第第11 11章章 數(shù)列、級數(shù)求和及矩陣運(yùn)算問題數(shù)列、級數(shù)求和及矩陣運(yùn)算

40、問題11.3.1 矩陣的生成和打印矩陣的生成和打印l 生成數(shù)組生成數(shù)組l 打印數(shù)組打印數(shù)組11.3.2 矩陣的行列交換矩陣的行列交換11.3.3 矩陣的變換矩陣的變換11-10：將一個(gè)：將一個(gè)4行行4列矩陣進(jìn)行轉(zhuǎn)置列矩陣進(jìn)行轉(zhuǎn)置11-11：求出一給定矩陣的旋轉(zhuǎn)矩陣。：求出一給定矩陣的旋轉(zhuǎn)矩陣。26221814252117132420161223191511262524232221201918171651413121114812163711152610141591316151413121110987654321計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松3838第第11

41、 11章章 數(shù)列、級數(shù)求和及矩陣運(yùn)算問題數(shù)列、級數(shù)求和及矩陣運(yùn)算問題11.3.4 尋找某些特殊點(diǎn)尋找某些特殊點(diǎn)l 11-12：求：求6*5數(shù)組的鞍點(diǎn)，鞍點(diǎn)是指本行最大、本列最數(shù)組的鞍點(diǎn)，鞍點(diǎn)是指本行最大、本列最小的元素。小的元素。11.3.5 特殊矩陣特殊矩陣l 按以下樣式輸出按以下樣式輸出5行楊輝三角。行楊輝三角。 111 1 2 1 1 33 1 1 4 6 4 1Private Sub Command1_Click()Private Sub Command1_Click()Dim A(5, 5) As Integer, I As Integer, Dim A(5, 5) As Integ

42、er, I As Integer, J As IntegerJ As IntegerFor I = 1 To 5For I = 1 To 5 A(I, 1) = 1 A(I, 1) = 1 A(I, I) = 1 A(I, I) = 1Next INext IFor I = 3 To 5For I = 3 To 5 For J = 2 To I - 1 For J = 2 To I - 1 A(I, J) = A(I - 1, J - 1) + A A(I, J) = A(I - 1, J - 1) + A(I - 1, J)(I - 1, J) Next J Next JNext INext

43、 IFor I = 1 To 5For I = 1 To 5 Print Space(5 - I); Print Space(5 - I); For J = 1 To I For J = 1 To I Print CStr(A(I Print CStr(A(I, J); ;, J); ; Next J Next J Print PrintNext INext IEnd SubEnd Sub計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松393911.3.6 11.3.6 綜合例題綜合例題l 11-4：標(biāo)記出：標(biāo)記出5*5方陣中每一行最小元素的位置。如果某方陣中每一行最小元

44、素的位置。如果某一行有多個(gè)數(shù)值相等的最小元素，也要同時(shí)標(biāo)記出來。一行有多個(gè)數(shù)值相等的最小元素，也要同時(shí)標(biāo)記出來。標(biāo)記方式為每一行的最小元素為標(biāo)記方式為每一行的最小元素為0，其他元素為，其他元素為1。Option ExplicitOption ExplicitOption Base 1Option Base 1Private A(5, 5) As IntegerPrivate A(5, 5) As IntegerPrivate Sub Form_clickPrivate Sub Form_click()()Text1 = Text1 = Dim I As Integer, J As Intege

45、rDim I As Integer, J As IntegerRandomizeRandomizeFor I = 1 To 5For I = 1 To 5 For J = 1 To 5 For J = 1 To 5 A(I, J) = Int(20 - 10 + 1) A(I, J) = Int(20 - 10 + 1) * * Rnd Rnd + 10) + 10) Text1.Text = Text1 & A(I, J) & Text1.Text = Text1 & A(I, J) & Next J Next J Text1 = Text1 & vbCrLf Text1 = Text1 &

46、 vbCrLfNext INext IEnd SubEnd SubPrivate Sub Command1_Click()Private Sub Command1_Click()Dim I As Integer, J As Integer, Min As IntegerDim I As Integer, J As Integer, Min As IntegerFor I = 1 To 5For I = 1 To 5 Min = A(I, 1) Min = A(I, 1) For J = 2 To 5 For J = 2 To 5 If A(I, J) Min Then Min = A(I, J

47、) If A(I, J) Min Then Min = A(I, J) Next J Next J For J = 1 To 5 For J = 1 To 5 If A(I, J) = Min Then If A(I, J) = Min Then Text2 = Text2 Text2 = Text2 & 0 & 0 Else Else Text2 = Text2 Text2 = Text2 & 1 & 1 End If End If Next J Next J Text2 = Text2 & vbCrLf Text2 = Text2 & vbCrLfNext INext IEnd SubEn

48、d Sub計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松404011.3.6 11.3.6 綜合例題綜合例題l 11-15：找出：找出5*5數(shù)組中最大元素和最小元素所在行，如數(shù)組中最大元素和最小元素所在行，如果不在同一行則交換這兩行。果不在同一行則交換這兩行。Option ExplicitOption ExplicitOption Base 1Option Base 1Private A(5, 5) As IntegerPrivate A(5, 5) As IntegerPrivate Sub Form_clickPrivate Sub Form_click()()Di

49、m I As Integer, J As IntegerDim I As Integer, J As IntegerRandomizeRandomizeFor I = 1 To 5For I = 1 To 5 For J = 1 To 5 For J = 1 To 5 A(I, J) = Int(99 - 10 + 1) A(I, J) = Int(99 - 10 + 1) * * Rnd Rnd + 10) + 10) Text1.Text = Text1 & A(I, J) & Text1.Text = Text1 & A(I, J) & Next J Next J Text1 = Tex

50、t1 & vbCrLf Text1 = Text1 & vbCrLfNext INext IEnd SubEnd SubPrivate Sub Command1_Click()Private Sub Command1_Click()Dim I As Integer, J As Integer, T As IntegerDim I As Integer, J As Integer, T As IntegerDim Min As Integer, Max As IntegerDim Min As Integer, Max As IntegerDim LMin As Integer, LMaxDim

51、 LMin As Integer, LMax As Integer As IntegerMin = A(1, 1): Max = A(1, 1)Min = A(1, 1): Max = A(1, 1)For I = 1 To 5For I = 1 To 5 For J = 1 To 5 For J = 1 To 5 If A(I, J) Min Then If A(I, J) Max Then If A(I, J) Max Then Max = A(I, J) Max = A(I, J) LMax LMax = I = I End If End If End If End If Next J

52、Next JNext INext IIf LMin LMaxIf LMin LMax Then Then For I = 1 To 5 For I = 1 To 5 T = A(LMin T = A(LMin, I), I) A(LMin, I) = A(LMax A(LMin, I) = A(LMax, I), I) A(LMax A(LMax, I) = T, I) = T Next I Next IEnd IfEnd IfFor I = 1 To 5For I = 1 To 5 For J = 1 To 5 For J = 1 To 5 Text2 = Text2 Text2 = Tex

53、t2 & A(I, J) & & A(I, J) & Next J Next J Text2 = Text2 & vbCrLf Text2 = Text2 & vbCrLfNext INext IEnd SubEnd Sub計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松4141第第12 12章章 數(shù)組的移動(dòng)、排序及查找數(shù)組的移動(dòng)、排序及查找12.1 移動(dòng)移動(dòng)l 12-1：將一個(gè)：將一個(gè)10個(gè)元素的數(shù)組個(gè)元素的數(shù)組A循環(huán)向右移動(dòng)一位。循環(huán)向右移動(dòng)一位。1 2 3 4 5 6 7 8 9 10 10 1 2 3 4 5 6 7 8 9l 12-2：將一個(gè)：將一個(gè)10個(gè)元素的

54、數(shù)組個(gè)元素的數(shù)組A循環(huán)向左移動(dòng)一位。循環(huán)向左移動(dòng)一位。l 12-3：將一個(gè)：將一個(gè)10個(gè)元素的數(shù)組個(gè)元素的數(shù)組A循環(huán)向右移動(dòng)三位。循環(huán)向右移動(dòng)三位。l 12-4：將一個(gè)：將一個(gè)4行行4列數(shù)組的列循環(huán)右移一列。列數(shù)組的列循環(huán)右移一列。計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松4242第第12 12章章 數(shù)組的移動(dòng)、排序及查找數(shù)組的移動(dòng)、排序及查找12.2 排序排序l 12.2.1 選擇法排序選擇法排序 l 12.2.2 冒泡法排序冒泡法排序l 12.2.3 插入法排序插入法排序l 12.2.4 合并排序合并排序l 12.2.5 拉鋸式排序法拉鋸式排序法u每一輪先把最小

55、的元素從前到后送到最后面的位置，然后從后到前每一輪先把最小的元素從前到后送到最后面的位置，然后從后到前把最大的元素送到最前面的位置。把最大的元素送到最前面的位置。計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松4343第第12 12章章 數(shù)組的移動(dòng)、排序及查找數(shù)組的移動(dòng)、排序及查找12.3 查找查找l 12.3.1 順序查找順序查找 l 12.3.2 二分法查找二分法查找Option Base 1Option Base 1Private a(10) As IntegerPrivate a(10) As IntegerPrivate Sub Command1_Click()

56、Private Sub Command1_Click()Dim N As Integer, MiddDim N As Integer, Midd As Integer, Low As Integer, High As Inte As Integer, Low As Integer, High As IntegergerDim Flag As BooleanDim Flag As BooleanFor i = 1 To 10For i = 1 To 10 a(i a(i) = i ) = i * * 10 + i 10 + i Print a(i Print a(i););Next iNext

57、iPrintPrintFlag = FalseFlag = FalseN = 120N = 120Low = 1: High = 10Low = 1: High = 10DoDo Midd = Int(Low Midd = Int(Low + High) / 2) + High) / 2) If a(Midd If a(Midd) = N Then) = N Then Print CStr(N); is in array ; CStr(Midd Print CStr(N); is in array ; CStr(Midd) ) Flag = True Flag = True Exit Do E

58、xit Do Else Else If a(Midd If a(Midd) N Then) N Then High = Midd High = Midd - 1 - 1 Else Else Low = Midd Low = Midd + 1 + 1 End If End If End If End If Loop While Low = HighLoop While Low = HighIf Not Flag Then Print Cant find the Number ; CStr(NIf Not Flag Then Print Cant find the Number ; CStr(N)

59、; !); !End SubEnd Sub計(jì)算機(jī)等級考試二級（計(jì)算機(jī)等級考試二級（VBVB）培訓(xùn)）培訓(xùn) 魯松魯松4444第第13 13章章 因數(shù)、最大公約數(shù)與素?cái)?shù)等問題因數(shù)、最大公約數(shù)與素?cái)?shù)等問題13.1 整數(shù)的因數(shù)計(jì)算問題整數(shù)的因數(shù)計(jì)算問題l窮舉法求整數(shù)的所有因子窮舉法求整數(shù)的所有因子l動(dòng)態(tài)數(shù)組保存整數(shù)的所有因子動(dòng)態(tài)數(shù)組保存整數(shù)的所有因子l整數(shù)的連乘積表達(dá)整數(shù)的連乘積表達(dá)24=2223Private Sub Command1_Click()Private Sub Command1_Click()Dim i As Integer, N As IntegerDim i As Integer, N

60、 As IntegerN = InputBox(PleaseN = InputBox(Please Input a number) Input a number)i = 2i = 2Print CStr(NPrint CStr(N); =;); =;Do While i NDo While i NIf M NIf M N Then T = M: M = N: N = TEnd If歐幾里德法歐幾里德法 求最大公約數(shù)求最大公約數(shù)R = M Mod NDo While R 0 M = N N = R R = M Mod NLoopMsgBox (最大公約數(shù)是：最大公約數(shù)是： & N)End Sub