8/8模塊化程序設(shè)計(jì)教學(xué)主要內(nèi)容： 模塊化程序設(shè)計(jì)教學(xué)目標(biāo)與要求： 通過(guò)對(duì)本章的學(xué)習(xí)，使學(xué)生掌握過(guò)程與函數(shù)過(guò)程的使用教學(xué)重點(diǎn)與難點(diǎn)： 教學(xué)重點(diǎn)：Sub過(guò)程與函數(shù)過(guò)程的定義與調(diào)用教學(xué)難點(diǎn)：參數(shù)傳遞的意義教學(xué)素材：VisualBasic程序設(shè)計(jì)教程多媒體課件多媒體課室教學(xué)方法：講授法 課型：新授課教學(xué)過(guò)程：[課程引入]：先列出1個(gè)問(wèn)題，讓學(xué)生思考這樣的問(wèn)題用以前學(xué)過(guò)的知識(shí)怎樣解決，之后引入過(guò)程。例:某同學(xué)遇到了這樣的一個(gè)編程問(wèn)題：1!+3!+5!=？分析：該題目是把三個(gè)數(shù)的階乘求和。若用前面學(xué)習(xí)的方法，每個(gè)數(shù)的階乘都需要寫(xiě)一段代碼。若把求階乘的代碼作為“公共”程序段落，那么求各個(gè)數(shù)的階乘時(shí)，就只需調(diào)用這個(gè)“公共”程序段落就可以了。這個(gè)“公共”程序段落可以定義成過(guò)程，稱為“通用過(guò)程”。過(guò)程的引入:使同類的操作不重復(fù)(操作方法相同、參數(shù)不同)過(guò)程:完成一段獨(dú)立功能，可供其他過(guò)程使用(調(diào)用)。過(guò)程又稱為子程序調(diào)用過(guò)程:調(diào)用其他過(guò)程的過(guò)程調(diào)用過(guò)程調(diào)用過(guò)程:調(diào)用fact調(diào)用fact調(diào)用fact子程序:fact過(guò)程分類：Function過(guò)程分為：內(nèi)部函數(shù)和自定義函數(shù)Sub過(guò)程分為：內(nèi)部過(guò)程、事件過(guò)程和自定義過(guò)程[課堂講解]：Function過(guò)程Function過(guò)程的定義1.Function過(guò)程的格式[Public|Private][Static]Function<函數(shù)過(guò)程名>([<形參表>])[As<類型>][<語(yǔ)句組>][<函數(shù)過(guò)程名>=<表達(dá)式>][ExitFunction][<語(yǔ)句組>][<函數(shù)過(guò)程名>=<表達(dá)式>]EndFunction2.說(shuō)明(1)Public:缺省值。使用Public時(shí)表示所有模塊的所有其他過(guò)程都可以調(diào)用該Function過(guò)程。(2)Private:使用Private時(shí)表示只有本模塊中的其他過(guò)程才可以調(diào)用該Function過(guò)程。(3)Static:使用Static時(shí)表示將過(guò)程中的所有局部變量說(shuō)明為靜態(tài)變量。(4)<函數(shù)過(guò)程名>:Function過(guò)程的名稱，遵循變量的命名規(guī)則。(5)<形參表>:表示在調(diào)用時(shí)要傳遞給Function過(guò)程的參數(shù)變量列表。多個(gè)變量之間用逗號(hào)隔開(kāi)。<形參表>格式:[ByVal|ByRef]<變量名>[()][As<類型>]ByVal:表示該參數(shù)按值傳遞。ByRef:缺省值。表示該參數(shù)按地址傳遞。<變量名>:遵循變量命名規(guī)則的任何變量名或數(shù)組名。():當(dāng)參數(shù)為數(shù)組時(shí)使用。(7)ExitFunction語(yǔ)句:從Function過(guò)程中退出。(8)Function過(guò)程通過(guò)賦值語(yǔ)句<函數(shù)過(guò)程名>=<表達(dá)式>將函數(shù)的返回值賦給<函數(shù)過(guò)程名>。(9)Function過(guò)程的定義不能嵌套。3.Function過(guò)程的建立:?直接在代碼窗口中輸入。?在代碼窗口:“工具”菜單→“添加過(guò)程”命令。Function過(guò)程的調(diào)用直接在表達(dá)式中調(diào)用。格式:<函數(shù)過(guò)程名>([<實(shí)參表>])<實(shí)參表>:常量、變量或表達(dá)式，各參數(shù)之間用逗號(hào)分隔。如果是數(shù)組，在數(shù)組名之后必須跟一對(duì)空括號(hào)?！纠?】求1!+3!+5!=？'自定義求階乘的函數(shù)過(guò)程FactFunctionFact(NAsInteger)AsDoubleDimiAsInteger,FAsDoubleF=1'F用于保存階乘值Fori=1ToNF=F*iNextiFact=F'給函數(shù)過(guò)程名賦值EndFunction'在按鈕的Click事件過(guò)程中調(diào)用函數(shù)過(guò)程PrivateSubForm_Click()DimsumAsDoublesum=sum+Fact(1)+Fact(3)+Fact(5)'調(diào)用函數(shù)Print"1!+3!+5!=";sumEndSub1.函數(shù)需先定義再調(diào)用。2.函數(shù)通過(guò)函數(shù)名返回結(jié)果?！纠?】利用Function過(guò)程計(jì)算階乘，求組合數(shù)。界面如下圖所示。運(yùn)行時(shí)，在文本框Text1和Text2中輸入m和n值，單擊按鈕計(jì)算組合數(shù)，結(jié)果顯示于文本框Text3中。'自定義求階乘的函數(shù)FactFunctionFact(NAsInteger)AsDoubleDimFAsDouble,iAsIntegerF=1Fori=1ToNF=F*iNextiFact=FEndFunction'按鈕的Click事件過(guò)程PrivateSubCommand1_Click()DimmAsInteger,nAsInteger,cAsDoublem=Val(Text1.Text):n=Val(Text2.Text)'調(diào)用Fact函數(shù)求各階乘值c=Fact(m)/(Fact(n)*(Fact(m-n)))Text3.Text=Trim(Str(c))EndSub調(diào)用時(shí)的參數(shù)可以是常量，也可以是變量。Sub過(guò)程Sub過(guò)程的定義1.Sub過(guò)程的格式[Private|Public][Static]Sub<過(guò)程名>[(<形參表>)][<語(yǔ)句組>][ExitSub][<語(yǔ)句組>]EndSub2.說(shuō)明(1)ExitSub用于退出Sub過(guò)程。(2)<過(guò)程名>不具有值的意義，在Sub過(guò)程中不能給<過(guò)程名>賦值，也不能給<過(guò)程名>定義類型。(3)Sub過(guò)程通過(guò)<形參表>中的參數(shù)返回值。(4)Sub過(guò)程的建立方法與Function過(guò)程的建立方法相同。2.說(shuō)明(1)ExitSub用于退出Sub過(guò)程。(2)<過(guò)程名>不具有值的意義，在Sub過(guò)程中不能給<過(guò)程名>賦值，也不能給<過(guò)程名>定義類型。Sub過(guò)程的調(diào)用格式一:Call<過(guò)程名>[(<實(shí)參表>)]格式二:<過(guò)程名>[<實(shí)參表>]說(shuō)明:(1)<過(guò)程名>:要調(diào)用的Sub過(guò)程名；(2)<實(shí)參表>:可以是常量、變量或表達(dá)式，各參數(shù)之間用逗號(hào)分隔。如果是數(shù)組參數(shù)，則要在數(shù)組名之后跟一對(duì)空括號(hào)。(3)用Call語(yǔ)句調(diào)用一個(gè)Sub過(guò)程時(shí)，如果過(guò)程本身沒(méi)有參數(shù)，則省略<實(shí)參表>和括號(hào)。(4)格式二省略了Call關(guān)鍵字，同時(shí)<實(shí)參表>兩邊也不能帶括號(hào)?！纠?】用Sub過(guò)程實(shí)現(xiàn)求1!+3!+5!。OptionExplicitSubFact(NAsInteger,FAsDouble)DimIAsIntegerF=1ForI=1ToNF=F*INextIEndSubPrivateSubCommand1_Click()DimF1AsDouble,F2AsDouble,F3AsDoubleDimsumAsDouble'調(diào)用Fact過(guò)程求1的階乘，階乘值存于實(shí)參F1中CallFact(1,F1)'調(diào)用Fact過(guò)程求3的階乘，階乘值存于實(shí)參F2中CallFact(3,F2)'調(diào)用Fact過(guò)程求5的階乘，階乘值存于實(shí)參F3中CallFact(5,F3)sum=F1+F2+F3Print"1!+3!+5!=";sumEndSubSub過(guò)程通過(guò)參數(shù)來(lái)返回結(jié)果?！纠?】編寫(xiě)Sub過(guò)程，打印以下圖形。分析:打印以上圖形，不需要返回值，因此無(wú)需引入?yún)?shù)。Suba()Fori=1To6PrintTab(7-i);Forj=1To2*i-1Print"*";NextjPrintNextiEndSubPrivateSubForm_Click()Calla()EndSub【例5】編寫(xiě)Sub過(guò)程，求三個(gè)數(shù)中的最大數(shù)和最小數(shù)。分析:首先要設(shè)置三個(gè)參數(shù)，如x、y、z，用于接收三個(gè)原始數(shù)據(jù)，另外引入兩個(gè)參數(shù)max和min，用于返回最大和最小數(shù)。Subs(x,y,z,max,min)max=xmin=xIfy>maxThenmax=yIfy