Visual Basic程序设计 双色印刷 熊李艳 周美玲 第7章 过程

《Visual Basic程序设计 双色印刷 熊李艳 周美玲 第7章 过程》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第7章过程7.1过程概述7.1过程概述过程（或称为子程序）是完成特定功能的一组程序代码，它以一个名字来标识，用此名字来实现调用。过程主要分两类：一类是由系统提供，包括内部函数与事件过程；另一类是用户根据需要自定义的过程（通用过程），它可以单独的创建，提供给事件过程或其他的通用过程调用。其中内部函数与事件过程在其他章节中介绍，在此只介绍通用过程。7.2Function过程在VB中，函数分为内部函数和外部函数。内部函数是系统预先编制的、能完成常用的、特定功能的程序代码，而外部函数是用户根据需要通过Function定义的过程，它的代码就

2、是实现函数功能的，并且将得到一个值（函数值）。7.2.1函数过程的定义1．Function过程定义的格式[Static][Private][Public]Function<过程名>[（参数列表）][As类型]过程体（函数体）[语句组][过程名=表达式][ExitFunction][语句组]EndFunction2．说明（1）Function过程以Function开头，以EndFunction结束，之间的程序代码是实现函数功能的程序语句序列。（2）<过程名>也称之为函数名，它的命名规则与变量名相同，不允许与系统保留字同名。（3）St

3、atic、Private、Public的含义如下：①Static：指定本函数过程中的局部变量在内存中的默认存储方式。②Private：指定本函数过程是私有（函数）过程，表明它只能被本模块中的其它过程所访问，而不能被其它模块中的过程所访问。③Public：指定本函数过程是公有（函数）过程，可以被本程序中的任何过程调用。（4）参数列表：包含了在调用时与主调过程之间需要进行数据传递的变量名或数组名。参数列表的格式如下：[ByValByRef]<变量名>[（）][As类型][，[ByValByRef]<变量名>[（）][As类型]……]（

4、5）过程的定义不允许出现嵌套定义，即不能在一个过程体内再定义另一个过程。（6）As类型：函数<过程名>的类型的，即定义本函数值的类型。（7）过程体：过程体中是实现函数（过程）功能的代码。在函数过程体中，一般是至少需对<过程名>赋值一次，最后一次执行的赋值即是本函数的函数值。若未对<过程名>赋值，或虽然有此赋值语句，但是未执行，那么此函数值为0或空串（根据函数的类型确定）。例如：FunctionBinarySearch(LowerAsInteger,UpperAsInteger)AsBoolean…IfLower=UpperThen

5、BinarySearch=TrueExitFunctionElseBinarySearch=FalseEndIf…EndFunction【例7.1】编写一个计算两个数据x与y的最大公约数（gcd）的函数过程。程序如下：Functiongcd(ByvalxasInteger,ByvalyAsInteger)AsIntegerDoWhiley<>0r=xModyx=yy=rLoopgcd=xEndFunction例如计算1+2+…+n>=10000的最小n值：Functionjsn(xAsInteger)AsIntegerDimiAs

6、Integer,yAsIntegeri=1y=0DoWhileTruey=y+iIfy>=xThenjsn=i'将计算结果返回ExitFunction'中途退出EndIfi=i+1LoopEndFunction7.2.2Function过程的调用Function过程的调用比较简单，它可以像使用vbVB的内部函数一样来调用Function过程。实际上，Function过程就是一个函数，它与内部函数并无什么区别，只不过内部函数由系统提供，而Function过程是由用户根据需要由自己定义的。【例7.2】设计求任意整数n的阶乘的函数，并计

7、算从3到9的阶乘之和。程序如下：PrivateSubForm_Load()ShowDimiAsInteger,sumAsLongFori=3To9sum=sum+fact(i)NextiPrint"阶乘之和为：";sumEndSubFunctionfact(xAsInteger)AsLongDimpAsLong,iAsIntegerp=1Fori=1Toxp=piNextifact=pEndFunction【例7.3】从键盘上输入任意一个数据，计算输出该数的平方根。程序如下：PrivateSubForm_Click()Dimmsg

8、,sqrnDimnAsDoublen=InputBox("请输入一个数据：")msg=n&"的平方根"sqrn=squareroot(n)SelectCasesqrnCase0msg=msg&"是0"Case1msg=msg&"是"&Sqr(n)C