【vb精品源码栏目提醒】:网学会员vb精品源码为您提供vb子程序和函数 - 其它资料参考,解决您在vb子程序和函数 - 其它资料学习中工作中的难题,参考学习。
第八章 子程序和函数 8.1 子程序概述 在
VB5.0/6.0中,除了系统提供的内部函数过程和事件过程外,用户可自定义过程下列四种过程:▲ “Sub” 保留字开始的为子过程▲“Function” 保留字开始的为函数过程 “Property”保留字开始的为属性过程“Event”保留字开始的事件过程8.2 Sub过程 在
VB中,的Sub子过程分为:事件过程和通用过程8.2.1 事件过程 (1)窗体事件的语法Private Sub Form_事件名参数列表<语句组>End Sub(2)控件事件的语法Private Sub 控件名_事件名参数列表<语句组>End Sub 8.2.2 通用过程(Sub过程)的定义子过程的定义形式如下:PublicPrivateStatic Sub 子过程名形参表 <语句组> Exit Sub <语句组>End Sub说明:(1)子过程名:命名规则与变量名规则相同。
子过程名不返回值,而是通过形参与实参的传递得到结果,调用时可返回多个值。
(2)形式参数列表:形式参数通常简称“形参”,仅表示形参的类型、个数、位置,定义时是无值的,只有在过程被调用时,虚实参结合后才获得相应的值。
(3)过程可以无形式参数,但括号不能省。
(4)参数的定义形式:ByVal|ByRef变量名 As 类型…,ByVal表示当该过程被调用时,参数是按值传递的;缺省或ByRef表示当该过程被调用时,参数是按地址传递的。
例8.1编一个交换两个整型变量值的子过程。
Private Sub Swap X As Integer Y As Integer Dim temp As Integer TempX : XY : YTempEnd Sub8.2.3 子过程的建立 通过 “工具”菜单中的“添加过程”命令,出现“添加过程”对话框(见图6.1),选择过程类型(子过程、函数、属性、事件)及作用范围(公有的Public、私有的Private),单击确定后得到一个过程或函数定义的结构框架(模板),如:Public Sub Sort ……End Sub8.2.4 过程的调用 1 子过程的调用 子过程名 参数列表 或 Call 子过程名参数列表 2 函数过程的调用 变量名 函数过程名参数列表说明: 1参数列表称为实参或实元,它必须与形参保持个数相同,位置与类型一一对应。
2调用时把实参值传递给对应的形参。
其中值传递(形参前有ByVal说明)时实参的值不随形参的值变化而改变。
而地址传递时实参的值随形参值的改变而改变。
3当参数是数组时,形参与实参在参数声明时应省略其维数,但括号不能省。
4调用子过程的形式有两种,用Call关键字时,实参必须加圆括号括起,反之则实参之间用“,”分隔。
例:调用上面定义的Sawp子过程的形式: Swap ab Call Swapab过程调用的执行过程:Private Sub CmdOK Private Sub Swapxy …… Dim temp Call Swapab TempX …… XY Swap ab YTempEnd Sub End Sub 8.3 Function过程 Visual Basic函数分为内部函数和外部函数,外部函数 是用户根据需要用Function关键字定义的函数过程,与子 过程不同的是函数过程将返回一个值 。
8.3.1 函数过程(Function过程)的定义 PublicPrivateStaticFunction 函数名As函数体函数名返回值Exit Function 函数体函数名返回值End Function说明:(1)函数名:命名规则与变量名规则相同。
但不能与系统的内部函数或其它通用子过程同名,也不能与已定义的全局变量和本模块中模块级变量同名。
(2)在函数体内,函数名可以当变量使用,函数的返回值就是通过对函数名的赋值语句来实现的,在函数过程中至少要对函数名赋值一次。
(3)AS类型:是指函数返回值的类型,若省略,则函数返回变体类型值(Variant)。
(4)Exit Function:表示退出函数过程,常常是与选择结构(If或Select Case语句)联用,即当满足一定条件时,退出函数过程。
(5)形参数列表:形参的定义与子过程完全相同。
例6.28.3.2 函数的调用调用形式如下: 函数名(实参列表)说明: 在调用时实参和形参的数据类型、顺序、个数必须匹配。
函数调用只能出现在表达式中,其功能是求得函数的返回值。
8.4 过程的作用域概念 PublicPrivate Sub 子过程名形式参数列表 …..End Sub 通用子过程和函数过程既可写在窗体模块中也可写在标准模块中,在定义时可选用关键字Private(局部)和Public(全局),来决定它们能被调用的范围。
按过程的作用范围来划分,过程可分为: 模块级过程 全局级过程1、窗体/模块级过程: 加Private关键字的过程,只能被定义的窗体或模 块中的过程调用。
2、全局级过程: 加Public关键字(或缺省)的过程,可供该应用程序的所有窗体和所有标准模块中的过程调用。
用例7.1来说明过程的作用域总结归纳过程的定义及作用域如下表(教材Pg.163) 8.5 过程之间参数的传递 Visual Basic中不同模块(过程)之间数据的传递有两种 方式: 通过过程调用实参与形参的结合实现; 使用全局变量来实现各过程中共享数据。
8.5.1 形式参数与实际参数1、形式参数 是指在定义通用过程时,出现在Sub或Function语句中的变量名后面园括号内的数,是用来接收传送给子过程的数据,形参表中的各个变量之间用逗号分隔。
2、实际参数 实际参数是指在调用Sub或Function过程时,写入子过程名或函数名后括号内的参数,其作用是将它们的数据(数值或地址)传送给Sub或Function过程与其对应的形参变量。
实参可由常量、表达式、有效的变量名、数组名(后加左、右括号,如A)组成,实参表中各参数用逗号分隔。
8.5.2 参数传递(虚实结合) 参数传递指主调过程的实参(调用时已有确定值和内存地址的参数)传递给被调过程的形参,参数的传递有两种方式:按值传递、按地址传递。
形参前加“ByVal”关键字的是按值传递,缺省或加“ByRef”关键字的为按地址传递。
传址与传值 传址: 形参得到的是实参的地址,当形参值的改变同时也改变实参的值。
传值: 形参得到的是实参的值,形参值的改变不会影响实参的值。
例8.4Sub Swap1ByVal x ByVal y Sub Swap2x yDim Temp Dim TempTemp x: x y: y Temp Temp x: x y: y TempEnd Sub End SubPrivate Sub CmdOK_Click a 10: b 20: Swap1 a b ‘传 值 Print A1 a B1 b a 10: b 20: Swap2 a b 传地址 Print A2 a B2 bEnd Sub 程序调用执行过程:值传递的执行过程如下图:通过地址传递数据的执行过程数据传递的几点说明:1.参数的数据类型2.按值传递参数 形参是实参的一个副本3.按地址传递参数 形参实参公用内存单元4.子过程执行一系列操作,函数过程返回一个值注意:如果实参是常量(系统常量、符号常量)或者表达式,则无论定义时使用值传递还是地址传递,都是按值传递将常量或者表达式的计算值传递给形参。