第八章_子过程和函数过程#3.pptVIP

第八章 ;本章内容及要求; （1）窗体事件过程 Private Sub Form_事件名(参数列表) ＜语句组＞ End Sub （2）控件事件过程 Private Sub 控件名_事件名(参数列表) ＜语句组＞ End Sub;;[Public|Private][Static] Sub 子过程名([形参表]) 局部变量或常数定义 ＜语句组＞ [Exit Sub] ＜语句组＞ End Sub ;例1: 编一个交换两个整型变量值的子过程。 Private Sub Swap( X As Integer, Y As Integer) 　　Dim temp As Integer 　Temp=X X=Y Y=Temp End Sub ;例2：编写求阶乘的子过程。 Private sub fact(n As Integer,f as Double) Dim i As Integer f = 1 For i = 1 To n f = f * i Next End sub;;方法一： Call 子过程名(参数列表) 方法二：子过程名 [参数列表] 说明： (1)参数列表称为实参或实元，它必须与形参保持个数相同，位置与类型一一对应。 (2)调用时把实参值传递给对应的形参。 其中值传递（形参前有ByVal说明）时实参的值不随形参的值变化而改变。而地址传递时实参的值随形参值的改变而改变。; (3)当参数是数组时，形参与实参在参数声明时应省略其维数，但括号不能省。 (4)调用子过程的形式有两种，用Call关键字时，实参必须加圆括号括起，反之则不用加圆括号括起。实参之间用“，”分隔。 例：调用上面定义的Swap子过程的形式： 　　　　 Swap a,b Call Swap(a,b) ;;;;[Public|Private][Static] Function 函数名([参数列表])[As类型] 局部变量或常数定义 语句块 [函数名=返回值] [Exit Function] 语句块 [函数名=返回值] End Function;Function fact(n As Integer) As Double Dim i As Integer, f As Double f = 1 For i = 1 To n f = f * i Next fact = f End Function;说明： （1）函数名：命名规则与变量名规则相同。但不能与系统的内部函数或其它通用子过程同名，也不能与已定义的全局变量和本模块中模块级变量同名。 （2）在函数体内，函数名可以当变量使用，函数的返回值就是通过对函数名的赋值语句来实现的，在函数过程中至少要对函数名赋值一次。 （3）AS类型：是指函数返回值的类型，若省略，则函数返回变体类型值（Variant）。 （4）Exit Function：表示退出函数过程，常常是与选择结构（If或Select Case语句）联用，即当满足一定条件时，退出函数过程。 （5）形参数列表：形参的定义与子过程完全相同。 ;调用形式如下： 函数名（实参列表） 说明：在调用时实参和形参的数据类型、顺序、个数必须匹配。函数调用只能出现在表达式中，其功能是求得函数的返回值。;2009-03-29以下关于过程及过程参数的描述中，错误的是 A）过程的参数可以是控件名称???? B）调用过程时使用的实参的个数应与过程形参的个数相同???? C）只有函数过程能够将过程中处理的信息返回到调用程中? D）窗体可以作为过程的参数;Visual Basic中不同模块（过程）之间数据的传递有两种方式： 通过过程调用实参与形参的结合实现；　 使用全局变量来实现各过程中共享数据。 ;2、实际参数 实际参数是指在调用Sub或Function时，出现在子过程名或函数名后括号内的参数，其作用是将它们的数据（数值或地址）传送给Sub或Function过程与其对应的形参变量。 实参可由常量、表达式、有效的变量名、数组名（如A( )）组成，实参表中各参数用逗号分隔。;传址： 形参得到的是实参的地址，当形参值的改变同时也改变实参的值。因为它们共用一个地址。 传值： 形参只得到的是实参的值，形参值的改变不会影响实参的值。因为形参并不知道实参的地址。;Private Sub CmdOK_Click() Dim a%,b% a = 10: b = 20 Swap1 a, b ‘传 值 Print A1=; a,