《VB程序设计-过程和函数.ppt》由会员分享，可在线阅读，更多相关《VB程序设计-过程和函数.ppt（53页珍藏版）》请在三一办公上搜索。
1、VB程序设计,唐四薪,6.1 子过程的定义与调用6.2 函数的定义与调用6.3 子过程与函数的参数传递6.4 变量、过程的作用域6.5 递归6.6 常用算法举例,第6章 过程与函数,本节课要求,1.掌握Sub过程、Function函数的定义和调用2.理解Sub过程和Function函数的区别3.掌握编写过程和函数的一般流程,引入过程和函数的目的,1.依据结构化程序设计的思想，实现模块化的程序设计当需解决的问题规模较大、复杂时,可以按功能细分成一个一个小的功能模块,这样的小程序段，在VB中被称为过程;2.简化程序中多处重复出现处理相同功能的程序段的设计问题过程的定义：过程是一段能完成一个或多个特
2、定功能的独立的程序段，并可以被其他过程调用特点：功能独立；可被调用,VB中的过程有两种:(1)系统提供的内部函数过程和事件过程。(2)用户根据应用的需要而设计的过程。在VB中根据应用的要求可分为几种类型的自定义过程:(1)以“Sub”保留字开始的子过程。(2)以“Function”保留字开始的函数过程。(3)以“Property”保留字开始的属性过程。(4)以“Event”保留字开始的事件过程。本书仅讨论以“Sub”开头的子过程和以“Function”开头的函数过程。,过程和函数,在VB中，过程有两种，一种是Sub子过程，一种是Function函数。两者的区别在于：Sub子过程只执行程序而不返
3、回值，而Function函数执行程序后会返回值。,函数Function和过程Sub的区别,函数Function,参数1,参数2,返回值,过程Sub,函数：既有输入又有输出：如数控机床、打爆米花的机器,过程：只有输入没有输出：如光驱,参数n,打爆米花,建立函数的一般过程,Function 函数名（形式参数1，形式参数2，）End Function输入：？输出：？Function 打爆米花（粮食，糖精）打爆米花=爆米花End Function,6.1.1 子过程的定义,在VB中用Sub 语句定义的过程叫做子过程。可按下列格式定义子过程：Sub 子过程名(形式参数列表)语句序列 End Sub,子过
4、程的定义,Sub sub1(a as long,b as long)c=a+bprint cEnd Sub形式参数列表由若干个形式参数构成，参数之间用逗号分隔。每个形式参数按下列格式定义:：形式参数名 As 类型名省略类型说明则表示是Variant类型。子过程中可以使用Exit Sub语句跳出子过程。,6.1.2 子过程的调用,子过程只能作为语句被调用，不能作为表达式被调用(即不能把子过程赋值给某个变量)。可以用下列两种方法调用子过程：Call 子过程名(实际参数列表)或 子过程名 实际参数列表 以上两种调用方法功能完全一致。注意，当使用 Call 语法时，参数必须在括号内。Call sub1
5、（2，3）或 sub1 2，3,6.1.2 通用子过程,7）End Sub标志Sub过程执行结束，程序将返回调用该Sub过程的语句处继续执行；8）过程不能嵌套定义。Private Sub Command1_Click()Call P()End Sub,Private Sub()Print“输出结果为：”End Sub,事件过程,事件过程的调用：当有事件发生时，系统会自动调用与事件相对应的事件过程。事件过程是与对象相关联的，是对象对事件做出的响应。事件过程的名称由对象名、下划线、事件名连接而成。,Sub过程（子程序）,Sub子程序的语法如下：Sub 子程序名（形式参数1，形式参数2，）End S
6、ub调用子程序的两种方式：（1）Call 子程序名（实际参数1，实际参数2，）（2）子程序名 实际参数1，实际参数2，,Function函数,Function函数的语法如下：Function 函数名（形式参数1，形式参数2，）End Function调用函数变量=Function 函数名（参数1，参数2，）函数可以向变量一样引用和参与运算,6.2 定义Function过程,定义Function过程说明：1）Function过程以Function语句开头，以End Function结束；中间代码部分为函数体；2）函数名有返回值，其值类型由As 数据类型指定；3）函数体内一般都会至少为函数名赋值一
7、次；如果不赋值，函数返回值默认为0或空；4）函数中途可以利用Exit Function退出。,Function函数返回值的方式,与Sub过程不同的是，Function函数通过函数名返回一个值，这个值是在过程的语句中赋给函数名的。Function mySquare(intA,intB)intA和intB是形式参数Dim lngSumlngSum=intA2+intB2 mySquare=lngSumEnd Function,函数可以作为表达式来调用。格式为：函数名（实际参数列表）如果函数要直接作为语句来使用，则必须按照子过程的方式来调用，当然此时也就不能利用函数的返回值了。例如下列三条语句都可以
8、调用前面定义的函数Fun1：Print fun1(2,3)Call fun1(2,3)fun1 2,3,6.2.2 函数的调用,6.2 定义Function过程,例如，求n!Private Function fac%(n As Integer)If n0 Then fac=-1:Exit FunctionElsefac=1For i=1 To nfac=fac*iNext iEnd IfEnd Function,6.2 定义Function过程,例如，求m,n的最大公约数Private Function gcd%(ByVal m%,ByVal n%)Dim r%,t%If m0m=nn=rr=
9、m Mod nLoopgcd=nEnd Function,Private Sub Change(x1%,x2%)Dim Temp As IntegerTemp=x1x1=x2x2=TempEnd Sub,过程和函数需注意的几点,过程的定义不可以嵌套函数和过程必须先定义才能使用使用自定义过程的两个步骤：定义过程和调用过程,函数和过程的相互转换,写函数首先要确定函数的输入和输出Private Sub Command1_Click()Print sum(5,3)End SubFunction sum(x,y)s=x+ysum=sEnd Function,定义函数,调用函数,函数和过程的相互转换,Pr
10、ivate Sub Command1_Click()Call sum(5,3,s)Print sEnd SubSub sum(x,y,s)s=x+yEnd Sub,定义过程,调用过程,例题,编写一个求任意三角形面积的函数,Private Function Area!(a!,b!,c!)Dim t!t=(a+b+c)/2Area=Sqr(t*(t-a)*(t-b)*(t-c)End Function,例题,编写一个求任意三角形面积的子过程,Private Sub Area(a!,b!,c!,s!)Dim z!z=(a+b+c)/2s=Sqr(z*(z-a)*(z-b)*(z-c)End Sub,
11、过程实例,定义Sub过程判断手机号码格式是否正确并调用它 Sub IsTel(tel)if len(tel)=11 and IsNumeric(tel)thenPrint 手机号码格式正确elsePrint 格式不正确，请重新输入end ifend Sub调用Sub过程,函数的实例,限制标题显示的内容长度的函数,如果输入的字符串（tit）长度大于指定的长度（n），则返回按指定的长度截取前面部分并加省略号的字符串，如果长度小于等于指定长度，则返回原字符串。function title(tit,n)if len(tit)n thentitle=left(tit,n)&返回函数值elsetitle=
12、tit 返回函数值end ifend function,5.7 参数传递,5.7.1 形参与实参,形参：置于过程定义时，参数列表中的变量或数组；在过程被调用前，系统不对其分配空间；实参：当程序中想调用某过程时，所提供的实际值；当实参和形参结合的时候，形参才被分配空间，接收由实参传递过来的值；形参、实参个数、类型、位置要一致。,6.4.1 形参与实参,常见的错误Private Sub F1(a%,b%).End SubPrivate Sub Command1_Click()Dim x!,y!x=3.14:y=123Call F1(x,y)Call F1(x)End Sub,5.7.2 参数传递方
13、式,传值（ByVal）传址（ByRef或省略默认）区别1：形参定义前面放的关键字不一样；区别2：形参接收到的值不一样；区别3：形参对实参的影响不一样,6.4.23 参数传递方式,例如：（两个数的交换)Private Sub Exchange(ByVal a%,ByVal b%)Dim t%t=aa=bb=tPrint a,bEnd Sub,Private Sub Command1_Click()Dim x%,y%x=12y=21Call Exchange(x,y)Print“主过程中：“；x,yEnd Sub,6.4.23 参数传递方式,说明：形参前加ByVal时表示传值不加或加ByRef时表
14、示传址传值是单方向的传址是“双方向的”,6.4.23 参数传递方式,Private sub add(x as integer,y as integer,z as integer)z=x+yx=x+1y=y+1print“子过程中”&x&y&zEnd subPrivate sub Form_Click()dim a as integer,b as integer,c as integera=3：b=2：c=1add a,b,c 或者写成Call add(a,b,c)print“外部过程中”&a&b&cEnd sub,1.参数传递方式 过程的参数有两种传递方式：传值（ByVal）传地址（ByRef
15、）（默认方式）。按值传递参数:在形式参数前加上关键字ByVal表示指定按值传递参数。调用时实际参数仅将值传递给形式参数，形式参数的任何改变不会影响实际参数。,6.3 子过程与函数的参数传递,按地址传递参数:在形式参数前加上关键字ByRef表示指定按地址传递参数。调用时如果实际参数是表达式，则传递方式与按值传递效果相同；如果实际参数是变量，则将实际参数的内存地址传递给形式参数，形式参数与实际参数指向同一个内存地址，形式参数的改变也就是实际参数的改变。,6.3 子过程与函数的参数传递,【例6-4】下列程序运行后，每次单击窗体就会显示“a=3”，“b=8”。Option Explicit Dim a
16、 As Long Dim b As Integer Sub s(c As Long)c=c+1 End Sub Sub Form_Click()a=2 b=8 s a Print a=;a s(b)Print b=;bEnd Sub 说明：本例中，圆括号用于将实际参数由变量b转换为表达式，即按值传递(s(b)，否则就是按址传递(s a)。,2.可选参数 在形式参数前加上关键字Optional可以指定该形式参数为可选参数。可选参数在过程调用时可以不提供与可选参数对应的实际参数。可选参数可以指定默认的缺省值。3.命名参数 实际参数使用“形式参数名:=实际参数”的格式即为命名参数。命名参数出现的位置
17、可以与定义时的顺序无关。但需注意非命名参数仍需按定义时的位置出现，所以非命名参数在定义时应排在第一个命名参数之前。4.数组作为参数和返回值 数组可以作为实际参数传递到过程中。此时形式参数应为Variant类型或与实际参数类型完全相同的数组类型。作为形式参数的数组应为可变数组，用数组名跟空的圆括号表示。函数的返回值也可以是数组，此时类型说明为Variant类型或“As 类型（）”。,6.3 子过程与函数的参数传递,【例6-7】下列程序运行后，单击窗体时显示“9”、“8”、“7”。Option Explicit Function f(a()As Long)As Long()f=a End Func
18、tion Sub Form_Click()Dim b()As Long Dim c(2)As Long c(0)=9 c(1)=8 c(2)=7 b=f(c)print b(0)b()=f(c()print b(1)Print f(c)(2)函数表达式直接带数组下标代表数组元素 End Sub,6.3 子过程与函数的参数传递,5.可变个数参数 将最后一个形式参数声明为Variant类型的数组，同时在前面加上ParamArray关键字，就变成可变个数的参数；调用过程时可输入任意个数的参数，输入的参数转变为数组的元素；也可以省略该参数。ParamArray 关键字不能与 ByVal或ByRef一起
19、使用，也不能在参数列表中出现Optional。【例6-8】下列程序运行后，每次单击窗体就会显示“6”。Option Explicit Function f(a,ParamArray b()f=a+b(0)+b(1)End Function Sub Form_Click()Print f(1,2,3)End Sub 注意：在用可变个数参数时，实参个数不能少于使用的形参个数。,6.3 子过程与函数的参数传递,6.4 变量、过程的作用域,1.过程的作用域 定义过程时在过程名前加关键字Private，则该过程为私有过程，仅在定义该过程的模块内有效，其他模块的过程不能调用该过程。如果没有加关键字Priv
20、ate或加了关键字Public，则该过程为公共过程，在整个工程内有效，其他模块内的过程可以调用该过程。调用当前过程所在模块定义的过程可以直接使用过程名。调用其他窗体模块或其他标准模块定义的过程，使用“模块名.过程名”的格式。,Private Sub Form_Click()Print 第1次调用过程b b Print Print 第2次调用过程b b Print Print 第1次调用静态过程e e 0 Print Print 第2次调用静态过程e e 0End Sub,6.4 变量、过程的作用域,运行结果如图所示。,过程如果直接或间接地调用了自身，这就是递归过程。例【6-12】求n!的递归函
21、数。Public Function FN(n As Integer)As Integerif n=1 ThenFN=1ElseFN=n*FN(n-1)End ifEnd Function可见递归是一个不断自己调用自己的过程,6.5 递归,【例6-13】一只猴子一天从山上摘来一袋桃子，从这天开始，它每天都要把袋中的桃子平分为二堆，吃掉其中的一堆，然后再从剩下的桃中拿出一个解谗，等到第10天，它发现袋中只有一只桃可吃，问猴子总共摘了多少桃。程序如下（运行结果如下图）：Private Sub Command1_Click()Dim Num As Integer Num=Val(InputBox(请输
22、入天数:)Label1.Caption=桃子数量为:&Eat(Num)End SubPrivate Function Eat(N As Integer)递归函数 If N=1 Then Eat=1 Else Eat=2*Eat(N-1)+2 End IfEnd Function,6.5 递归,6.6 常用算法举例,程序设计不仅仅需要具备程序设计语言的语法知识，更重要的是要掌握基本的算法并能灵活的加以应用。下面给出一些常用算法的应用实例。1.欧几里德算法求最大公约数和最小公倍数 欧几里德算法也叫做辗转相除法，是计算两个数最大公约数的传统算法。步骤如下：（1）如果a b，则交换a和b。（2）令c是
23、a/b的余数。（3）如果c0，则令gcdb并终止；否则令ab，bc并转向步骤（2）。具体算法应用见下例：,【例6-15】求最大公约数的函数为：Function gcd(ByVal a As Long,ByVal b As Long)As Long Dim c As Long If a b Then c=a:a=b:b=c End If Do c=a Mod b If c=0 Then Exit Do a=b:b=c Loop gcd=bEnd Function gcd函数的调用和系统函数的调用一样，如:Print gcd(12,28)为输出12与28的最小分倍数。,6.6 常用算法举例,2.异
24、或操作实现加密和解密【例6-17】异或操作可以实现简单的数据加密和解密，加密解密使用相同的密码和程序。,6.6 常用算法举例,Function code(src()As Byte,key()As Byte)As Byte()Dim a()As Byte Dim i As Long Dim j As Long Dim K As Long Dim L As Long K=UBound(src)L=UBound(key)ReDim a(k)j=0 For i=0 To K a(i)=src(i)Xor key(j)j=j+1 If j L Then j=0 Next i code=aEnd Func
25、tion,Private Sub Form_click()Dim a()As Byte Dim b()As Byte Dim c()As Byte a=用于加密的密码 b=密码 Print 加密前的明文:;a a=code(a,b)将原文与密码进行异或运算，实现对原文的加密 Print 加密后的密文:,a a=code(a,b)将密文与密码进行异或运算，实现对密文的解密 Print 解密后的明文:,aEnd Sub,3.数制转换【例6-18】将任意进制正整数形式的字符串转换为数值(十进制)，实现函数如下：Function str2n(ByVal a As String,Optional ByV
26、al b As Long)As Long Dim i As Long Dim num As Long Dim c As String*1 For i=1 To Len(a)c=mid(a,i,1)c=UCase(c)If c=0 And c=A And c=Z Then num=num*b+Asc(c)-Asc(A)+10 End If Next i str2n=num End Function,6.6 常用算法举例,4.多项式求值和求导数【例6-19】多项式 a0 xn+a1 xn-1+an-1x+an 的值可以用下面的函数计算：Function polynomial(a()As Doubl
27、e,ByVal x As Double)As Double Dim i As Long Dim fx As Double fx=a(0)For i=1 To UBound(a)fx=x*fx+a(i)Next i polynomial=fx End Function,6.6 常用算法举例,本章介绍了与过程的定义与调用有关的内容。过程有两种基本的形式：子过程与函数，这两种形式没有本质的区别。子过程是事件响应过程采用的形式，函数则使用起来更为灵活。过程调用时的参数有两种传递方式：值传递和引用传递。值传递仅仅是复制实际参数的副本传递给形式参数，所以形式参数的变化不会影响实际参数的值，引用传递时形式参数与实际参数是同一个变量，形式参数的改变也就是实际参数的改变。过程和变量都有作用域限制，同名过程或变量在调用时有优先级的差异，变量还有生存期的问题。本章最后给出了一些实用的自定义过程，读者可从中学习算法，加深对语法知识的理解。,本章小结,
