[经管营销]VB程序设计教程 第七章.pptVIP

第七章 过程 过程 Optional可选的。表示参数不是必需的。如果使用了该选项，则 参数列表 中的后续参数都必须是可选的，而且必须都使用 Optional 关键字声明。如果使用了 ParamArray，则任何参数都不能使用 Optional 声明。 ByVal可选的。表示该参数按值传递。 ByRef可选的。表示该参数按地址传递。ByRef 是 Visual Basic 的缺省选 ParamArray可选的。只用于 arglist 的最后一个参数，指明最后这个参数是一个 Variant 元素的 Optional 数组。使用 ParamArray 关键字可以提供任意数目的参数。ParamArray 关键字不能与 ByVal，ByRef，或 Optional 一起使用。 varname必需的。代表参数的变量的名称；遵循标准的变量命名约定。 type可选的。传递给该过程的参数的数据类型；可以是 Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（目前尚不支持）、Date、String（只支持变长）、Object 或 Variant。如果参数不是 Optional，则也可以是用户定义类型，或对象类型。 Sub过程的调用 参数的传递次序 按位置传送 　①实参与形参个数相同，名字不必相同（Optional 修饰的参数例外）。 　②实参与形参顺序相对应。 　③实参与形参类型相符. 7.7 创建与设置启动过程 前面我们设计的程序大部分都是单个窗体构成，但是实际的应用中，几乎所有的程序都是由多个窗体构成，在这时候，我们需要确定程序的入口，即从哪个窗体开始启动整个应用程序。 我们可以从指定的窗体开始运行，还可以通过专门的过程（启动过程）来完成程序的初始化操作，然后通过show方法来显示指定的窗体，从而开始整个程序的运行。 1、创建启动过程 启动过程必须位于标准模块中的一个名为Main的通用过程 如何添加Main过程？ 添加标准模块 添加名为Main 的通用过程 如何定义Main 在sub语句和End Sub之间添加必要的语句，但是不要忘记启动指定的窗体（窗体名.show） 如何设置从Main启动：工程-》工程属性-》通用-》启动对象 2、启动过程或者启动窗体的设置 如何设置启动对象：工程-》工程属性-》通用-》启动对象 每次调用过程时，用Static说明的变量保持上一次调用结束时的值，而用Dim说明的变量，每次调用过程时，都重新初始化。 形式如下： Static 变量名 [As 类型] Static Function 函数名([参数列表])[As 类型] Static Sub 过程名[(参数列表)] 静态变量 Private Sub Command1_Click() Dim k As Integer k = 5 Call ss(k) Print k k = 5 Call ss(k) Print k End Sub Private Sub ss(ByRef n As Integer) Static sta As Integer sta = n + sta ：n = n + sta End Sub 运行结果： 第一次调用： K=10 第二次调用： K=15 静态变量 Option Explicit Dim A As Integer Private Sub Command1_Click() Dim B As Integer, C As Integer A = 1: B = 2: C = 3 Print fun(A, B, B) + fun((A), B, C) Print A, B, C End Sub 例题7-4（P151） Public Function fun(x%, ByVal y%, z%) Static stat As Integer stat = stat + z y = y + stat x = x + 3 z = x + y A = A + x + y fun = x + y + z + A End Function 两次调用fun函数 fun(A, B, B)=36 fun((A), B, C)=96 例题：7-5 求三个正整数的最小公倍数 Private Sub Command1_Click() Dim A%, B%, L, C% A = Text1 B = Text2 C = Text3 L = LCm(LCm(A,