第8章-过程.pptVIP

第8章 过程 8.1 过程的定义与调用 8.2 函数和过程的参数传递 8.3 变量、过程的作用域 8.4 递归 8.5 常用算法与数据结构（三） 8.1 过程的定义与调用 在程序设计中，为将复杂问题简单化，便于代码的调试与维护，提高代码的利用率，往往将应用按功能或其他目的划分为若干个模块，而每个模块还可继续细分为子模块。这此模块或子模块，都是可重复使用的、独立的过程。 VB中常用的两种过程： 系统提供的内部函数和事件过程(Sub)； 用户根据应用需要而设计的过程(Function)。 8.1.1 Sub子过程的定义与调用 1.用户自定义子过程的一般格式 [Static][Private|Public]Sub子过程名[(参数列表)] 语句块 [Exit Sub] 语句块 End Sub 参数与参数之间用“ ，”分隔。 说明： Static: 静态过程。过程中定义的局部变量均为静态变量，即程序退出过程时，局部变量的值仍保留并作为下次调用的初值。 Private: 私有过程。只能在本模块中调用，不能被其它模块调用。 Public: 公有过程。能被程序中的所有模块调用。 Exit Sub : 在过程中终止过程的运行。 End Sub : 过程结束标志。 2.子过程调用 方法一：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 Double f = 1 For i = 1 To a f = f * i Next i Form1.Label2.Caption = Str(a) ″！的值为：″ Str(f) End Sub 例[8-2] 求矩形面积 Private Sub Command1_Click() Call area(Val(Text1), Val(Text2)) 　　　　　　End Sub Private Sub area(a As Single, b As Single) Dim sum As Double sum ＝ a * b Label3.Caption ＝ ″矩形面积为： ″ ＋ Str(sum) End Sub 8.1.2 Function过程的定义与调用 子过程没有返回值，而函数过程有返回值。 1.函数过程的定义 [Static][Public|Private]Function函数过程名[(参数列表)][As类型] 语句块 … [Exit Function] … 语句块[给函数名赋返回值] End Function 说明： 函数过程定义与子过程定义基本相同 Exit Function的作用与Exit Sub相同 “As 类型”指定该函数的返回值的类型 “语句块”为符合Visual Basic语法的一条或多条语句 “给函数名赋返回值”是与子过程定义的不同之处 与Sub定义一样，函数过程定义的函数体内不允许定义其他的函数过程和子过程 2.函数过程的定义方法 与子过程的定义一样，函数过程的定义也有两种方法： ① 在代码窗口内手工输入函数过程的框架 ② 在系统菜单“添加过程”中完成。不同的是在选择过程类型时不选“子程序”而选“函数”，其他与子过程的定义相同。 3.函数过程的调用 程序中，函数过程的调用一般放在表达式中，以函数的返回值参与表达式的计算。 例[8-3] 判定成绩函数 Private Sub Command1_Click() Text2.Text = Afirm(Val(Text1.Text)) End Sub （待续） (接上页) Private Function Afirm(cj As Integer) As String Select Case cj Case Is 60 Afirm = 不及格 Case 60 To 69 Afirm = 及格 Case 70 To 79 Afirm = 中 Case 80 To 89 Afirm = 良 Case Is = 90 Afi