Visual basic优质课

1、Sub过程如没显式指定Public、Private，默认范围是Public。 Sub过程如没显式指定Public、Private，默认范围是Public。 Static表示在调用Sub过程时，保留Sub过程内局部变量的值。 Static表示在调用Sub过程时，保留Sub过程内局部变量的值。 2、语句块是完成特定任务编写的程序，可以没有一行，也可有多行。 3、过程名遵循标识符命名规则。 过程名遵循标识符命名规则。 4、形参列表通常简称“形参”，仅表示形参的类型、个数、位置，定 形参列表通常简称“形参”，仅表示形参的类型、个数、位置，定 义时无值，只有在过程被调用时，虚实参结合后才获得相应的值。 5、过程可以无形式参数，但括号不能省。 过程可以无形式参数，但括号不能省。 6、Exit sub语句强制退出Sub过程，一般应用在IF语句中。 sub语句强制退出Sub过程，一般应用在IF语句中。
在过程调用传递参数时， 在过程调用传递参数时，形参表与实参表中的对应变量名可以不必 相同，因为“形实结合”是按对应“位置”结合。 相同，因为“形实结合”是按对应“位置”结合。 形实结合” 形参表和实参表的参数的个数要相同， 个数要相同 在“形实结合”时，形参表和实参表的参数的个数要相同，对应 位置的参数类型要一致。 位置的参数类型要一致。 的参数类型要一致
过 程
按值传递 在VB中参数值的 中参数值的 传递有两种方式 按地址传递
过 程 1、按值传递参数
过程调用时，VB按值传递参数分配一个临时存储单元，将实参 过程调用时，VB按值传递参数分配一个临时存储单元，将实参 变量的值拷贝到这个临时单元中去。也就是说，按值传递参数时， 变量的值拷贝到这个临时单元中去。也就是说，按值传递参数时， 传递的只是实参变量的副本。
×
过 程
思考：
Private Sub Form_Click() Dim x As Integer,z As Integer x=10 z=15 Call Value(x,z) Print x;z End Sub Sub Value1(ByVal m As Integer,ByVal n As Integer) m=m*2 按值传递结果：20 10 n=nn=n-5 10 15 Print m;n 按址传递结果：20 按址传递结果：20 10 End Sub 20 10
Private Sub 控件名_事件名([参数列表]) 控件名_事件名([参数列表]) 语句块 End Sub 在VB中，过程分为Sub过程（没有返回值）和Function过 VB中，过程分为Sub过程（没有返回值）和Function过 程（具有返回值），Sub过程分为事件过程和通用过程。 程（具有返回值），Sub过程分为事件过程和通用过程。
15 35 55 20
过 程 2、按地址传递参数
按地址传递参数时，形参和实参共用内存的同一“地址”，即 按地址传递参数时，形参和实参共用内存的同一“地址”，即 共享同一个存储单元。这样在被调过程中的形参值一旦被改变，相 应的实参值也跟着改变。
Private Sub Form_Click() Dim M As Integer, N As Integer 35 X M 15 M = 15: N = 20 Call value(M, N) 20 N Z Print "M="; M, "N="; N End Sub Private Sub value(X As Integer, ByVal Z As Integer) X = X + 20 Z=X+Z Print "X="; X, “Z="; Z End Sub
20 55
过 程 说明：
如果与按地址传递参数结合的实参是与其类型不一致的常数 如果与按地址传递参数结合的实参是与其类型不一致的常数 或表达式时，VB会按要求进行数据类型转换，然后将转换后的 或表达式时，VB会按要求进行数据类型转换，然后将转换后的 值传送给形参。 如果与按地址传递参数结合的实参是变量( 如果与按地址传递参数结合的实参是变量(简单变量、数组 元素) 元素)，那么它们的类型必须完全一致。 注意： 在调用过程时，如果实参是常量或表达式，无论在定义时 使用值传递还是地址传递，此时都是按值传递方式将常量或表 达式计算的值传递给形参变量。 达式计算的值传递给形参变量。 如果形参定义是按地址传递方式，但调用时想使实参变量 按值方式传递，可以把实参变量加上括号，将其转换成表达式。
块中的过程调用
一、定义通用Sub过程 定义通用Sub Sub过程
建立通用过程有两种方法：直接在“代码”编辑窗口中输 入过程代码或使用“添加过程”对话框。
过 程 A、[Private | Public] [Static] Sub 过程名([形参列表 过程名([ ([形参列表
]) [语句块] 语句块] [exit sub] [语句块] 语句块] End Sub
过 程 通用过程
为了完成某个特定任务，通常会编写一段相对独立的程序。 为了方便这段程序的维护和使用，这段程序一般用通用过程进 行组织。
公有(Public)过程 公有过程可以被应用程序 公有(Public)过程 公有过程可以被应用程序 通用过程 通用过程
中的任一过程调用
私有(Private)过程 而私有过程只能被同一模 私有(Private)过程 而私有过程只能被同一模
过 程
7、参数列表中的参数称为形式参数,形式参数格式为： 、参数列表中的参数称为形式参数,
[ByVal|ByRef] 变量名[()] [As 数据类型] 变量名[()] 数据类型]
变量名[()]：变量名为合法的VB变量名或数组名。若变量名后 变量名[()]：变量名为合法的VB变量名或数组名。若变量名后 无括号，则表示该形参是变量，否则是数组。 ByVal表明其后的形参是按值传递参数或称为“传值”参数； ByVal表明其后的形参是按值传递参数或称为“传值”参数； 若缺省或用“ByRef”替代，则表明参数是按地址传递(传址) 若缺省或用“ByRef”替代，则表明参数是按地址传递(传址)参数 或称为“引用”参数。 或称为“引用”参数。 Private Sub Swap( X As Integer, Z As Integer) Dim t As Integer T=X : X=Z : Z=T End Sub
形参
过 程 Private Sub Form_Click() Dim X As integer, Z As Integer …… Call Count(X, Z) Count(X … End Sub Private Sub Count(M As Integer, N As integer) Count(M …… End Sub
过 程
二、过程的调用
调用过程的格式： 过程名 [参数列表] 参数列表]
或
Call 过程名(参数列表) 过程名(参数列表)
说明：
(1)参数列表称为实参，它必须与形参保持个数相同，位 (1)参数列表称为实参，它必须与形参保持个数相同，位 置与类型一一对应。 置与类型一一对应。 (2)调用时把实参值传递给对应的形参。其中值传递时 (2)调用时把实参值传递给对应的形参。其中值传递时， 实参的值不随形参的值变化而改变；而地址传递时， 实参的值不随形参的值变化而改变；而地址传递时，实参的值 随形参值的改变而改变。 (3)当参数是数组时，形参与实参在参数声明时应省略其 (3)当参数是数组时，形参与实参在参数声明时应省略其 维数，但括号不能省。
过 程
例：调用上面定义的Swap子过程的形式： 调用上面定义的Swap子过程的形式： Swap子过程的形式 Swap a,b Call Swap(a,b) 具体执行过程如下： 具体执行过程如下：
Private Sub Cmd-Click() Cmd…… Call Swap(a,b) …… Swap a,b En，VB允许把数组作为形参出现在形参 定义过程时，VB允许把数组作为形参出现在形参 列表中。 形参数组只能是按地址传递参数。对应实参也 形参数组只能是按地址传递参数。对应实参也 必须是数组，且数据类型必须和形参数组的数据类型 相一致。调用过程时把要传递的数组名放在实参表中 即可。 例：Sub 例：Sub swap(byval a( ) as integer)
过 程
过
程
过 程
过 程
学习目标： 过程定义 过程调用方法 过程参数传递 重点： 参数传递（按值、地址传递） 难点： 参数传递在实际中的应用
过 程
在设计一个规模较大、复杂程度较高的程序时，为简化程 序设计，将程序分割成较小的逻辑部件，VB通常把这种逻辑部 序设计，将程序分割成较小的逻辑部件，VB通常把这种逻辑部 件称为过程。 件称为过程。 Private Sub Form_事件名([参数列表]) Form_事件名([参数列表]) 语句块 End Sub
Private Sub Swap(x%,z%) Dim temp% Temp=x x=z z=Temp End Sub
过 程
三、参数的传递
在调用一个有参数的过程时，首先进行的是“形实结合”，即 在调用一个有参数的过程时，首先进行的是“形实结合”，即 按值传递或按地址传递。
Private Sub Form_Click() Dim X As String, Z As Integer …… 实参 Call Count(X, Z) Count(X … End Sub Private Sub Count(M As Integer, N As String) Count(M …… End Sub
Private Sub Form_Click() Dim M As Integer, N As Integer M 15 X M = 15: N = 20 Call value(M, N) 20 N Z Print "M="; M, "N="; N End Sub Private Sub value(ByVal X As Integer, ByVal Z As Integer) X = X + 20 Z=X+Z Print "X="; X, “Z="; Z End Sub