第八章 VB自定义函数与子过程

第八章

自定义函数与子过程几个概念一、VB程序的基本构成是过程。二、VB6.0中过程有两大类：内部过程和外部过程。1、内部过程：系统提供的，不需要用户编写，如内部函数。2、外部过程：用户根据需要定义的，供调用的程序段，外部过程分为子过程、函数过程。几个概念三、在VB中使用过程编程有两个优点：1、过程可使程序划分成离散的逻辑单元，每个单元都比没有使用过程的整个程序容易调试。2、一个程序中的过程，往往不必修改或只需稍作改动，便可以成为另一个程序的构件。四、VisualBasic的两类过程：1、Sub过程(子过程)，不返回值或多个返回值。2、Function过程(函数过程)，有一个返回值。8.2自定义函数过程例8.1设计程序将[50,100]区间内的偶数拆成两个素数之和分析：可先将偶数拆分成两个数之和，在分别对这两个数进行素数判定，若都是素数就输出。例如：可将50拆分为:3+47、4+46、…..47+3，然后对每种组合中的两个数分别进行素数判断。因此，可以定义一个专门用于素数判断的函数过程。8.2自定义函数过程PrivateFunctionprime(ByValxAsInteger)AsBoolean

DimI%

prime=True'函数赋初值True

ForI=2ToSqr(x)

IfxModI=0Then'判断x是否可被i整除

prime=False'函数取值False,则x不是素数

ExitFunction'函数结束

EndIf

NextIEndFunction‘在事件过程中调用以上定义的函数，得到结果。PrivateSubForm_Click()

DimI%,N,K%

I=1'计数

ForN=50To100Step2'取偶数

ForK=3ToN/2'第一个数的取值区间折半

Ifprime(K)Andprime(N-K)Then‘二次调用结果都是素数输出

PrintI;":";N;"=";K;"+";N-K

ExitFor'退出k循环

EndIf

NextK

I=I+1

NextNEndSub8.2自定义函数过程8.2.2函数过程的定义函数过程在被调用前，一定要先定义，函数定义的方式一般有两种：1．利用“添加过程”对话框定义打开窗体或模块的代码窗口，单击“工具”菜单，选择“添加过程”命令，即可打开“添加过程”对话框。8.2自定义函数过程

在“添加过程”对话框中输入并选择相应的内容和项目即可。在“名称”文本框内输入待定义函数过程的名称，在“类型”选项组中选择“函数”单选按钮。单击确定按钮，则可建立一个函数过程的框架。8.2自定义函数过程2．直接在代码窗口定义进入代码窗口后，在左侧显示对象名的下拉列表框中选择“(通用)”，在右侧显示过程的下拉列表框中选择“(声明)”，然后输入Function及函数名即可。自定义函数过程的格式如下：[Public|Private][Static]Function<函数名>[(<形参列表>)][As<类型>][<语句块1>][函数名=<表达式>][ExitFunction][<语句块2>]

[函数名=<表达式>]EndFunction8.2自定义函数过程1）[Public或Private]：表示函数是“公有的”或“私有的”。Public表示该函数为公有过程，定义后整个程序范围内均可调用该函数，但调用时必须加上该函数所在的窗体或标准模块作为前辍，而Private表示私有子过程，用它定义的函数只能在本窗体或模块中被调用。缺省默认是公有的。2）[Static]：表示函数中的局部变量是静态变量，在函数被调用后，其值仍然被保留；说明3）[(<形参列表>)]：该项中的参数为形式参数，又称哑元，可以是变量名或数组名，当参数为数组名时，形参和实参在参数声明时应省略其维数，但括号()不能省略。当参数有多项时，参数间要用逗号分隔开。使用格式为[ByVal|ByRef]<变量名>[As<数据类型>]4）ByVal：表示调用时参数为值传递方式，实参的值不随形参值的变化而变化；说明说明5）ByRef：参数默认选项，表示参数为地址传递方式，实参的值随形参值的改变而改变,数组只能以传地址的方式引用；6）As<类型>表示函数返回值的类型，默认为变体型。在函数体内至少应对对函数名赋值一次。7）[函数名=<表达式>]，用于函数运行后返回一个值。如在定义中未对函数名赋值，则将返回一个默认值。其中，数值型为0，字符型为“”，变量型为Empty。

8）

[ExitFunction]用于退出函数过程，该项一般嵌套在if结构中使用，在满足if条件时退出该函数过程。

例8.2设计一个程序统计字符串中西文字符个数。算法：汉字的Asc()函数的返回值小于0;西文字符的Asc()函数的返回值大于0。FunctionCountXw%(ByValS$)

DimI%,T%,K%,C$

ForI=1ToLen(S)

C=Mid(S,I,1)'逐个地取出字符

IfAsc(C)>0ThenK=K+1'字符ASCII码大于0，则个数累加1

NextI

CountXw=K'返回函数值EndFunction例8.2设计一个程序统计字符串中西文字符个数。PrivateSubCommand1_Click()

DimC1%

C1=CountXw(Text1.Text)‘调用CountXw函数

Picture1.PrintText1'在Picture1中显示统计的结果

Picture1.Print"有";C1;"个西文字符数"EndSub8.2.3函数过程的调用1．函数调用的形式其调用形式如下：变量=函数过程名（实参列表）其中，实参列表中的实参是传递给被调用过程的变量或表达式。例题8.2中的C1=CountXw(Text1.Text)就是一次函数调用。

注意：调用函数后，函数过程名将有一个返回值，函数是一个特殊的表达式。因此，函数不能作为单独的一条语句，而必须要以给变量赋值或与命令一起使用的形式。例如：Ifprime(K)Andprime(N-K)Then8.2自定义函数过程8.2函数过程的定义和调用2．函数过程调用的执行流程在事件过程调用一个函数过程时，程序在执行这两个过程时的流程如下图所示。FunctionHypotenuse(x%,y%)

Hypotenuse=Sqr(x^2+y^2)EndFunctionPrivateSubCommand1_Click()……s=Hypotenuse(a,b)

……EndSub①②③④⑤函数过程调用的执行流程图过程调用时执行顺序如下：1）事件过程Command1_Click()在执行到函数过程调用语句“s=Hypotenuse(a,b)”时，程序执行控制权转移到Hypotenuse()函数过程中；2）执行控制权转移时，实参a和b的值将分别传递给Hypotenuse()函数中的形参x和y；①②③④⑤3）x和y获得初值后，即可执行函数过程中的程序代码并给函数过程名赋值，该值即为整个函数过程的返回值；4）函数执行结束后，函数的返回值将赋给主调事件过程的变量s；5）变量s得到赋值后，接着执行调用函数过程后面的剩余语句。①②③④⑤8.3子过程的定义和调用引例调用函数后，将得到函数的返回值，但是，在有些问题的中，过程执行结束后不需要返回值，用函数过程实现就会非常困难，而应该使用子过程的形式。例8.3试编写一个将两个数进行交换的过程供其它过程多次调用。

分析：先编写一个具有将两个数进行交换的子过程，需要进行两数交换时，调用该子过程，同时将待交换的两个数传送到该子过程中，在子过程实现两数交换。子过程执行结束后，将被交换后的两个数返回到主调过程中。‘Cp()子过程的定义

PrivateSubCp(AAsInteger,BAsInteger)'形参为传址方式

IfA=0Then

ExitSub

EndIf

A=A+B'A和B的值交换，带回主调过程

B=A-B

A=A-B

Print"在子过程中交换后的值"

Print"A=";A,"B=";BEndSub‘主调程序Cp子过程PrivateSubCommand1_Click()

DimStr1$,Va%,Vb%

Str1$="输入对话框"

Va=InputBox("Va=",Str1$)

Vb=InputBox("Vb=",Str1$)

Print"在主调过程中调用子过程前的值"

Print"Va=";Va,"Vb=";Vb'输出原始值

CallCp(Va,Vb)

Print"在主调过程中调用子过程后的值"'输出经子过程处理过后的返回值

Print"Va=";Va,"Vb=";VbEndSub运行结果：

程序运行后，单击窗体以触发Form_Click()事件过程，运行结果如下图所示。从程序中可以看到，Va和Vb的初值分别是45和23，而在窗体中输出时Va和Vb的值分别是23和45，达到了两个数交换的目的。8.3子过程的定义和调用8.3.1子过程的定义子过程以过程名来标识，被其它过程调用。子过程与事件过程有一定区别，事件过程可以在该事件触发或调用时执行，而用户自定义的子过程只有在被其它过程调用时才能执行。子过程的定义跟函数过程的定义相类似，在代码窗口中输入Sub及子过程名即可，系统会自动加上EndSub与子过程名后的一对括号（），然后即可在子过程的框架中输入程序代码。子过程的定义格式：[Private|Public][Static]Sub<过程名>[(<参数列表>)][<语句块1>][ExitSub][<语句块2>]EndSub———————————说明：[Public]|[Private]与[Static]：它们的含义和作用与函数过程中相应的这些关键词相同。[(<参数列表>)]：该项中参数的形式和调用方法也与函数过程相同。[ExitSub]：退出过程，该项一般嵌套在if结构中使用，在满足if条件时退出该过程。6.2子过程的定义和调用例：分别计算两个数的和与差，而当两个数的值均为0时则不进行任何计算。SubOperation(xAsInteger,yAsInteger)Dimt1asInteger,t2asInteger

Ifx=0andy=0ThenExitSub

EndIft1=x+yt2=x-yPrint“t1=”;t1;“t2=”;t2EndSub6.2子过程的定义和调用在Sub过程与Function过程之间的区别：1）子过程名无类型说明，在子过程中不能对子过程名进行赋值。2）子过程的形式参数没有具体的值，只代表参数的个数、位置、类型。3）子过程的调用必须是一条独立的语句。8.3子过程的定义和调用8.3.2子过程的调用1．使用Call语句调用格式：Call子过程名[(实参列表)]说明：①实参的个数，数据类型都应与被调用过程的形参一一对应。用Call语句调用时，若有实参，括号不能省略，否则，可以省略括号。②若子过程要通过实参向主调过程中返回值，则实参只能是简单变量、数组名或自定义类型变量。8.3子过程的定义和调用例如：PrivateSubCommand1_Click()a=”VisualBasic”b=“6.0”

CallLink(a,b)EndSub

此时，将输入的值a和b作为实参调用Link子过程，通过调用将两个实参传递给形参，然后在过程中计算。8.3子过程的定义和调用2．直接使用过程名调用格式：子过程名[实参列表]说明：此形式调用子过程时，实参不用加括号，否则在有的编译版本中出现编译错误，若有多个实参，则实参之间用逗号分隔。例如：PrivateSubCommand1_Click()a=”VisualBasic”b=“6.0”

Linka,b

EndSub8.4参数传递8.4.1形参与实参1、形参

指出现在Sub和Function过程形参表中的变量名、数组名，该过程在被调用前，没有为它们分配内存，其作用是说明自变量的类型和形态以及在过程中的作用。形参可以是除定长字符串变量之外的合法变量名，也可以带括号的数组名。2、实参

实参就是在调用Sub和Function过程时，从主调过程传递给被调用过程的参数值。实参可以是变量名、数组名、常数或表达式。在过程调用传递参数时，形参与实参是按位置结合的，形参表和实参表中对应的变量名可以不必相同，但它们的数据类型、参数个数及位置必须一一对应。8.4参数传递3、形参与实参的关系形参如同公式中的符号，实参就是符号具体的值，在调用过程前必须得到赋值；调用过程就是实现形参与实参的结合，把实参的值通过调用传递给形参，相当于把值代入公式进行计算。8.4参数传递8.4.2地址传递与值传递在VisualBasic中，实参与形参的结合有两种方式，即地址传递（ByRef）与值传递（ByVal)，地址传递又称为引用。101020a的地址地址传递值传递实参b形参y实参a形参

x8.4参数传递1．地址传递在VB6.0中，在形参前加ByRef或在缺省该关键字，则实参与形参的结合就是地址传递方式。例8.5通过调用子过程实现将两个字符串进行互换。

分析：首先定义一个能够实现字符串交换的子过程Swap1，该子过程包含两个形参。在主调过程中，分别对两个字符变量A和B进行赋值，将这两个变量作为调用子过程Swap1的实参，要使得形参的改变能够影响实参的值，应该采用地址传递的方式。8.4参数传递程序代码如下：‘传址子过程Swap1PublicSubSwap1(XAsString,YAsString)DimTAsString

T=X‘下面三行语句用于交换形参的值X=YY=TPrint“传址子过程中互换变量值后：”;“X1=”;X;“”;“Y1=”;Y;Print“_____________________________________________"PrintEndSub8.4参数传递‘以下为主调过程（事件过程）PrivateSubForm_Click()DimAAsString,BAsString‘定义字符串变量A、BCls‘清除窗体文字

A="ABCDE"‘为变量A赋值

B="12345"‘为变量B赋值

Print"主过程在调用子过程之前：";"A1=";A;"";"B1=";BPrint"_____________________________________________"Print

Swap1A,B

‘调用子过程Sub1Print"主过程调用传址子过程之后：";"A1=";A;"";"B1=";BEndSub8.4参数传递

程序运行结果如下图：从程序的运行结果可以看出，对形参的改变就是对实参的改变。如果不希望这种改变，则在被调用过程中不要出现对形参值改变的语句，或使用按值传送方式传递数据，将不会引起实参值的改变。8.4参数传递2．值传递传值就是通过传送实参的值而不是传送地址的方法给被调用过程中传递数据。这样，被调用的过程并没有访问实参的地址，因而也不会改变实参的值。格式：PrivateSubJc(ByVala%)……EndSub8.4参数传递

例8.6将两个字符串在子过程中实现互换，但主调过程的字符串不互换。分析：首先定义一个能够实现字符串交换的子过程Swap1，该子过程包含两个形参。在主调过程中，分别对两个字符变量A和B进行赋值，将这两个变量作为调用子过程Swap1的实参，要使得子过程中形参的值进行互换而不影响主调过程的实参，应该采用值传递的方式。8.4参数传递代码如下：‘传值子过程Swap1PublicSubSwap1(ByValXAsString,ByValYAsString)DimTAsStringT=XX=YY=TPrint"传值子过程中互换变量值后的变量数据：";"X1=";X;"";"Y1=";YEndSub8.4参数传递‘以下为主调过程（事件过程）PrivateSubForm_Click()DimAAsString,BAsStringCls'清除窗体文字

A="ABCDE"B="12345"Print"主过程在调用子过程之前的原变量数据：";"A1=";A;"";"B1=";BPrint"_________________________________________________"

Swap1A,BPrint"主过程调用传值子过程之后的变量数据：";"A1=";A;"";"B1=";BEndSub8.4参数传递

运行结果如下图所示。从程序的运行结果可以看出，使用按值传送方式传递数据，将不会引起实参值的改变。也就是说，两个形参的值虽然进行了互换，但没有影响实参的值，实