4.4过程和函数.pptx

VB应用程序是按模块化的方式组成的,程序模块分为过程和函数两种。(1)过程中的代码可以被重复调用,但不返回值。事件处理过程定义格式为:Sub对象名_标准事件名(参数表)语句块EndSub(2)函数是类似于过程的另一种程序模块,不同之处是函数执行完成后,可以返回处理结果,供程序的后续部分继续处理。自定义函数定义格式:Function函数名(参数表)As类型名语句块EndFunction,【例1】判断某年是否为闰年的VB程序如下,在程序中划线处填入正确的语句。PrivateSubCommand1_Click()DimxAsIntegerx=Val(Text1.Text)Label1.Caption=EndSubFunctionleapyear(yearAsInteger)AsStringIfyearMod4=0AndyearMod1000OryearMod400=0Thenleapyear=是闰年!Elseleapyear=不是闰年!EndIfEndFunction,答案:leapyear(x)解析:本题考查的是关于自定义函数的知识点。leapyear是个自定义函数,参数是一个整数year,返回值是字符串。该函数功能是判断year是否为闰年,如果是闰年,返回值为“是闰年!”,否则返回值为“不是闰年!”Command1_Click是事件处理过程,其中x是用户输入的年份,label1上显示x是否为闰年,所以判断x是否为闰年可以调用函数leapyear,参数是x,即leapyear(x)。,【例2】有如下VisualBasic程序:Functionfx(aassingle,bassingle,cassingle)asstringifb2-4*a*c=0thenf1=(-b+sqr(b2-4*a*c)/(2*a)f2=(-b-sqr(b2-4*a*c)/(2*a)fx=根1=&f1&,根2=&f2elsefx=方程无实根endifEndFunctionPrivateSubCommand1_Click()dimaassingle,bassingle,cassinglea=val(text1.text)b=val(text2.text)c=val(text3.text)label4.caption=fx(a,b,c)EndSub,运行程序后,在文本框text1、text2、text3中分别输入1、3、2,单击按钮Command1,则在label4中显示()A.-1,-2B.-2,-1C.根1=-1,根2=-2D.根1=-2,根2=-1答案:C解析:自定义函数fx的功能是计算一元二次方程的根,调用时给定3个值,根返回的形式是“根1=*,根2=*”。,在一个子程序(过程或函数)的定义中直接或间接地调用该子程序本身(即自己调用自己)的算法,称为递归算法。,【例3】以下自定义函数用以计算n的阶乘n!,即计算前n个自然数的乘积:Functionf(nAsInteger)AsIntegerIfn=1Thenf=1Elsef=n*f(n-1)EndIfEndFunction该自定义函数采用的算法是()A.枚举算法B.解析算法C.递归算法D.查找算法,答案:C解析:程序中f是自定义函数,函数内部语句“f=n*f(n-1)”调用函数自身,因此该自定义函数采用的算法是递归算法。,【例4】用递归算法求1n个连续自然数的和的VB程序段代码如下。Functionsum(nAInteger)AInteger求1n个连续自然数的和Ifn=1Thensum=1Elsesum=EndIf,EndFunctionPrivateSubCommand1_Click()n=text1.texttext2.text=str(sum(n)EndSub划线处应填入的语句是()A.