vb过程

9.3.4
数组参数的传送
Visual Basic允许把数组作为实参传送到过程中。如定义： Sub S(a(),b()) …… End Sub 可以用下面的语句调用该过程： Call S(a(),b())
数组参数一般通过传地址方式传送。在传送数组时，除遵 守参数传送的一般规则外，还应注意以下几点： （1）为了把一个数组的全部元素传送给一个过程，应将 数组名分别放入实参表和形参表中，并略去数组的上下界， 但括号不能省略。 （2）如果不需要把整个数组传给通用过程，可以只传送 指定的单个元素，这需要在数组名后面的括号中写上指定 元素的下标。例如：
全国计算机等级考试二级教程
主讲教师
潘大胜
结构化程序设计思想的要点之一就是对一个 复杂的问题采用模块化，把一个较大的程序划 分为若干个模块，每个模块只完成一个或若干 个功能。这些模块通过执行一系列的语句来完 成一个特定的操作过程，因此被称为“过程”。
9.1 9.3 9.4 9.5 9.7
Sub过程 参数传送
9.2.1
建立Function过程
1.定义Sub过程
Static|Private|Public Function <过程名>[ (参数列表) ] [As 类型]
[<语句组>]
[过程名=表达式] [Exit Function] [<语句组>] End Function
说明： （1）Function过程以Function开头，以End Function结束， 在两者之间是描述过程操作的语句块，即“过程体”或 “函数体”。格式中的“过程名”、“参数表列”、 “Static”、“Private”、“Public”、“Exit Function”的 含义与Sub过程相同。“As 类型”是Function过程返回 值的数据类型，可以是Integer、Long、Single、Double、 Currency或String，如果省略，则为Variant。
[例9-6B] 传值调用示例。 Sub tryout(ByVal x As Integer, ByVal y As Integer) x = x + 100 y = y *6 Print "x="; x, "y="; y End Sub
Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 tryout a, b Print "a="; a, "b="; b End Sub
调用时的实际参数分别 为96和64，调用后的返 回值放变量x中。程序的 输出结果为32。
Visual Basic应用程序的过程出现在窗体模块和标准模块 中。在窗体模块中可以定义和编写子程序过程、函数 过程及事件过程，而在标准模块中只能定义子程序过 程和函数过程。其结构关系如图所示。
9.3
参数传送
前面编写了求最大公约数的函数gcd，该函数的类型为 Integer，它有两个整型参数。可以在下面的事件过程中 调用该函数：
Sub Form_Click() Dim a As Integer ,b As Integer a=96:b=64 x=gcd(a,b) Print " G.C.D=";x End Sub
[例9-6] 传址调用示例。 Sub tryout(x As Integer, y As Integer) x = x + 100 y = y *6 Print "x="; x, "y="; y End Sub
Private Sub Form_Click() Dim a As Integer, b As Integer a = 10 b = 20 tryout a, b Print "a="; a, "b="; b End Sub
2.把过程名作为一个语句来使用 例如：
Tryout a,b
9.1.3
通用过程与事件过程
事件过程是一种特殊的Sub过程，它附加在窗体和控 件上。事件过程由窗体（控件）的实际名字、下划线和事 件名组成；窗体的事件过程不能由用户任意定义，而是由 系统指定。 通用过程可以放在标准模块中，也可以放在窗体模块 中，而事件过程只能放在窗体模块中，不同模块中的过程 （包括事件过程和通用过程）可以asic提供了十分灵活和安全的参数传送方式，允 许使用可选参数和可变参数。在调用一个过程时，可以向 过程传送可选的参数或者任意数量的参数。
9.4.1
9.3.2
引用
传递参数的方式有两种：如果调用或者定义过程时选用 ByVal关键字，就是按值传递。如果调用或者定义过程时 选用ByRefl关键字，就是按地址传递。 按地址传递参数(引用)，就是让过程根据变量的内存地 址去访问实际变量的内容，即形式参数与实际参数使用相 同的内存地址单元，这样通过子过程就可以改变变量本身 的值。系统缺省按地址传递参数。
输出结果： x=110 a=10 y=120 b=20
a 10
b 20
a1 10
b1 20
x=10+100 y=20*6 110 120
究竟什么时候用传值方式，什么时候用传地址方式，没有 硬性规定，下面几条规则可供参考： （1）对于整型、长整型或单精度参数，如果不希望过程 修改实参的值，则采有按值传送。而字符串和数组 应通过地址传送。 （2）对于其他数据类型，包括双精度型，货币和变体数 据类型，可以用两种方式传送。 （3）如果没有把握，最好能用传值方式来传送所以变量。 （4）当需要用Sub过程返回值时，其相应的参数要用传地 址方式。
形式参数表中各个变量之间用逗号隔开，表中的变量 可以是：后面跟有左、右圆括号的数组名；除定长字符串 之外的合法变量名。 实际参数表中的各项用逗号隔开，表中的变量可以是： 常量、表达式、合法的变量名或后面跟有左、右圆括号的 数组名。
2.指名传送 所谓指名参数传送，就是显式地指出与形参结合的实参， 把形参用“:=”与实参连接起来。和按位置传送方式不同， 指名传送方式不受位置次序的限制。如：
在调用一个过程时，必须把实际参数传送给过程，完成形 式参数与实际参数的结合，然后用实际参数执行调用的过 程。
9.3.1
形参与实参
1.按位置传送 当使用这种方式时，实际参数的次序必须和形式参数的次 序相匹配，也就是说，它们的位置次序必须一致。
在传送参数时，形参表与实参表中对应变量的名字不必相同， 但是它们所包含的参数个数必须相同；同时，实参与相应形参 的类型必须相同。
如果使用按位置结合方式，则调用语句如下：
add_num 4,6,8
如果使用指名参数传送方式，则下面3个调用语句
add_num firstvar:=4,secondvar:=6,thirdvar:=8 add_num secondvar:=6 ,firstvar:=4, thirdvar:=8 add_num thirdvar:=8, secondvar:=6 ,firstvar:=4
表面上看来，指名结合比按位结合繁琐，因为要多写 一些东西，但它能改善过程调用的可读性；此外，当 参数较多，而且类型相似时，指名结合比按位置结合 出错的可能性要小一些。
Sub add_num(firstvar As Integer,secondvar As Integer,thirdvar As Integer) c=(firstvar+secondvar)*thirdvar Print c End Sub
2.建立Sub过程 通用过程可以在标准模块中建立，也可以在窗体模块中建 立。如果在标准模块中建立通用过程，可以使用以下两 种方法： 使用“添加过程”对话框。 执行“添加模块”命令。
9.1.2
调用Sub过程
1.用Call语句调用Sub过程 Call 过程名[(实际参数)] 例如： Call Tryout(a,b)
Boolean，该过程根据所传送给它 的实参值返回True或False，返回 值赋给函数名BinarySearch
9.2.2
调用Function过程
可以像使用VB内部函数一样来调用Function过程。完全可 以把它看成是一个函数，它与内部函数没有什么区别，只 不过内部函数由语言系统提供，而Function过程由用户自 己定义。
9.2 Function过程
可选参数与可变参数 对象参数 Shell函数 9.6 局部内存分配
9.1
Sub过程
在Viusal Basic中，通用过程分为两类，即子程序过程和 函数过程。根据过程是否返回值，分为子程序过程(Sub过 程)和函数(Function)过程两种。 子程序过程：不返回值，可以作为独立的基本语句调用。 函数过程：返回一个值。
Dim test_array() As Interger Static Sub Sqval(a) a=Sqr(Abs(a)) End Sub Sub Forn_Click() ReDim test_array(1 To 5,1 To 3) test_array(5,3)=-36 Print test_array(5,3) Call Sqval(test_array(5,3)) Print test_array(5,3) End Sub 运行结果为： -36 6
（2）由Function过程返回值通过“过程名=表达式”把它的 值赋给“过程名”。如果在Function过程中省略“过程名 =表达式”，则该过程返回一个默认值——数值函数过程 返回0值；字符串函数过程返回空字符串。例如：
Function BinarySearch(Lower,Upper As Integer) As Boolean …… If Lower=Upper Then BinarySearch=True Exit Fuction Else BinarySearch=False End If 该例定义了一个BinarySearch过 …… 程，它有两个参数，其返回值为 End Function