第10章 过 程

10.3.2 数组参数的传递
在VB中允许参数是数组，但数组只能通过传地址方式进 行参数传递。在传递数组时还需要注意以下事项： 形参是数组，只需要在数组名后加圆括号表示，不需 要给出维数的上界。 对应的实参也只要以数组名和圆括号（可省略）表示， 可以通过Lbound和Ubound函数确定实参数组的下界 和上界。
子过程体语句序列 End Sub
Private sub hellovb ( ) print “hellovb” End Sub
Sub mymove (tag as integer) Label1.left = Label1.left +100*tag End Sub
2.子过程的调用
形式：
1） 2） Call 子过程名(参数列表)

例 10.6 将打印数组的代码编写成子过程。 例10.7 使用过程求数组a中各元素乘积，并将数组中 元素的值修改为原来的2倍。
10.4 过程的嵌套和递归调用


10.4.1 过程的嵌套调用
过程定义都是相互平行和相对独立的，也就是说，定义过 程时，一个过程内不能包含另一个过程。 而调用过程时可以使用嵌套调用 。

举例 函数定义: 求1~n的累加和。 Private Function sum1(n%) Dim i%,s% s=0 for i=1 to n s=s+I 函数过程调用 next i Private Sub Command1_Click() Dim n% sum1 =s n = Val(InputBox("n:")) End Function Print "sum1="; sum1(n) End Sub
例10.9 在下面一个标准模块文件中不同级的变量声明： Public Pa As integer Private Mb As string *10 Sub F1( ) Dim Fa As integer … End Sub ' 全局变量 ' 窗体/模块级变量 ' 局部变量
Sub F2( ) Dim Fb As Single … End Sub
10.2
函数过程的定义和调用
‘给函数名赋值语句至少出现一次
1、函数过程的定义
[static] [public] [private]Function 函数过程名([参数列表]) [As 类型]
函数过程体语句 函数名 = 返回值 End Function
举例： Function fun1(a As Long, b As Long) As Long fun1 = a + b Function circlearea(r as Single) End Function Const pi=3.14159
子过程名 [参数列表]
参数列表：称为实参或实元，它必须与形参个数相 同，位置与类型一一对应。可以是同类型的常量、 变量、表达式。


举例：打印一个由n行某符号组成的直角三角形 Private Sub triangle ( str As String , n As Integer ) Dim i%, j% For i=1 To n For j=1 to i print str; Next j print Next I End sub

子过ห้องสมุดไป่ตู้与函数过程区别：
(1)函数过程名有值，有类型，在函数体内至少赋值一次； 子过程名无值，无类型，在子过程体内不能对子过程名赋值； (2)调用时，子过程调用是一句独立的语句。 函数过程不能作为单独的语句加以调用，必须参与表达式运算。 (3)一般当过程有一个返回值，使用函数过程较直观； 反之若过程无返回值，或有多个返回值，使用子过程较直观。
例如下列三条语句都可以调用前面定义的函数Fun1： Print fun1(2, 3) Call fun1(2, 3) fun1 2, 3
举例 函数定义: 求圆的面积
Function circlearea(r as Single) Const pi=3.14159 Circlearea=pi*r*r End Function 函数过程调用 Private Sub Form_Click() Dim x!, y! x = InputBox(“请输入半径：") y = Circlearea(x) MsgBox(“圆的面积为”& y) End Sub
10.3
10.3.1 传址与传值
参数传递
指主调过程的实参传递给被调过程的形参。 1. 传址与传值 传址： 形参得到的是实参的地址，当形参值的改变 同时也改变实参的值。byref 传值： 形参得到的是实参的值，形参值的改变 不会影响实参的值。byval
例10.4 两个变量的交换。
Sub Swap1(ByVal x%, ByVal y%) t% = x: x = y: y = t End Sub

10.4.2 过程的递归调用

所谓递归，就是用自身的结构来描述自身。 如阶乘定义：n!=n*(n-1)! 过程的递归调用就是在过程中“自己调用自己”。 Sub Command1_Click() 例10.8 编写函数fac(n)，求n!。 Print “fac(4)=”；fac(4) Public Function fac(n%) As End Sub Integer 结果： fac(4)=24 If n = 1 Then 递归函数的构造必须满足下面条件： fac = 1 （1）有递归结束的条件及结束时的值。 Else （2）能用递归形式表示，并且递归向 fac = n * fac(n - 1) 结束条件发展。 End If End Function
ByVal 传值
传地址
a
实参
a 10
10
Sub Swap2(x%, y%) t% = x: x = y: y = t End Sub
Private Sub Command1_ Click() a% = 10: b% = 20 Swap1 a, b Print "A1="; a, "B1="; b a = 10: b = 20 Swap2 a, b Print "A2="; a, "B2="; b End Sub
第10章

过
程
10.1 子过程的定义和调用 10.2 函数过程的定义和调用 10.3 参数传递 10.4 过程的嵌套和递归调用 10.5 变量、过程的作用域 10.6 程序调试
应用程序 工程文件（.vbp）
窗体模块 （.frm）文件
事件过程（Sub） 自定义函数过程（Function） 自定义子过程（Sub）


在VB中根据应用的要求可分为几种类型的自定义过程: (1) 以“Sub”保留字开始的子过程。 (2) 以“Function”保留字开始的函数过程。 (3) 以“Property”保留字开始的属性过程。 (4) 以“Event”保留字开始的事件过程。 本书仅讨论以“Sub”开头的子过程和以“Function”开头 的函数过程。
Circlearea=pi*r*r
End Function
2.函数过程的调用
函数过程调用同标准函数调用。 形式： 变量名 = 函数过程名([参数列表]) 参数列表：称为实参或实元，它必须与形参个数相同 ，位置与类型一一对应。可以是同类型的常量、变 量、表达式。
如果函数要直接作为语句来使用，则必须按照子过程的方 式来调用，当然此时也就不能利用函数的返回值了。

程序运行的流程如下：
（1）在事件过程Command1_Click中执行到MyMove子过程 的调用时，事件中断，系统记住返回的地址，将已经有确定 值的实参k的值传递给形参tag。 （2）执行MyMove子过程体，当执行到End Sub语句时，返 回到主调程序Command1_Click中断处，继续执行后面代码。 （3）继续执行余下的语句，直到End Sub。
举例 函数定义: 比较两个数的大小。 Private Function maxxy(x%, y%) If x > y Then maxxy = x Else 函数过程调用 maxxy = y Private Sub Command2_Click() End If Dim x%, y%, max% x = InputBox("输入X的值") End Function y = InputBox("输入Y的值") max = maxxy(x, y) Print "max="; max End Sub
标准模块 （.bas）文件
自定义函数过程（Function） 自定义子过程（Sub）
类模块 （.cls）文件
自定义属性过程（Property） 自定义方法过程（Sub 或 Function） 自定义事件过程（Event）

模块：一个工程中包含的文件。 过程：完成某种特定功能的一组程序代码。 过程的分类：1) 系统提供的内部函数过程和事件过程； 2) 用户根据自己需要定义的过程。
10.5.1变量的作用域
作用域：变量、过程可被访问的范围。
1、局部变量： 在过程内用声明的变量， 只能在本过程中使用。
2、窗体/模块级变量：在“通用声明”段中用Dim语句 或用Private语句 声明的变量, 可被本窗体/模块的任何过程访问。 3、全局变量：在“通用声明”段中用Public语句声明 的变量，可被本应用程序的任何过程 或函数访问。 4、静态变量：
10.5
变量、过程的作用域
应用程序 工程文件（.vbp）
窗体模块 （.frm）文件
事件过程（Sub） 自定义函数过程（Function） 自定义子过程（Sub）
标准模块 （.bas）文件