【正文】 = 0 Then k = k + 1 a(k) = x End If Next x ReDim Preserve a(k) 39。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)。但For Each...Next語(yǔ)句專門作用于數(shù)組或?qū)ο蠹现械拿恳怀蓡T。語(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ò)程。 以下標(biāo)索引值(Index)來(lái)標(biāo)識(shí)各個(gè)控件，第一個(gè)下標(biāo)索引號(hào)默認(rèn)為0建立控件數(shù)組有三種方法： (1)給控件起相同的名稱 (2)將現(xiàn)有的控件復(fù)制并粘貼到窗體等上面 (3)將控件的Index屬性設(shè)置為非Null數(shù)值 控件數(shù)組的使用數(shù)組是程序設(shè)計(jì)中廣泛使用的一種數(shù)據(jù)結(jié)構(gòu)，它可以方便靈活地組織數(shù)據(jù)。 數(shù)組應(yīng)用的一個(gè)重要內(nèi)容：排序與查找 排序：將一組數(shù)按遞增或遞減的次序排列 查找：從數(shù)組中查找所需的數(shù)據(jù) 選擇排序法 隨機(jī)產(chǎn)生十個(gè)10～100的整數(shù)，用“選擇排序法”按值從小到大順序排序，最后輸出結(jié)果。 解題方法： 采用折半查找法查詢學(xué)生成績(jī) ，現(xiàn)要求采用折半查找法，通過(guò)學(xué)號(hào)查詢學(xué)生成績(jī) 教學(xué)手段：（如：舉例講解、多媒體講解、模型講解、實(shí)物講解、掛圖講解、音像講解等） 舉例講解、多媒體講解作業(yè)和思考題： 1．下列程序段運(yùn)行后，假設(shè)依次輸入5，則運(yùn)行結(jié)果是______。 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é)果是______。 Dim a a = Array(1, 3, 5, 7, 9, 11) For k = 0 To 2 Print a(5 k) a(k)。 Next k A. 10 7 4 B. 10 6 2 C. 9 5 3 D. 10 6 3課后分析與小結(jié)：理解數(shù)組的含義及其作用，掌握使用一維和多維數(shù)組編程的一般方法。 教案（章節(jié)）授課時(shí)間第 11 周 星期四、五 第 節(jié)（ 年 月 日）課次4授課方式（請(qǐng)打√）理論課a 討論課□ 實(shí)踐課√ 習(xí)題課□ 其他□課時(shí)安排8教學(xué)單元（教學(xué)章、節(jié)或主題）：第六章 第二節(jié) 過(guò)程目的、要求（分了解、熟悉、掌握三個(gè)層次）：了解Visual Basic 過(guò)程的分類掌握Sub過(guò)程和Function函數(shù)過(guò)程的建立、定義、調(diào)用的不同方法掌握形參、實(shí)參的概念掌握引用、傳值、可選參數(shù)以及對(duì)象參數(shù)的概念知識(shí)要點(diǎn)：（1） 通用過(guò)程（2） 參數(shù)傳遞（3） 過(guò)程的嵌套調(diào)用（4） 變量的作用范圍（5） 多窗體與Sub Main過(guò)程技能要點(diǎn)：通過(guò)學(xué)習(xí)使得學(xué)生掌握結(jié)構(gòu)化程序設(shè)計(jì)方法，利用函數(shù)和過(guò)程將程序模塊化的實(shí)際手段，掌握函數(shù)和過(guò)程定義和調(diào)用方法。教學(xué)步驟：1．什么是過(guò)程 在程序設(shè)計(jì)中，為各個(gè)相對(duì)獨(dú)立的功能模塊所編寫的一段程序稱之為過(guò)程。2．VB中的自定義過(guò)程分類（1）以“Sub”保留字開始的子程序過(guò)程 （包括事件過(guò)程和通用過(guò)程），不返回值；（2）以“Function” 保留字開始的函數(shù)過(guò)程，返回一個(gè)值；（3）以“Property” 保留字開始的屬性過(guò)程，可以返回和設(shè)置窗體、標(biāo)準(zhǔn)模塊以及類模塊的屬性值，也可以設(shè)置對(duì)象的值。 子過(guò)程（Sub）的定義與調(diào)用1． 事件過(guò)程（1）窗體事件過(guò)程　　　語(yǔ)法：Private 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）控件事件過(guò)程　　　語(yǔ)法：Private Sub 控件名_事件名（[參數(shù)列表]） 　　　　　　 [局部變量和常數(shù)聲明]　　　　　　　 語(yǔ)句塊　　　　　 End Sub　　　　注意：其中的控件名必須與窗體中某控件相匹配，否則VB將認(rèn)為它是一個(gè)通用過(guò)程。（3）建立事件過(guò)程的方法　　1）打開代碼編輯器窗口（兩種方法：雙擊對(duì)象或從工程管理器中單擊“查看代碼”按鈕）　　2）在代碼編輯器窗口中，選擇所需要的“對(duì)象”和“事件過(guò)程”　　3）在Private Sub …… End Sub之間鍵入代碼　　4）保存工程和窗體（4）事件過(guò)程的調(diào)用　　事件過(guò)程由一個(gè)發(fā)生在VB中的事件來(lái)自動(dòng)調(diào)用或者由同一模塊中的其他過(guò)程顯示調(diào)用。2．通用過(guò)程　　通用過(guò)程是一個(gè)必須從另一個(gè)過(guò)程顯示調(diào)用的程序段，通用過(guò)程有助于將復(fù)雜的應(yīng)用程序分解成多個(gè)易于管理的邏輯單元，使應(yīng)用程序更簡(jiǎn)潔、更易于維護(hù)。　　通用過(guò)程分為公有（Public）過(guò)程和私有（ Private）過(guò)程兩種，公有過(guò)程可以被應(yīng)用程序中的任一過(guò)程調(diào)用，而私有過(guò)程只能被同一模塊中的過(guò)程調(diào)用。 （1）定義方法： 　　[ Private | Public ] [ Static] Sub 過(guò)程名（[參數(shù)列表]） 　　　　　 [局部變量和常數(shù)聲明] ‘用Dim 或Static聲明 　　　　　　 語(yǔ)句塊　　　 [Exit Sub]　　　　　　 語(yǔ)句塊　　　 End Sub 　注意：　　1）缺省[ Private | Public ]時(shí)，系統(tǒng)默認(rèn)為 Public ；　　2）Static 表示過(guò)程中的局部變量為“靜態(tài)”變量；　　3）過(guò)程名的命名規(guī)則與變量命名規(guī)則相同，在同一個(gè)模塊中，同一符號(hào)名不得既用作Sub過(guò)程名，又用作Function過(guò)程名?！　?）參數(shù)列表中的參數(shù)稱為形式參數(shù)，它可以是變量名或數(shù)組名，只能是簡(jiǎn)單變量，不能是常量、數(shù)組元素、表達(dá)式；若有多個(gè)參數(shù)時(shí)，各參數(shù)之間用逗號(hào)分隔，形參沒有具體的值。VB的過(guò)程可以沒有參數(shù)，但一對(duì)圓括號(hào)不可以省略。不含參數(shù)的過(guò)程稱為無(wú)參過(guò)程。 　　形參格式為： 　　　　　　　 [ ByVal ] 變量名[（）] [As 數(shù)據(jù)類型]　　 式中：　　 變量名[（）]：變量名為合法的VB變量名或數(shù)組名，無(wú)括號(hào)表示變量，有括號(hào)表示數(shù)組?！　?ByVal ：表明其后的形參是按值傳遞參數(shù)（傳值參數(shù) Passed By Value），若缺省或用ByRef，則表明參數(shù)是按地址傳遞的（傳址參數(shù)）或稱“引用”（Passed By Reference）。 　　 As： 數(shù)據(jù)類型：缺省表明該形參是變體型變量，若形參變量的類型聲明為String，則只能是不定長(zhǎng)的。而在調(diào)用該過(guò)程時(shí)，對(duì)應(yīng)的實(shí)在參數(shù)可以是定長(zhǎng)的字符串或字符串?dāng)?shù)組，若形參是數(shù)組則無(wú)限制?！　?）Sub 過(guò)程不能嵌套定義，但可以嵌套調(diào)用?！　?） End Sub 標(biāo)志該過(guò)程的結(jié)束，系統(tǒng)返回并調(diào)用該過(guò)程語(yǔ)句的下一條語(yǔ)句?！　?） 過(guò)程中可以用Exit Sub提前結(jié)束過(guò)程，并返回到下調(diào)用該過(guò)程語(yǔ)句的下一條語(yǔ)句。?。?）建立Sub過(guò)程的方法　　方法一：　　1）打開代碼編輯器窗口　　2）選擇“工具”菜單中的“添加過(guò)程”　　3）從對(duì)話框中輸入過(guò)程名，并選擇類型和范圍　　4）在新創(chuàng)建的過(guò)程中輸入內(nèi)容　　方法二：　　 1）在代碼編輯器窗口的對(duì)象中選擇“通用”，在文本編輯區(qū)輸入 Private Sub 過(guò)程名　　 2）按回車鍵，即可創(chuàng)建一個(gè)Sub過(guò)程樣板　　 3）在新創(chuàng)建的過(guò)程中輸入內(nèi)容3．Sub子過(guò)程的調(diào)用?。?） 用Call語(yǔ)句調(diào)用Sub過(guò)程 　　　語(yǔ)法：Call 過(guò)程名（實(shí)在參數(shù)表）　　　　 實(shí)在參數(shù)的個(gè)數(shù)、類型和順序，應(yīng)該與被調(diào)用過(guò)程的形式參數(shù)相匹配，有多個(gè)參數(shù)時(shí)，用逗號(hào)分隔?！　　　?例：利用過(guò)程編寫求三角形面積的程序?。?）把過(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 ] [ Static] Function 函數(shù)名（[參數(shù)列表]）[As 數(shù)據(jù)類型]　　　 [局部變量和常數(shù)聲明] ‘用Dim 或Static聲明 　　　 [ 語(yǔ)句塊 ]　　　 [ 函數(shù)名=表達(dá)式 ] 　　　 [ Exit Function]　　　　 語(yǔ)句塊 　　　 [ 函數(shù)名=表達(dá)式 ]　　　 End Function2．注意事項(xiàng)?。?） 函數(shù)名的命名規(guī)則與變量命名規(guī)則相同；函數(shù)過(guò)程必須由函數(shù)名返回一個(gè)值?！。?） 如果函數(shù)體內(nèi)沒有給函數(shù)名賦值，則返回對(duì)應(yīng)類型的缺省值，數(shù)值型返回0，字符型返回空字符串?！。?） 函數(shù)過(guò)程內(nèi)部不得再定義Sub過(guò)程或Function過(guò)程。　　　 例：編寫一個(gè)計(jì)算N！的函數(shù)過(guò)程3．Function過(guò)程的調(diào)用　　調(diào)用Function過(guò)程與調(diào)用VB內(nèi)部函數(shù)的方法一樣，即在表達(dá)式中寫出它的名稱和相應(yīng)的實(shí)在參數(shù)。　 語(yǔ)法： 過(guò)程名（[實(shí)參列表]）　 　 注意：（1）必須給參數(shù)加上括號(hào)，即使沒有參數(shù)也不可省略括號(hào)；　　　　 （2）VB中也允許象調(diào)用Sub過(guò)程一樣來(lái)調(diào)用Function，但這樣就沒有返回值。4．調(diào)用其他模塊中的過(guò)程?。?）調(diào)用窗體中的過(guò)程　　 　從窗體模塊的外部調(diào)用窗體中的公有過(guò)程，必須用窗體的名字作為調(diào)用前綴。如：　　　 Call ([實(shí)參表])?。?）調(diào)用標(biāo)準(zhǔn)模塊中的過(guò)程　　　如果在應(yīng)用程序中，過(guò)程名是唯一的，則調(diào)用時(shí)不必加模塊名。如果有同名的，則在同一模塊內(nèi)調(diào)用時(shí)可以不加模塊名，而在其他模塊中調(diào)用時(shí)必須加模塊名?！。?）類模塊中的過(guò)程　　　 調(diào)用類模塊的公有過(guò)程時(shí)，要求用指向該類某一實(shí)例的變量修飾過(guò)程，即首先要聲明類的實(shí)例為對(duì)象變量，并以此變量作為過(guò)程名前綴修飾詞，不可直接用類名作為前綴修飾詞?！　　∪纾涸陬惸KClass1中含有過(guò)程clssub，變量Democlass是類Class1的一個(gè)實(shí)例，則調(diào)用clssub的方法是： 　　　　 Dim Democlass AS New Class1 　　　　 Call 　 例：函數(shù)過(guò)程與子過(guò)程的異同，計(jì)算級(jí)數(shù)的部分和　　1 + x + x2/2! +……+ xn/n! +……， |xn/n!|exp