(VB)第8章( 长城摸板).pptVIP

第八章 过程 本章主要内容 8.1 过程的定义与调用 在程序设计中，为将复杂问题简单化，便于代码的调试与维护，提高代码的利用率，往往将应用程序按功能或其他目的划分为若干个模块。这此模块都是可重复使用的、独立的过程。 VB中两种过程： 系统提供的内部函数过程和事件过程（系统） 用户根据应用需要而设计的过程(自定义) 自定义过程： 以Sub保留字开始的子过程 以Function保留字开始的函数过程 以Property保留字开始的属性过程 以Event保留字开始的事件过程 8.1.1 Sub子过程的定义与调用 一、Sub子过程定义 语法格式： [Static][Private|Public] Sub 过程名（形参列表） 语句块 [Exit Sub] 语句块 End Sub 说明： 参数与参数之间用“ ，”分隔。 Static: 静态过程。过程中定义的局部变量均为静态变量，即程序退出过程时，局部变量的值仍保留并作为下次调用的初值。 Private: 私有过程。只能在本模块中调用，不能被其它模块调用。 Public: 公有过程。能被程序中的所有模块调用。 Exit Sub : 在过程中终止过程的运行。 二、过程的调用方法 方法一：Call 过程名 [(实参列表)] 方法二：过程名 [实参列表] 过程的形参与实参 形参（形式参数）：是用于接收过程中要使用的数据的变量。 实参（实际参数）：是传给Sub过程的、有确定值的变量或常数。 实参与形参类型应尽量一致。 例8-1 求n! Private Sub Command1_Click() Call N(Val(Text1.Text)) End Sub Public Sub N(a As Integer) Dim i As Integer Dim f As Long f = 1 For i = 1 To a f = f * i Next i Form1.Label3.Caption = Str(f) End Sub 8.1.2 Function函数过程的定义与调用 一、Function 过程定义 [Static][Private|Public] Function 函数名(参数列表) [As 类型] 语句块 [Exit Function] 语句块 函数名=值 End Function 说明： 子过程没有返回值，而函数过程有返回值 [Static][Private][Public]: 与子过程的含义相同 As 类型: 指定返回函数值的类型 Exit Function: 在函数过程中终止过程的运行。 End Function: 函数结束标志。 例8-3判定成绩函数 Private Sub Command1_Click() Text2.Text = Afirm(Val(Text1.Text)) End Sub 例8-4求最大公约数函数 Private Sub Command1_Click() Dim a As Integer, b As Integer a = Text1.Text b = Text2.Text Label3.Caption = “最大公约数为：” Gcd(a, b) End Sub 思考题： 将例8-1改为用函数来实现 求两个整数的最小公倍数 8.2 函数与过程的参数传递 在调用过程时，过程中使用的是实际参数，它要与定义过程时的形式参数一一对应，并以适当的形式将实参传给形参，这便是参数传递，也是虚（形参）实（实参）结合。 VB中参数传递方式有两种方式：传值与传址 一、传值 将实参的值传给形参后，实参与形参间便无任何联系，即形参的变化不会对实参产生任何影响。传值时，在形参前用 ByVal来界定 例8-5 Sub temp1(ByVal x As Integer, ByVal y As Integer) x = x + 100 y = x * 60 Print “x=”; x, “y=”; y, “调用过程中的参数的值 End Sub 二、传址（引用） 形参与对应实参用相同的内存地址，形参的改变将影响实参，形参实际上是实参的别名 例8-7 按址传递 Sub temp1(x As Integer, y As Integer) ‘按址传递 x = x + 100 y = x * 60 Print x=; x, y=; y, 调用过程中的参数 End Sub 例8-6 计算并