【正文】 Democlass AS New Class1 　　　　 Call　（3）類模塊中的過(guò)程　　　 調(diào)用類模塊的公有過(guò)程時(shí)，要求用指向該類某一實(shí)例的變量修飾過(guò)程，即首先要聲明類的實(shí)例為對(duì)象變量，并以此變量作為過(guò)程名前綴修飾詞，不可直接用類名作為前綴修飾詞。 ([實(shí)參表])　（2）調(diào)用標(biāo)準(zhǔn)模塊中的過(guò)程　　　如果在應(yīng)用程序中，過(guò)程名是唯一的，則調(diào)用時(shí)不必加模塊名。4．調(diào)用其他模塊中的過(guò)程　（1）調(diào)用窗體中的過(guò)程　　 　從窗體模塊的外部調(diào)用窗體中的公有過(guò)程，必須用窗體的名字作為調(diào)用前綴?！?語(yǔ)法：?。?） 函數(shù)過(guò)程內(nèi)部不得再定義Sub過(guò)程或Function過(guò)程。 函數(shù)名的命名規(guī)則與變量命名規(guī)則相同；函數(shù)過(guò)程必須由函數(shù)名返回一個(gè)值。 ‘用Dim 或Static聲明 　　　 [ 語(yǔ)句塊 ]　　　 [ 函數(shù)名=表達(dá)式 ] 　　　 [ Exit Function]　　　　 語(yǔ)句塊 　　　 [ 函數(shù)名=表達(dá)式 ]　　　 End Function2．注意事項(xiàng)?。?） Function 函數(shù)名（[參數(shù)列表]）[As 數(shù)據(jù)類型]　　　 [局部變量和常數(shù)聲明]　　　　 例：利用過(guò)程編寫(xiě)求三角形面積的程序　（2）把過(guò)程名作為一個(gè)語(yǔ)句來(lái)用　　　語(yǔ)法：過(guò)程名 [實(shí)參1[，實(shí)參2……]]　　　它與（1）的不同點(diǎn)是：去掉了關(guān)鍵字和實(shí)參列表的括號(hào)　　 如上例中可以改成：area a,b,c,w 函數(shù)過(guò)程（Function）的定義與調(diào)用1．函數(shù)過(guò)程的定義　　有兩種方法：　（1） 在代碼窗口中，利用“工具”菜單下的“添加過(guò)程”命令，插入一個(gè)函數(shù)過(guò)程模板來(lái)定義　（2）在代碼窗口中，把插入點(diǎn)放在所有現(xiàn)有過(guò)程之外，直接輸入函數(shù)來(lái)定義 　　 [ Private | Public ]　　7） 過(guò)程中可以用Exit Sub提前結(jié)束過(guò)程，并返回到下調(diào)用該過(guò)程語(yǔ)句的下一條語(yǔ)句?！　?）而在調(diào)用該過(guò)程時(shí)，對(duì)應(yīng)的實(shí)在參數(shù)可以是定長(zhǎng)的字符串或字符串?dāng)?shù)組，若形參是數(shù)組則無(wú)限制。 　　 As： 數(shù)據(jù)類型]　　 式中：　　 變量名[（）]：變量名為合法的VB變量名或數(shù)組名，無(wú)括號(hào)表示變量，有括號(hào)表示數(shù)組。不含參數(shù)的過(guò)程稱為無(wú)參過(guò)程?！　?）參數(shù)列表中的參數(shù)稱為形式參數(shù)，它可以是變量名或數(shù)組名，只能是簡(jiǎn)單變量，不能是常量、數(shù)組元素、表達(dá)式；若有多個(gè)參數(shù)時(shí)，各參數(shù)之間用逗號(hào)分隔，形參沒(méi)有具體的值。 [ Static]2．通用過(guò)程　　通用過(guò)程是一個(gè)必須從另一個(gè)過(guò)程顯示調(diào)用的程序段，通用過(guò)程有助于將復(fù)雜的應(yīng)用程序分解成多個(gè)易于管理的邏輯單元，使應(yīng)用程序更簡(jiǎn)潔、更易于維護(hù)。 Sub 控件名_事件名（[參數(shù)列表]） 　　　　　　 [局部變量和常數(shù)聲明]　　　　　　　 語(yǔ)句塊　　　　　 End Sub　　　　注意：其中的控件名必須與窗體中某控件相匹配，否則VB將認(rèn)為它是一個(gè)通用過(guò)程。 Sub Form_事件名（[參數(shù)列表]） 　　　　　　 [局部變量和常數(shù)聲明] 　　　　　　 語(yǔ)句塊　　　　　 End Sub　　　注意：　　　　　 1）窗體事件過(guò)程名由Form_事件名組成，多文檔窗體用MDIForm_事件名；　　　　　 2）每個(gè)窗體事件過(guò)程名前都有一個(gè)Private的前綴，表示該事件過(guò)程不能在它自己的窗體模塊之外被調(diào)用；　　　　　 3）事件過(guò)程有無(wú)參數(shù)，完全由VB提供的具體事件本身決定，用戶不可以隨意添加。2．VB中的自定義過(guò)程分類（1）以“Sub”保留字開(kāi)始的子程序過(guò)程 （包括事件過(guò)程和通用過(guò)程），不返回值；（2）以“Function” 保留字開(kāi)始的函數(shù)過(guò)程，返回一個(gè)值；（3）以“Property” 保留字開(kāi)始的屬性過(guò)程，可以返回和設(shè)置窗體、標(biāo)準(zhǔn)模塊以及類模塊的屬性值，也可以設(shè)置對(duì)象的值。教學(xué)步驟：1．什么是過(guò)程 Next k A. 10 7 4 B. 10 6 2 C. 9 5 3 D. 10 6 3課后分析與小結(jié)：理解數(shù)組的含義及其作用，掌握使用一維和多維數(shù)組編程的一般方法。 Dim a(3) As Integer, b(3) As Integer For k = 0 To 2 a(k + 1) = Val(InputBox(請(qǐng)輸入數(shù)據(jù)：)) b(3 k) = a(k) Next k Print b(3) + a(3) A. 7 B. 6 C. 5 D. 8 2. 下列程序段的運(yùn)行結(jié)果是______。 數(shù)組應(yīng)用的一個(gè)重要內(nèi)容：排序與查找 排序：將一組數(shù)按遞增或遞減的次序排列 查找：從數(shù)組中查找所需的數(shù)據(jù) 選擇排序法 隨機(jī)產(chǎn)生十個(gè)10～100的整數(shù)，用“選擇排序法”按值從小到大順序排序，最后輸出結(jié)果。語(yǔ)法格式： For Each 成員 In 數(shù)組名 循環(huán)體 [Exit For] Next 成員 “成員”是一個(gè)Variant變量，它實(shí)際上代表數(shù)組中每一個(gè)元素 本語(yǔ)句可以對(duì)數(shù)組元素進(jìn)行讀取、查詢或顯示，它所重復(fù)執(zhí)行的次數(shù)由數(shù)組中元素的個(gè)數(shù)確定 在不知道數(shù)組中元素的數(shù)目時(shí)非常有用 控件數(shù)組 兩類數(shù)組：一般數(shù)組和控件數(shù)組 控件數(shù)組的概念 控件數(shù)組是一組具有相同名稱、類型和事件過(guò)程的控件 例如，Label1(0)，Label1(1)，Label1(2)，…… 但Label1, Label2, Label3, ……不是控件數(shù)組 控件數(shù)組具有以下特點(diǎn)： (1)相同的控件名稱(即Name屬性)； (2)控件數(shù)組中的控件具有相同的一般屬性； (3)所有控件共用相同的事件過(guò)程。Preserve 能保留數(shù)組中原有的數(shù)據(jù) For i = 1 To k Print a(i) Next iEnd Sub For Each...Next循環(huán)語(yǔ)句 與前面的循環(huán)語(yǔ)句For...Next類似，都是用來(lái)執(zhí)行指定重復(fù)次數(shù)的循環(huán)。聲明一個(gè)整型動(dòng)態(tài)數(shù)組 Show ReDim a(800) 39。 例如，表示100個(gè)學(xué)生的成績(jī)，采用簡(jiǎn)單變量來(lái)表示： s1，s2，s3，… s99，s100 采用數(shù)組來(lái)表示：t(0), t(1), t(2),… t(98), t(99) t(k) (k=0,1,2,…99)為數(shù)組元素(或稱下標(biāo)變量)，它表示第k個(gè)學(xué)生的成績(jī), k稱為下標(biāo)變量的下標(biāo)(默認(rèn)情況下，下標(biāo)從0開(kāi)始) 由三行四列組成的二維數(shù)組y，其12個(gè)下標(biāo)變量可表示為 y(0,0) y(0,1) y(0,2) y(0,3) y(1,0) y(1,1) y(1,2) y(1,3) y(2,0) y(2,1) y(2,2) y(2,3) 只要有規(guī)則地改變下標(biāo)值，就可以很方便地使下標(biāo)變量(如t(k))成為所需要的具體下標(biāo)變量 數(shù)組聲明語(yǔ)句 使用數(shù)組之前，一般需要定義數(shù)組，以便讓系統(tǒng)分配相應(yīng)的存儲(chǔ)單元。 s = 2 For k = 8 To 18 Step 4 s = s + 2 Next k Print s A. 6 B. 8 C. 10 D. 36 課后分析與小結(jié)：通過(guò)本章節(jié)的學(xué)習(xí)使學(xué)生掌握循環(huán)運(yùn)算的使用和一些常見(jiàn)的算法 教案（章節(jié)）授課時(shí)間第9周 星期四、五 第 節(jié)（ 年 月 日）課次2授課方式（請(qǐng)打√）理論課a 討論課□ 實(shí)踐課√ 習(xí)題課□ 其他□課時(shí)安排4教學(xué)單元（教學(xué)章、節(jié)或主題）：第六章 第一節(jié) 數(shù)組目的、要求（分了解、熟悉、掌握三個(gè)層次）：了解數(shù)組的概念掌握一維、二維數(shù)組的定義、引用、初始化掌握靜態(tài)和動(dòng)態(tài)數(shù)組及其差別掌握數(shù)組的基本使用方法掌握控件數(shù)組的定義、建立和使用知識(shí)要點(diǎn)：（1） 數(shù)組的概念（2） 數(shù)組的聲明和應(yīng)用（3） 動(dòng)態(tài)數(shù)組（4） For each…next循環(huán)語(yǔ)句（5） 控件數(shù)組技能要點(diǎn)： 理解數(shù)組的含義及其作用，掌握使用一維和多維數(shù)組編程的一般方法。每次重復(fù)都從舊值的基礎(chǔ)上遞推出新值，并由新值代替舊值。直到條件滿足或判別出無(wú)解為止。 2．窮舉法 “窮舉法”也稱為“枚舉法”，它是計(jì)算機(jī)解題常用的一種方法。 找出100～999三位數(shù)中的“水仙花”數(shù)，計(jì)算其個(gè)數(shù)。 1. 累加、連乘和計(jì)數(shù) 累加（如s=s+k）是在原有和的基礎(chǔ)上一次一次地每次加一個(gè)數(shù)，連乘（如t=t*c）則是在原有積的基礎(chǔ)上一次一次地每次乘一個(gè)數(shù)。獨(dú)有的一些屬性： (1)Style屬性：該屬性取值為0，1或2，分別決定了組合框的三種不同類型 下拉組合框(Dropdown Combo)：允許選擇或輸入新數(shù)據(jù) 簡(jiǎn)單組合框(Simple Combo)： 允許選擇或輸入新數(shù)據(jù) 下拉列表框(Dropdown List)： 只允許選擇，不能輸入新數(shù)據(jù)(2)Text屬性：該屬性是用戶所選定項(xiàng)目的文本或直接從文本框輸入的文本 常用算法 算法是對(duì)某個(gè)問(wèn)題求解過(guò)程的描述。若未選定任何項(xiàng)，則ListIndex的值為1 Selected屬性：邏輯型數(shù)組，表示列表框中某一表項(xiàng)是否被選中方法 (1) AddItem方法：用于把一個(gè)列表項(xiàng)加入列表框 格式： [對(duì)象.]AddItem 列表項(xiàng)[，索引] 舉例： 海南省 ，28 (2) Clear方法：用于清除列表框中的所有項(xiàng)目 (3) RemoveItem方法：用于刪除指定的列表項(xiàng) 采用以下方法，可為列表框List1賦值： (1)在屬性窗口中設(shè)置 (2)利用AddItem賦值 (3) 利用List屬性賦值 “教授” (0)= “教授” “副教授” (1)= “副教授” “講師” (2)= “講師” “助教” (3)= “助教”列表框表項(xiàng)的輸出 (1) 用鼠標(biāo)單擊列表框內(nèi)某一表項(xiàng)，則該表項(xiàng)值存放在Text屬性中。 例如，(0)的值為“教授”，(1)的值為“副教授” 。 在進(jìn)入內(nèi)循環(huán)之前，使用Print Tab()來(lái)對(duì)起始輸出位置定位，退出內(nèi)循環(huán)后，使用Print來(lái)控制換行。 設(shè)計(jì)一個(gè)“加法器”程序 多 重 循 環(huán)多重循環(huán)是指循環(huán)體內(nèi)含有循環(huán)語(yǔ)句的循環(huán) 多重循環(huán)程序示例 程序運(yùn)行結(jié)果 Private Sub Form_Load() 1 5 Show 1 6 For i = 1 To 3 ‘外循環(huán) 1 7 For j = 5 To 7 ’內(nèi)循環(huán) 2 5 Print i, j Next j