东北大学,可视化程序设计(VB),课件04第4章.ppt

《东北大学,可视化程序设计(VB),课件04第4章.ppt》由会员分享，可在线阅读，更多相关《东北大学,可视化程序设计(VB),课件04第4章.ppt（45页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Visual Basic.NET 程序设计程序设计主讲人：蒋忠中主讲人：蒋忠中东北大学工商管理学院第第 4 4 章章 过过 程程教教学学目目的的教教学学要要求求重重点点难难点点教教学学内内容容教教学学目目的的 学习本章的目的是了解模块化程序设计的思想，通过学习和上机实践，掌握Sub过程和Function过程的定义和调用方法。参数传递是学习本章的重要内容之一，通过本章的学习掌握形参与实参的作用，传值调用和引用调用的特点和区别，数组作为参数在过程定义中的意义和作用。学习本章还需了解变量的作用域和生存期、递归过程的特点以及其执行过程。学习本章的重要目标是在程序设计中合理的定义Sub过程和Functi

2、on过程。BACK教教学学要要求求u了解模块化程序设计的概念、“自顶向下、逐步求精”的程序设计方法。u掌握Sub过程的定义和调用方法，会将某一功能用Sub过程来实现。u掌握Function过程的定义和调用方法，能正确区分Sub过程和Function过程之间的区别，会将某一功能利用Function过程来实现。u掌握形参和实参的意义和作用，形参与一般变量的区别。掌握形参与实参之间传值调用和引用调用的特点，在程序设计中能合理的使用形参与实参之间的传值调用和引用调用，能正确理解数组参数在过程定义中的作用。u正确理解变量的作用域以及变量的生存期。u了解递归的概念，会顺利的阅读递归程序，了解递归程序的特点

3、。u会举一反三，正确的定义和调用Sub过程和Function过程。BACK重重点点难难点点重点：重点：uSub过程和Function过程的定义格式和调用方法，区分这两种过程的异同点。u形参与实参的作用，传值调用和引用调用的特点及其区别，数组作为参数在过程定义中的作用。u变量的作用域。u递归过程的特点及其执行过程。u理解Sub过程和Function过程的执行流程。u在程序设计中，正确使用Sub过程和Function过程。重重点点难难点点难点：难点：u模块化分的原则，将一个复杂的问题分解为多个程序模块来实现。u形参的作用，形参与实参之间的关系。uSub过程与Function过程之间的异同。u传值调

4、用和引用调用的特点，在过程设计中合理的选用形参与实参之间的传值调用和引用调用。u静态变量的特点。u递归过程的执行流程，其中的递归执行条件的正确选用。BACK教教学学内内容容4.1 4.1 模块化程序设计概述模块化程序设计概述4.2 Sub4.2 Sub过程过程4.3 Function4.3 Function过程过程4.4 4.4 参数传递参数传递4.5 4.5 变量的作用域与生存期变量的作用域与生存期4.6 4.6 递归递归 过程可分为事件过程和通用过程。事件过程是当某个事件发生时，对该事件做出响应的程序段。将这一段代码抽象出来，建立一个独立的、可供其它过程调用的过程，这样的过程称为通用过程。

5、通用过程主要包括Sub过程和Function过程两类，前者也被称作子过程，后者称作函数过程。4.1 4.1 模块化程序设计概述模块化程序设计概述过程事件过程通用过程Sub过程Function过程4.1 4.1 模块化程序设计概述模块化程序设计概述4.1 4.1 模块化程序设计概述模块化程序设计概述4.1.1 4.1.1 程序的模块化程序的模块化 模块化程序设计是分而治之策略在程序设计中的应用。人们在解决复杂问题时往往采用分而治之的策略。4.1 4.1 模块化程序设计概述模块化程序设计概述4.1.1 4.1.1 程序的模块化程序的模块化列车售票系统列车时刻表查询售票退票按车次查询按时间查询按站名

6、查询4.1 4.1 模块化程序设计概述模块化程序设计概述4.1.2 4.1.2 模块间的层次结构模块间的层次结构u具有严密的正确的层次结构；u具有合理的隶属关系；u上层模块可以调用所有隶属于它的下层模块；u下属模块只能通过唯一的出口返回到调用它的上层模块；u整个程序按隶属关系分成若干层次，每一层次由若干个模块组成。4.1 4.1 模块化程序设计概述模块化程序设计概述4.1.34.1.3“自顶向下、逐步求精自顶向下、逐步求精”的程序设计方法的程序设计方法 u强调的是程序总体结构，即要求程序设计人员首先确定主控模块。u分层向下细化，即按照上一层模块已确定的功能，把它再细化为一些子模块。如此继续下去

7、，直到所有模块功能能够很容易地用计算机语言实现。4.1 4.1 模块化程序设计概述模块化程序设计概述4.1.34.1.3“自顶向下、逐步求精自顶向下、逐步求精”的程序设计方法的程序设计方法 列车售票系统列车时刻表查询售票退票按车次查询按时间查询按站名查询MENU4.2 Sub4.2 Sub过程过程4.2.1 Sub4.2.1 Sub过程的定义过程的定义Sub过程的定义形式：Public|Private Static Sub 过程名(形式参数列表)Exit Sub End Sub4.2 Sub4.2 Sub过程过程4.2.1 Sub4.2.1 Sub过程的定义过程的定义 【例4.1】实现两个浮点

8、型变量值之间的交换。Private Sub Swap（ByRef A As Single，ByRef B As Single）Dim T As Single T=AEnd Sub：A=B：B=T4.2 Sub4.2 Sub过程过程4.2.1 Sub4.2.1 Sub过程的定义过程的定义uSub过程以Sub开头，以End Sub结束，两者之间称为“过程体”。u过程名的命名规则与变量名相同。uSub过程通过形参与实参的传递得到结果，调用时可返回多个值。u Exit Sub的功能是退出Sub过程，其目的是用于提前结束本次过程调用。4.2 Sub4.2 Sub过程过程4.2.1 Sub4.2.1 Su

9、b过程的定义过程的定义uByVal|ByRef 变量名变量名()As 类型类型,仅表示形式参数的类型、个数和次序；在过程定义时并无具体值，也不分配存储空间；在过程被调用时，通过与实际参数结合获得具体的值。ByVal表示当该过程被调用时，参数是按值传递的；ByRef表示当该过程被调用时，参数是按地址传递的。形式参数也可以是数组。在例4.1中，也可以将形式参数写成如下形式：Private Sub Swap（ByRef A!，ByRef B!）4.2 Sub4.2 Sub过程过程4.2.2 Sub4.2.2 Sub过程的调用过程的调用Sub过程的调用格式如下：过程名过程名(实参列表实参列表)为形参分

10、配临时的存储单元；将实参的值传递给形参对应的临时单元；执行过程体中的语句；当过程运行结束后把临时单元释放掉；执行调用语句的下一条语句。4.2 Sub4.2 Sub过程过程4.2.2 Sub4.2.2 Sub过程的调用过程的调用Private Sub _ Button1_Click(ByVal sender _ As System.Object,ByVal e _ As System.EventArgs)_ Handles Button1.Click Swap(X,Y)TxtOutput.Text=“X=”+_ X.ToString()+“Y=”+_ Y.ToString()End Sub Di

11、m X，Y As Single X=3.95：Y=-12.2Private Sub Swap（ByVal _ A As Single，ByVal B As _ Single）Dim T As Single End SubSwap(X,Y)3.95-12.23.95-12.2T=A:A=B:B=T3.953.95-12.2传值过程调用过程实参实参：X Y形参形参：A BTMENU4.3 Function4.3 Function过程过程4.3.1 Function4.3.1 Function过程的定义过程的定义Function过程的定义形式：Public|Private Static Functi

12、on 过程名(形式参数列表)As 类型 Exit Function End Function4.3 Function4.3 Function过程过程4.3.1 Function4.3.1 Function过程的定义过程的定义uFunction过程以Function开头，以End Function结束，两者之间称为“过程体”。u过程体中至少有一条Return语句:Return 表表达式达式。调用时，过程的返回值即该表达式的值。u“As 类型”指定Function过程返回值的数据类型。4.3 Function4.3 Function过程过程4.3.1 Function4.3.1 Function过

13、程的定义过程的定义计算阶乘的Function过程。Function Fact(ByVal N As Integer)As Long Dim i As Integer Dim Result As Long Result=1 For i=1 to N Result=Result*i Next i Return Result End Function 4.3 Function4.3 Function过程过程4.3.2 Function4.3.2 Function过程的调用过程的调用 Function过程可以作为表达式的一个运算分量来使用。它的调用形式为：过程名过程名(实际参数表实际参数表)4.3 F

14、unction4.3 Function过程过程4.3.1 Function4.3.1 Function过程的定义过程的定义 例如，调用计算阶乘的Function过程的程序段代码：Dim X As Integer,Y As Long X=Val(InputBox(“请输入一个不大于10的自然数：”)Y=Fact(X)MENU4.4 4.4 参数传递参数传递u设计过程时要指定形式参数，包括形式参数的个数及其类型；u在调用过程时，必须提供实际参数；u完成实际参数与形式参数的结合，称为参数传递。u参数传递分传值和引用两种方式。4.4 4.4 参数传递参数传递4.4.1 4.4.1 形参与实参形参与实参

15、 形式参数是指在定义通用过程时，出现在过程名后一对圆括号的变量。实际参数是指在调用通用过程时，出现在过程名后一对圆括号内的变量、常量或表达式。u实参可以是常量、变量、表达式或数组名等形式。u形、实参表中的各个参数用逗号分隔。u在过程调用时，实际参数应在个数、类型和次序上与形式参数保持一致。4.4 4.4 参数传递参数传递4.4.1 4.4.1 形参与实参形参与实参Function Fact(ByVal N As Integer)As Long Dim i As Integer Dim Result As Long Result=1 For i=1 to N Result=Result*i Ne

16、xt i Return Result End FunctionPrivate Sub Button1_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs)Handles Button1.Click Dim X As Integer,Y As Long X=Val(InputBox(“请输入一个不大于请输入一个不大于10的自然数：的自然数：”)Y=Fact(X)End Sub形参实参4.4 4.4 参数传递参数传递4.4.2 4.4.2 传值传值 ByVal表明调用过程时对应的实参与形参之间按传值方式传递数据。u系统

17、为形参分配临时存储单元，并将实参的值传送给形参；u在过程内部改变形参的值时，并不会影响到实参的值。u实参可以是常量、变量或表达式，而变量必须有确定的值。4.4 4.4 参数传递参数传递4.4.2 4.4.2 传值传值【例4.2】Private Function fun1(ByVal x%,ByVal y%)As Integer Dim sum As Integer x=x*x y=y*y sum=x+y Return sum End Function Private Sub Button1_Click(ByVal sender As System.Object,_ ByVal e As Sys

18、tem.EventArgs)Handles Button1.Click Dim A,B,C As Integer A=5 B=8 C=fun1(A,B)TxtOutPut.Text=A=+A.ToString()+B=+_ B.ToString()+计算结果=+C.ToString()End Sub Private Function fun1(ByVal x%,ByVal y%)As Integer Dim sum As Integer x=x*x y=y*y sum=x+y Return sum End Function Private Sub Button1_Click(ByVal sen

19、der As System.Object,_ ByVal e As System.EventArgs)Handles Button1.Click Dim A,B,C As Integer A=5 B=8 C=fun1(A,B)TxtOutPut.Text=A=+A.ToString()+B=+_ B.ToString()+计算结果计算结果=+C.ToString()End Sub 4.4 4.4 参数传递参数传递4.4.3 4.4.3 引用引用 ByRef表明调用过程时对应的形参与实参之间按引用方式传递数据。u参数的传递是将实参的地址传递给形参，即形参与实参共享相同的存储单元。u当过程中对形参

20、的值更改时，将更改相应实参的值。u实参可以是变量或数组，而不能是常量或表达式。4.4 4.4 参数传递参数传递4.4.3 4.4.3 引用引用Private Sub _ Button1_Click(ByVal sender _ As System.Object,ByVal e _ As System.EventArgs)_ Handles Button1.Click Swap(X,Y)TxtOutput.Text=“X=”+_ X.ToString()+“Y=”+_ Y.ToString()End Sub Dim X，Y As Single X=3.95：Y=-12.2Private Sub

21、Swap（ByRef _ A As Single，ByRef B As _ Single）Dim T As Single End SubSwap(X,Y)3.95-12.23.95-12.2T=A:A=B:B=T3.953.95-12.2引用过程调用过程调用后实参实参：X Y形参形参：A BT4.4 4.4 参数传递参数传递4.4.4 4.4.4 数组参数数组参数 数组作为过程的参数，称为数组参数。u不需指出数组的下标上界；u需要指明数组的维数；u数组名后的括号不能省略；u参数传递只能是引用。例如，定义以下过程：Private Sub fun2(ByRef a()As Integer)End

22、Sub 4.4 4.4 参数传递参数传递4.4.4 4.4.4 数组做参数数组做参数（例（例4.34.3）Private Function ArrSum(ByRef X()As Integer)As Integer Dim Sum，i As Integer Sum=0 For i=1 To X.GetUpperBound(0)Sum=Sum+X(i)Next i Return SumEnd FunctionPrivate Sub Button1_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs)Handles B

23、utton1.Click Dim a(12)As Integer Dim i,b As Integer For i=1 To 12 a(i)=Val(InputBox(请收入+i.ToString()+月份的收入：)Next i b=ArrSum(a)MsgBox(该职工的年输入为：+b.ToString()End Sub Private Function ArrSum(ByRef X()As Integer)As Integer Dim Sum，i As Integer Sum=0 For i=1 To X.GetUpperBound(0)Sum=Sum+X(i)Next i Return

24、SumEnd FunctionPrivate Sub Button1_Click(ByVal sender As System.Object,ByVal _ e As System.EventArgs)Handles Button1.Click Dim a(12)As Integer Dim i,b As Integer For i=1 To 12 a(i)=Val(InputBox(请收入请收入+i.ToString()+月份的收入：月份的收入：)Next i b=ArrSum(a)MsgBox(该职工的年输入为：该职工的年输入为：+b.ToString()End Sub MENU4.5 4

25、.5 变量的作用域与生存期变量的作用域与生存期4.5.1 4.5.1 变量的作用域变量的作用域1 1块范围块范围 块是由End、Else、Loop或Next语句终止的语句集合。例如：ForNext IfThenElseEnd If 在某块内声明的变量只能在该块内使用。例如：If XYThen Dim T As Integer T=X:X=Y:Y=T End If T的作用域4.5 4.5 变量的作用域与生存期变量的作用域与生存期4.5.1 4.5.1 变量的作用域变量的作用域2 2过程范围过程范围 在某过程内声明的变量只能在该过程内部使用，该变量称为“局部变量”。例如：Private Sub

26、Button1_Click(ByVal sender As _ System.Object,ByVal e As System.EventArgs)_ Handles Button1.Click Dim AA As Integer End Sub AA的作用域4.5 4.5 变量的作用域与生存期变量的作用域与生存期4.5.1 4.5.1 变量的作用域变量的作用域Private Sub S1()Dim a,b As Integer a=11:b=22：a=a+1：b=b+1 TxtOutPut.Text=a=+a.ToString()+b=+b.ToString()End SubPrivate

27、Sub S2()Dim a,c As Integer a=33:c=44:a=a 1:c=c 1 TxtOutPut.Text=a=+a.ToString()+b=+b.ToString()End SubPrivate Sub Button1_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs)Handles Button1.Click Call S1()MsgBox(按任意键继续！)Call S2()End Sub2 2过程范围过程范围Private Sub S1()Dim a,b As Integer a=11

28、:b=22：a=a+1：b=b+1 TxtOutPut.Text=a=+a.ToString()+b=+b.ToString()End SubPrivate Sub S2()Dim a,c As Integer a=33:c=44:a=a 1:c=c 1 TxtOutPut.Text=a=+a.ToString()+b=+b.ToString()End SubPrivate Sub Button1_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs)Handles Button1.Click Call S1()Ms

29、gBox(按任意键继续！按任意键继续！)Call S2()End Sub4.5 4.5 变量的作用域与生存期变量的作用域与生存期4.5.1 4.5.1 变量的作用域变量的作用域2 2过程范围过程范围 全局变量在过程外部定义，可以被该模块的所有过程调用。【例4.5】局部变量与全局变量的区别。Dim a As IntegerPrivate Sub S1()Dim b As Integer b=20 a=a+1 b=b+1 TxtOutPut.Text=“a=”+a.ToString()+“b=”+b.ToString()End Sub Private Sub S2()Dim b As Intege

30、r b=30 a=a+1 b=b+1 TxtOutPut.Text=a=+a.ToString()+b=+b.ToString()End SubPrivate Sub Button1_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs)Handles Button1.Click a=10 Call S1()MsgBox(按任意键继续！)Call S2()End SubDim a As IntegerPrivate Sub S1()Dim b As Integer b=20 a=a+1 b=b+1 TxtOutPut

31、.Text=“a=”+a.ToString（）（）+“b=”+b.ToString（）（）End Sub Private Sub S2()Dim b As Integer b=30 a=a+1 b=b+1 TxtOutPut.Text=“a=”+a.ToString（）（）+“b=”+b.ToString（）（）End SubPrivate Sub Button1_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs)Handles Button1.Click a=10 Call S1()MsgBox(按任意键继续！

32、按任意键继续！)Call S2()End Sub4.5 4.5 变量的作用域与生存期变量的作用域与生存期4.5.1 4.5.1 变量的作用域变量的作用域3 3模块范围模块范围 包括VB.NET中的模块、类和结构。可以通过将声明语句放在模块、类或结构中的任一过程或块的外部来声明该级别的元素。4 4命名空间范围命名空间范围 Friend或Public声明模块级变量，则该变量可用于整个命名空间（在其中声明该变量）内的所有过程。4.5 4.5 变量的作用域与生存期变量的作用域与生存期4.5.2 4.5.2 静态变量静态变量 在过程结束时仍保留值的变量为静态变量。定义格式为：Static 变量名 As

33、类型u 在过程中定义的静态变量也是一种局部变量，只能在该过程中使用。u过程结束时，静态变量的值仍然保留。u只有在第一次调用该过程时系统对静态变量进行初始化。4.5 4.5 变量的作用域与生存期变量的作用域与生存期4.5.2 4.5.2 静态变量静态变量【例4.6】记录并显示某按钮的点击次数的代码：Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click Static Count As Integer Count=Count+1 TextBox

34、1.Text=第+Count.ToString()+次点击！End Sub MENU4.6 4.6 递归递归Function Fac(ByVal x As Integer)As Long If x=1 Then Return 1 Else Return(x*Fac(x-1)End Function Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As_ System.EventArgs)Handles Button1.Click Dim m As Integer Dim n As Long m=Val(TextBox1.Text)n=Fac(m)TextBox2.Text=Str(m)&!=&Str(n)End Sub 递归算法求n!4.6 4.6 递归递归Fac(5)Fac(4)Fac(3)Fac(2)Fac(1)返回1返回2返回6返回24返回120BACK