十一五国家级规划教材：《Visual Basic程序设计教程》教学资源（PPT课件，第4版）第8章 过程

第8章 过程 8.1过程的定义与调用 8.2函数和过程的参数传递 83变量、过程的作用域 8.4递归 8.5常用算法与数据结构（三）】

第8章 过程 8.1 过程的定义与调用 8.2 函数和过程的参数传递 8.3 变量、过程的作用域 8.4 递归 8.5 常用算法与数据结构（三）

8.1过程的定义与调用 >在程序设计中，为将复杂问题简单化，便于代码的 调试与维护，提高代码的利用率，往往将应用按功 能或其他目的划分为若干个模块，而每个模块还可 继续细分为子模块。这此模块或子模块，都是可重 复使用的、独立的过程。 VB中常用的两种过程： ·系统提供的内部函数和事件过程(Sub): ·用户根据应用需要而设计的过程(Function)

8.1 过程的定义与调用 ➢ 在程序设计中，为将复杂问题简单化，便于代码的 调试与维护，提高代码的利用率，往往将应用按功 能或其他目的划分为若干个模块，而每个模块还可 继续细分为子模块。这此模块或子模块，都是可重 复使用的、独立的过程。 ➢ VB中常用的两种过程： ▪ 系统提供的内部函数和事件过程(Sub)； ▪ 用户根据应用需要而设计的过程(Function)

8.1.1Sub子过程的定义与调用 1.用户自定义子过程的一般格式 [Static][Private Public]Sub子过程名[（参数列表）j 语句块 [Exit Sub] 语句块 End Sub 参数与参数之间用“，”分隔

8.1.1 Sub子过程的定义与调用 1.用户自定义子过程的一般格式 [Static][Private|Public]Sub子过程名[(参数列表)] 语句块 [Exit Sub] 语句块 End Sub ➢ 参数与参数之间用“ ， ”分隔

说明： Static:静态过程。过程中定义的局部变量均为静 态变量，即程序退出过程时，局部变量的值仍保留 并作为下次调用的初值。 >Private:私有过程。只能在本模块中调用，不能 被其它模块调用。 >Public:公有过程。能被程序中的所有模块调用。 >Exit Sub:在过程中终止过程的运行。 >End Sub:过程结束标志

说明： ➢ Static: 静态过程。过程中定义的局部变量均为静 态变量，即程序退出过程时，局部变量的值仍保留 并作为下次调用的初值。 ➢ Private: 私有过程。只能在本模块中调用，不能 被其它模块调用。 ➢ Public: 公有过程。能被程序中的所有模块调用。 ➢ Exit Sub : 在过程中终止过程的运行。 ➢ End Sub : 过程结束标志

2.子过程调用 ■方法一：caⅢ过程名【（实参列表）j ·方法二：过程名实参列表】 >过程的形参与实参 ·形参（形式参数）：是用于接收过程中要使用 的数据的变量。 ■ 实参（实际参数）：是传给Sub过程的、有确 定值的变量或常数。实参与形参类型应尽量一 致

2.子过程调用 ▪ 方法一：Call 过程名 [(实参列表)] ▪ 方法二：过程名 [实参列表] ➢ 过程的形参与实参 ▪ 形参（形式参数）：是用于接收过程中要使用 的数据的变量。 ▪ 实参（实际参数）：是传给Sub过程的、有确 定值的变量或常数。实参与形参类型应尽量一 致

例8-11求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米1 形式参数及类型 Next i Form1.Label2.Caption=str(a)&"！的 值为：”&Str(① End 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-21求矩形面积 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-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] D。● 语句块[给函数名赋返回值] End Function

8.1.2 Function过程的定义与调用 子过程没有返回值，而函数过程有返回值。 1.函数过程的定义 [Static][Public|Private]Function函数过程名 [(参数列表)][As类型] 语句块 . [Exit Function] . 语句块[给函数名赋返回值] End Function

说明： >函数过程定义与子过程定义基本相同 Exit Function的作用与Exit Sub相同 >“As类型”指定该函数的返回值的类型 >语句块”为符合Visual Basic语法的一条或多 条语句 >“给函数名赋返回值”是与子过程定义的不同之处 >与Sub定义一样，函数过程定义的函数体内不允许 定义其他的函数过程和子过程

说明： ➢ 函数过程定义与子过程定义基本相同 ➢ Exit Function的作用与Exit Sub相同 ➢ “As 类型”指定该函数的返回值的类型 ➢ “语句块”为符合Visual Basic语法的一条或多 条语句 ➢ “给函数名赋返回值”是与子过程定义的不同之处 ➢ 与Sub定义一样，函数过程定义的函数体内不允许 定义其他的函数过程和子过程

2.函数过程的定义方法 与子过程的定义一样，函数过程的定义也有两种方法： ①在代码窗口内手工输入函数过程的框架 ②在系统菜单“添加过程”中完成。不同的是在选择 过程类型时不选“子程序”而选“函数”，其他与子 过程的定义相同。 3.函数过程的调用 程序中，函数过程的调用一般放在表达式中，以函数的 返回值参与表达式的计算

2.函数过程的定义方法 与子过程的定义一样，函数过程的定义也有两种方法： ① 在代码窗口内手工输入函数过程的框架 ② 在系统菜单“添加过程”中完成。不同的是在选择 过程类型时不选“子程序”而选“函数”，其他与子 过程的定义相同。 3.函数过程的调用 程序中，函数过程的调用一般放在表达式中，以函数的 返回值参与表达式的计算