第八章Visual Basic程序设计.pptVIP

Visual Basic程序设计 理学院 樊秋红 第八章 过程 过程、函数的定义和使用 参数的传递 递归 变量、过程的作用域 常用算法与数据结构 练习 8.1 过程的定义与调用 复习：事件过程就是对象发生某个事件时对该事件作出响应的程序段. 有时候多个不同的事件过程可能需要使用一段相同的程序代码，可以把这一段程序代码独立出来，作为一个单独建立的过程，供事件过程调用. 用户根据应用的需要而建立的过程本章将详细介绍的有两类:子程序过程和函数过程，前者以“Sub”保留字开始，也可叫做Sub过程，后者以“Function”保留字开始也可叫做Function过程。 自定义过程： Sub 子过程 Function函数过程 8.1.1 Sub子过程的定义与调用 Sub子过程是在响应事件或被其它程序调用时执行的代码块。 Sub子过程定义的一般格式 [Private][Public] [Static] Sub 过程名（形参列表） 语句块 [Exit Sub] 语句块 End Sub 参数与参数之间用“ ，”分隔。 8.1.1 Sub子过程的定义与调用 说明： Private: 私有过程。只能在本模块中调用，不能被其它模块调用。 Public: 公有过程。能被程序中的所有模块调用。 Static: 静态过程。过程中定义的局部变量均为静态变量，即程序退出过程时，局部变量的值仍保留并作为下次调用的初值。 Exit Sub : 在过程中终止过程的运行。 End Sub : 过程结束标志。 8.1.1 Sub子过程的定义与调用 Sub子过程的创建 通过“工具”菜单的“添加过程”命令完成。 在“代码”窗口输入过程头(以Sub开始)并按回车键。 Sub子过程的调用方法 方法一：Call 过程名 [(实参列表)] 方法二：过程名 [实参列表] 过程的形参与实参 形参（形式参数）：是用于接收过程中要使用的数据的变量。 实参（实际参数）：是传给Sub子过程的、有确定值的变量或常数。 实参与形参类型应尽量一致。 8.1.1 Sub子过程的定义与调用 一个简单例子（无参数静态过程） Private Sub Command1_Click( ) Call test ‘或 Call test ( ) 或 test End Sub Static Sub test( ) ‘过程中均为静态变量 Dim a(2) As Integer a(0) = a(0) + 1 a(1) = a(1) + 1 Print a(0); a(1) End Sub 8.1.1 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.1 Sub子过程的定义与调用 例8-2 求矩形面积 Private Sub Command1_Click() Call AREA(Val(Text1.Text), Val(Text2.Text)) End Sub Public Sub AREA(A As Single, b As Single) Dim sum As Double sum = A * b Label3.Caption = 求得的面积为： sum End Sub 8.1.2 Function函数过程的定义与调用 子过程没有返回值，而函数过程有返回值。 Function 过程定义的一般格式 [Private][Public] [Static] Function 函数名(参数列表) [As 类型] 语句块 [Exit Function] 语句块 [给函数名赋返回值] End Function 8.1.2 Function函数过程的定义与调用 说明： [Private][Public][Static] ：与子过程相同。 As 类型: 指定返回函数值的类型。 Exit Function: 在函数过程中终止过程的运行。 End Function: 函数结束标志。 创建方法同Sub子过程。 调用方法同VB内部函数，如果使用Sub子过程的调用方法，则无返回值。 8.1.2 Function函数过程的定义与调用 例8-3判定成绩函数