Visual Basic程序设计简明教程 第7章

5
2020/1/19
《Visual Basic程序设计简明教程》
创建子过程
ห้องสมุดไป่ตู้
第一种方法是在代码窗口中直接定义，输 入过程头部之后按下回车键，此时会自动出现 End Sub，从而生成过程的框架。
第二种方法是使用“添加过程”对话框， 在“工具”菜单中选择“添加过程”命令，打 开“添加过程”对话框。
6
2020/1/19
[ByVal] 形参名 [As 数据类型]
ByVal是对形参进行传递方式声明，表示所声明的形参是传值 参数。如果ByVal被省略，则默认该形参是引用参数（ByRef）。
⒊过程头部和End Sub之间的部分称为过程体，可以在过程体中 定义变量，过程完成的工作主要是在过程体中进行的。
⒋如果在运行子过程时需要提前退出，则可以使用Exit 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
返回
10
2020/1/19
《Visual Basic程序设计简明教程》
《Visual Basic程序设计简明教程》
7.2 子过程——子过程的调用
通用过程不属于任何一个对象，它不由事件驱 动，必须由其他过程调用才会被执行。 子过程调用语句有两种形式：
Call 过程名[(实参列表)] 过程名 [实参列表]
7
2020/1/19
《Visual Basic程序设计简明教程》
完成对事件的响应。
事件过程（Event Procedure）虽然是VB程序
的主体，但是有时也需要在程序中编写通用过程，
供事件过程或者其他通用过程调用。
如果过程A调用了过程B，则约定把A称为主调
过程，B称为被调过程。
2
2020/1/19
《Visual Basic程序设计简明教程》
说明：
根据通用过程是否有返回值，可以分为 Sub过程和Function过程。
End Sub
Private Function fac(ByVal n As Integer) As Long '定义函数过程
Sub过程又称为子过程，它往往用于完 成一些操作，而这些操作不需要有返回 值。
Function过程又称为函数过程，或者简 称为函数。函数过程一般应有一个返回 值。
返回
3
2020/1/19
《Visual Basic程序设计简明教程》
7.2 子过程——子过程的定义
[Public|Private] Sub 过程名([形参列表]) 变量定义语句 执行语句 [Exit Sub] End Sub
说明：
（1）第一种调用形式使用了关键字Call，而第二种调用 形式不仅没有Call，并且也没有括号。
（2）实参即实际参数，表示传递给被调过程的一些必要 数据，实参之间用逗号隔开。如果调用时没有实参，则可 以省略实参列表和括号。 （3）主调过程调用被调过程时，经常需要向被调过程传 递一些数据，这主要是通过实参与形参的结合来完成的。 形参是变量，过程调用时才被分配内存空间，过程调用语 句中的实参会把数据传递给相应的形参。 （4） VB语言要求实参与形参个数相等，类型尽量保持 一致。实参向形参传递数据时，遵循从左向右，一一对应 的规则。
（2）过程头部右端的[As 类型]是指函数过程的类型， 即返回值的类型。
（3）函数过程的返回值通过对函数名赋值来指定，如 下所示：函数名=表达式
这样的赋值语句在函数过程的过程体中一般至少应 出现一次，作用是确定函数过程的返回值。一旦调用结束， 系统就会把返回值带回到主调过程的调用处。
（4）如果在运行函数过程时需要提前退出，则可以使 用Exit Function语句。
第7章 过程
本章内容：
概述
子过程
函数过程
事件过程
参数传递的方式
嵌套调用与递归调用
作用域与生存期
滚动条
直线和形状
1
2020/1/19
7.1 概述
VB的应用程序是由过程（Procedure）组成的， 代码设计阶段的主要工作就是编写过程。
VB通过事件驱动方式执行程序，调用事件过程
8
2020/1/19
《Visual Basic程序设计简明教程》
例7.1 计算n!
Private Sub Command1_Click() Dim n As Integer n = Val(Text1.Text) Call fac(n) '调用子过程 End Sub
9
2020/1/19
《Visual Basic程序设计简明教程》
4
2020/1/19
《Visual Basic程序设计简明教程》
说明：
⒈关键字Sub指明了过程的性质，关键字Public和Private则指明 了过程的作用域。
⒉括号内为形参列表，用于从主调过程接收数据。如果过程不需 要参数，则可以省略形参列表。形参由传递方式、形参名和类型组 成，形参之间用逗号分开。形参定义的格式是：
13
2020/1/19
《Visual Basic程序设计简明教程》
例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)
12
2020/1/19
《Visual Basic程序设计简明教程》
7.3 函数过程——函数过程的调用
变量=函数过程名([实参列表])
函数调用作为表达式，出现在赋值语句的右侧。 调用时应给出相应的实参列表，使得实参与形 参相结合。执行这条赋值语句时，先对函数过 程进行调用，然后把过程的返回值带回来并赋 给某个变量，从而使主调过程获得这个返回值。
7.3 函数过程——函数过程的定义
[Public|Private] Function 过程名([形参列表]) [As 类型] 变量定义语句 执行语句 [Exit Function] End Function
11
2020/1/19
《Visual Basic程序设计简明教程》
说明：
（1）函数过程的语法与子过程非常相似，其定义的关 键字是Function。