Visual Basic程序设计简明教程 王晓东 第7章新.ppt

第7章 过程 本章内容： ? 概述 ? 子过程 ? 函数过程 ? 事件过程 ? 参数传递的方式 ? 嵌套调用与递归调用 ? 作用域与生存期 ? 滚动条 ? 直线和形状 7.1 概述 说明： 根据通用过程是否有返回值，可以分为Sub过程和Function过程。 Sub过程又称为子过程，它往往用于完成一些操作，而这些操作不需要有返回值。 Function过程又称为函数过程，或者简称为函数。函数过程一般应有一个返回值。 7.2 子过程——子过程的定义 [Public|Private] Sub 过程名([形参列表]) 变量定义语句 执行语句 [Exit Sub] End Sub 说明： ⒈关键字Sub指明了过程的性质，关键字Public和Private则指明了过程的作用域。 ⒉括号内为形参列表，用于从主调过程接收数据。如果过程不需要参数，则可以省略形参列表。形参由传递方式、形参名和类型组成，形参之间用逗号分开。形参定义的格式是： [ByVal] 形参名 [As 数据类型] ByVal是对形参进行传递方式声明，表示所声明的形参是传值参数。如果ByVal被省略，则默认该形参是引用参数（ByRef）。 ⒊过程头部和End Sub之间的部分称为过程体，可以在过程体中定义变量，过程完成的工作主要是在过程体中进行的。 ⒋如果在运行子过程时需要提前退出，则可以使用Exit Sub语句。 创建子过程 7.2 子过程——子过程的调用 说明： 例7.1 计算n! Private Sub Command1_Click() Dim n As Integer n = Val(Text1.Text) Call fac(n) 调用子过程 End Sub Private Sub fac(ByVal n As Integer) Dim s As Long, i As Integer s = 1 For i = 1 To n s = s * i Next i Text2.Text = Str(s) 输出n的阶乘 End Sub 7.3 函数过程——函数过程的定义 [Public|Private] Function 过程名([形参列表]) [As 类型] 变量定义语句 执行语句 [Exit Function] End Function 说明： （1）函数过程的语法与子过程非常相似，其定义的关键字是Function。 （2）过程头部右端的[As 类型]是指函数过程的类型，即返回值的类型。 （3）函数过程的返回值通过对函数名赋值来指定，如下所示：函数名=表达式 这样的赋值语句在函数过程的过程体中一般至少应出现一次，作用是确定函数过程的返回值。一旦调用结束，系统就会把返回值带回到主调过程的调用处。 （4）如果在运行函数过程时需要提前退出，则可以使用Exit Function语句。 7.3 函数过程——函数过程的调用 变量=函数过程名([实参列表]) 函数调用作为表达式，出现在赋值语句的右侧。调用时应给出相应的实参列表，使得实参与形参相结合。执行这条赋值语句时，先对函数过程进行调用，然后把过程的返回值带回来并赋给某个变量，从而使主调过程获得这个返回值。 例7.3 计算n! Private Sub Command1_Click() Dim s As Long, n As Integer n = Val(Text1.Text) s = fac(n) 调用函数过程，得到返回值 Text2.Text = Str(s) End Sub Private Function fac(ByVal n As Integer) As Long 定义函数过程 Dim s As Long, i As Integer s = 1 For i = 1 To n s = s * i Next i fac = s 确定函数过程的返回值 End Function 7.4 事件过程 Private Sub 对象名_事件名([形参列表]) 变量定义语句 执行语句 End Sub] 说明： （1）事件过程的名字是由对象名、下划线（_）和事件名组成，对象可以是窗体或者控件。 （2）单击和双击等事件的事件过程是没有参数的，而有些