vb程序设计第七章

在 Visual Basic中最常使用下列两种过程： ◇Sub 过程不返回值,称为子过程。 ◇Function 过程返回值,称为函数过程。
7.1
Sub子过程
Sub过程分为事件过程和通用过程。 1. 事件过程 当 Visual Basic 中的对象对一个事件 的发生作出认定时，便自动用相应于事件的名 字调用该事件的过程。因为名字在对象和代码 之间建立了联系，所以说事件过程是附加在窗 体和控件上的。一个控件的事件过程将控件的 （在 Name 属性中规定的）实际名字、下划线 (“_”) 和事件名组合起来。
Integer
4、数组参数的传递 在VB中允许参数是数组，数组只能通过传址方式 进行传递，在传递数组时还要注意以下事项： 1）在实参列表和形参列表中放入数组名，忽略 维数的定义，但圆括号不能省略。 2）如果要传递数组的某一个元素，则只须直接 写上该数组元素。如：Call test（4，a(3)） 例：
7.4.2 变量的作用域 变量的作用域决定了哪些子过程和函数过程可以 访问该变量。 1、局部(过程级)变量 指在过程内用Dim语句声明的变量（或不加声 明直接使用的变量），只能在本过程中使用的 变量，别的过程不可访问。 2、窗体(模块级)变量 指在一窗体/模块的任何过程，即在“通用声 明”段中用Dim 语句或用Private语句声明的变 量，可被本窗体/模块的任何过程访问。
Fact(2)=2*fact(1) Fact(1)=1*fact(0) Fact(0)=1
Fact(4)=4*6 Fact(3)=3*2
Fact(2)=2*1 Fact(1)=1*1
边界条件
思考：根据递归的处理过程，在上述fact函数过程中， 若少了 ： If n= 0 then fact=1 即只有语句： fact（n）=n*fact（n-1） 程序运行结果将会如何？ 总结：构成递归的条件 （1）递归结束条件及结束时的值 （2）能用递归形式表示，并且递归向结束条件发展 注意： （1）递归算法设计简单，但消耗的上机时间和占据的内 存空间比非递归算法大； （2）设计正确的递归算法要满足构成递归的条件。
7.1.2 函数过程的定义和调用
1、函数过程的定义 自定义函数过程有两种方法： 利用“工具”菜单下的“添加过程”命令定义
利用代码窗口直接定义
自定义函数过程的形式：
[Private|Public][Static] Function <函数名>{[<形参表>]}[ AS <类型>] ∶ [<函数名>=<表达式>] [Exit Function] ∶ End Function
cj(),
″Test″
)
定义过程：Sub
testsub(r As Integer, aa() As Single,
cc As String) Nhomakorabea形式参数
3、传递方式 按值传递与按址传递 （1）按值传递—如果调用语句中的实际参数是常 量或表达式，或者定义过程时用ByVal关键字，就 可以按值传递。按值传递时，传递的只是变量的 副本！在过程中对形参的变化不会影响变量本身. 如果定义过程时没有用ByVal而又要求变量按值传 递时，可以先把变量变成一个表达式，把变量转 换成表达式的最简单的方法就是把它放在括号内。
每个窗体模块都包含： ⑴事件过程，即代码部分，其中有为响应特定 事件而执行的指令； ⑵控件。在窗体模块中，对窗体上的每个控件 都有一个对应的事件过程集； ⑶窗体模块还可包含通用过程，它对来自任何 事件过程的调用都作出响应。 ⑷窗体变量的说明、外部过程的窗体级声明。
7.4.1.2 标准模块 标准模块（具有 .bas 文件扩展名）可以 包含类型、常数、变量、外部过程和公共过 程的公共的或模块级的声明。 可将那些与特定窗体或控件无关的代码放 入另一类型的模块— 标准模块（文件扩展名 为 .BAS ）中。如果一个过程可能用来响应 几个不同对象中的事件，应该将这个过程放 在标准模块中，而不应在每一个对象的事件 过程中重复相同的代码。
7.4 变量、过程的作用域
一般VB 的应用程序组成可用下图描述。
VB应用程序.VBP
窗体模块 .Frm
类模块 .Cls
标准模块 .Bas
函数过程 (Function)
Sub过程
事件过程
函数过程 (Function)
Sub过程
7.4.1.1 窗体模块 由于 Visual Basic 应用程序是基于对象的， 所以应用程序的代码结构就是该程序在屏幕上物 理表示的模型。根据定义，对象包含数据和代码 。在屏幕上看到的窗体代表属性，这些属性定义 了窗体的外观和内在特性。应用程序中的每个窗 体都有一个包含其代码的相关的窗体模块（文件 扩展名为 .FRM）。
（2）按址传递—让过程根据变量的内存地址去访 问变量的内容，即形式参数和实际参数使用相同 的内存地址单元，这样通过子过程就可以改变变 量本身的值。系统缺省按地址传递参数。在按址 传递调用时，实际参数必须是变量，而常量或表 达式无法传址。 ： 前面已编写了交换两个数的过程（与Swap2 相同）为了弄清传址与传值的区别，再作比较。 Swap1用传值传递，Swap2用传址传递，哪个过程 能真正实现两个数的交换？为什么？两句Print 语句输出的结果分别是多少？
Swap（x,y) 子过程的定义
Public Sub Dim t t=x x=y y=t End Sub Swap(x,y)
主调程序调用Swap子过程
Private Sub Form_Click() Dim a,b a=10 b=20 Swap a,b Print “a=”;a,“b=”;b End Sub
1 n=0
n!=
n(n-1)!
n>0
用过程来完成求阶乘的操作：
1
fact(n)= n*fact(n-1) n=0 n>0
例：P198 7-9
在函数过程fact(n)的定义中，当n>0时，连续调用 fact自身共n次，直到n=0为止。现设n=4，则fact(4) 的执行过程如下：
Fact(4)=4*fact(3) Fact(3)=3*fact(2)
2、函数过程的调用 函数过程的调用：除了事先需要定义函数外，调 用FUNCTION函数的方法与调用标准函数的方法相 同。其形式为： 函数过程名{[参数列表]} 如：m=fact（5） 由于函数过程名返回一个值，故函数过程 不能作为单独的语句加以调用，它必须作为表达 式或表达式的一部分，再配以其他的语法成分构 成语句。 注意：
从Swap（x，y）子过程的定义可以看到形参x，y 承担了两个任务：既从主程序中获得初值，又将 结果返回给主调程序，而子过程名是无值的 。
2、子过程的定义 子过程的定义同函数过程的定义，形式如下：
[Private|Public][Static] Sub <子过程名>{[<形参表>]} ∶ [Exit Sub] ∶ End Sub
7.3 过程的嵌套与递归调用
嵌套—在一个过程中调用另一个过程 递归—过程直接或间接地调用其自身
7.4.1 过程的嵌套
主程序 Sprg1
Sprg2
调用Sprg1 调用Sprg2 End Sub End Sub End Sub 过程的嵌套图解
例：P196 7-8
7.4.2 递归 利用递归的办法来定义自然数n的阶乘如下：
7.2 参数传递
1、形式参数 形式参数—在定义通用过程时，出现在Sub或 Function语句中的变量名，是接收数据的变量。 2、实际参数 实际参数—在调用Sub或Function过程时，传送给 Sub或Function过程的常量、变量或表达式。
实际参数
调用过程：Call testsub(18,
Public Sub
Swap1(ByVal x As Integer,ByVal y As Integer)
Dim t As Ineger t=x:x=y:y=t End Sub
Public Sub Swap2( x As Integer, y As Integer )
Dim t As Ineger t=x:x=y:y=t End Sub Private Sub Command1_click() Dim a As Integer,b As a=10:b=20 Swap1 a,b Print “a=”;a,”b=”;b a=10:b=20 Swap2 a,b Print “a=”;a, “b=”;b End Sub
在编写过程时，为了某种功能的处理，或要 获得多个结果时，就要用到VB所提供的功能更 强，使用更灵活的子过程。 1、引例 编程时经常要进行两个数的交换，希望编写一个 两个数交换的过程供多次调用。即Swap（x,y） Swap过程的作用是将x，y两个数进行交换，也就 是在过程调用前与调用后，x，y的值进行了交换。
子过程与函数过程的区别及注意事项：
（1）子过程的适用范围大于函数过程。用函数 过程定义的，肯定能用子过程定义，反之则不一 定。 （2）函数过程有返回值，过程名也就有类型， 同时在函数体内必须对函数过程名赋值；而子过 程没有值，也就没有类型，且不能在子过程体内 对子过程名赋值。
3.查看过程
通用过程是程序中的公共代码段，可供各个事件过 程调用，因此编写程序时经常要查看当前模块或其他 模块中有哪些通用过程。 要查看当前模块中有哪些Sub过程和Function过程， 可以在代码窗口查看。 如果要查看的是其他模块中的过程，可以选择“视 图”菜单中的“对象浏览器”命令。
（1）“参数列表”称为实参或实元，它必须与形 参保持个数相同，位置和类型一一对应。实参可 以是同类型的常数、变量、数组元素、表达式。 （2）调用时把实参的值传递给形参称为参数传递。 （3）当参数是数组时，形参与实参在参数声明时 应省略其维数，但括号不能省。 例：求1！+3！+4！+9！=？ 完整程序?