VB计算机语言基础第五章--过程资料PPT课件

-,VB语言-过程,-,maincontents,子过程的定义与调用,函数过程的定义与调用,参数传递,重点,过程的递归调用,难点,变量的作用范围,-,验证哥德巴赫猜想：任一大于2的偶数都可写成两个质数之和。,-,过程（Procedure）是一组能够完成特定功能的代码，以一个名字来标识，用这个名字来调用。过程的两个重要作用：以大化小使程序具有清晰的模块化结构，便于多个程序员的协同工作。编写具有通用性的独立过程，便于重复调用，从而简化程序。过程分为：自定义子过程、函数过程、事件过程,-,自定义子过程：由程序员自己编写，用来求解特定重复任务的子过程。子过程的调用及返回：,5.1子过程的定义与调用,-,子过程的程序定义：Sub(形式参数表)ExitSub需要时提前退出子过程EndSub子过程的调用：使用Call关键字调用-Call过程名(实际参数表)例：callt(1,2)直接调用-过程名实际参数表例：t1,2,-,PrivateSubHello()定义名为Hello的无参数子过程MsgBox您好！五一节快乐！EndSubPrivateSubForm_Click()CallHello调用名为Hello的无参数子过程EndSub,例5.1无参数的“节日问候”通用子过程,-,PrivateSubCommand1_Click()CallHello(Text1,Text2,Text3)CallHelloText1,Text2,Text3EndSubPrivateSubHello(name1AsString,job1AsString,festivalAsString)DimaAsString,bAsStringa=您好！值此b=来临之际，向您和您的全家致以亲切的问候。MsgBoxname1cEndSubFunctionMaxValue(x!,y!)AsSingleMaxValue=IIf(xy,x,y)EndFunction,例5.3根据键盘输入的两个数值，调用MaxValue函数求得其中较大的一个,调用函数过程时应注意：函数过程的调用方式与标准函数相同，作为表达式中的一个部分被引用。引用时参数表必须放在括号内所使用的参数的个数、位置和类型必须与函数中的声明一致。,-,形式参数定义子过程和函数过程时，通常都会包括须从外部获取的参数，这些参数也称为形式参数。在过程被调用前，形式参数既不占有实际的存储空间，也没有值。实际参数在调用子过程或函数过程时，必须把要处理的数据提供给被调用的过程。这些数据称为实际参数，将实际参数传递给形式参数，由被调用的过程来处理。CallPost(6，8)实际参数SubPost(xAsSingle,yAsSingle)形式参数,5.3参数传递,-,参数的传递方式,按地址传递（ByRef）这是默认的参数传递方式。在被调用过程中对形式参数所做的任何修改，也就是对实际参数的修改。按值传递（ByVal）如果在过程定义时，形式参数前面用关键字ByVal界定，就是按值传递方式。被调用过程运行期间形式参数的任何变化，对实际参数不会产生任何影响。,-,PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSinglea=InputBox(第一个直角边的值：)b=InputBox(第二个直角边的值：)CallHypotenuse(a,b)Print两直角边分别为：;a;bEndSubPrivateSubHypotenuse(x!,y!)DimcAsSinglex=x2:y=y2c=Sqr(x+y)Print直角三角形斜边的值=;cEndSub,例5.4计算直角三角形的斜边,按地址传递（ByRef）,-,PrivateSubForm_Click()DimaAsSingle,bAsSingle,cAsSinglea=InputBox(第一个直角边的值：)b=InputBox(第二个直角边的值：)CallHypotenuse(a,b)Print两直角边分别为：;a;bEndSubPrivateSubHypotenuse(ByValx!,ByValy!)DimcAsSinglex=x2:y=y2c=Sqr(x+y)Print直角三角形斜边的值=;cEndSub,例5.4计算直角三角形的斜边,按值传递（ByVal）,-,数组参数只能按地址传递，而不能按值传递。在过程定义时，若以数组作为过程的参数，则形式参数表中的数组名后要有一对空的圆括号表示。例：PrivateSubsum(x()AsInteger)而在过程调用时，实际参数表中的数组可以只用数组名表示，圆括号可以省略。,数组作为参数传递,-,PrivateSubForm_Click()Dima%(9),s%Print数组各元素的值为：Fori=0To9a(i)=Int(Rnd*10)Printa(i);NextiPrintPrint“总和为：;sum(a)EndSub,例5.5利用sum子过程求数组各元素的和,Functionsum%(x%()Fori=LBound(x)ToUBound(x)sum=sum+x(i)NextiEndFunction,-,验证哥德巴赫猜想：任一大于2的偶数都可写成两个质数之和。,实例练习,-,分析：（1）取出从起始数至终止数的每个数i（2）对每一个i，取2至i/2的每一个数j，分别判断j和i-j是否同时为素数（3）如果同为素数，则输出,-,主过程：PrivateSubCommand1_Click()Dimi%,j%a=Val(Text1):b=Val(Text2)IfaMod20Thena=a+1Fori=aTobStep2NextiEndSub,-,函数过程:PublicFunctionPrimeMagic(a%)AsBooleanDimtAsBooleant=True定义并竖起标旗Fori=2ToSqr(a)IfaModi=0Then如果有一个i能整除at=False则倒下标旗，表示a不是一个素数ExitForEndIfNextiIft=TrueThen根据标旗，返回True或FalsePrimeMagic=TrueElsePrimeMagic=FalseEndIfEndFunction,-,5.4过程的递归调用,1)递归的概念在过程自身结构内部来调用自身，称为递归调用,2)递归的分类直接递归：一个过程在执行时直接调用过程本身间接递归：过程A在执行时调用过程B，而过程B又调用过程A,-,例：有如下子过程Sub1,SubSub1()EndSub,-,SubSub1()Y=Sub1(n)EndSub,进行如下形式的调用,SubForm_Click()CallSub1EndSub,SubSub1()Y=Sub1(n)EndSub,过程的嵌套调用,-,例5.6用递归的方法计算Fac(n)=n!分析：根据阶乘的定义改写成递归的形式：n!=n*(n-1)!(n-1)!=(n-1)*(n-2)!1!=1由此得到递归公式如下：注意：递归的结束条件为n=0或1时，n!=1,-,主调过程OptionExplicitPrivateSubForm_Click()DimF%,x%x=InputBox()F=Fac(x)Printx;!=;FEndSub,函数过程FunctionFac%(nAsInteger)Ifn=0Orn=1ThenFac=1ElseFac=n*Fac(n-1)EndIfEndFunction,-,Fac(4)=4*Fac(3),Fac(3)=3*Fac(2),Fac(2)=2*Fac(1),Fac(1)=1,Fac(2)=1*2,Fac(3)=1*2*3,Fac(4)=1*2*3*4,递推,回归,-,函数过程FunctionFac%(n%)Ifn=0Orn=1ThenFac=1ElseFac=n*Fac(n-1)EndIfEndFunction,思考：若缺少该语句，程序运行结果将如何？,-,使用递归算法必须要注意以下两点：设定递归结束条件及结束时的值能用递归形式表示，并且递归向结束条件发展,-,运行下面的程序，当单击窗体之后，窗体上显示内容是什么？,PrivateSubForm_Click()Test2EndSubPrivateSubTest(x%)x=x*2+1Ifx6ThenCallTest(x)EndIfx=x*2+1Me.PrintxEndSub,第一次调用,2,x,x=2*2+1=56,x=11*2+1=23,Printx,23,x=23*2+1=47,Printx,47,-,斐波那契数列问题,“如果1对兔子每月能繁殖1对小兔子，而每对小兔在它出生后的第3个月里，又能繁殖1对小兔子，假定在不发生死亡的情况下，由1对初生的兔子开始，1年后能繁殖成多少对兔子？”,函数表达式：,-,斐波那契数列问题求解,PrivateSubForm_Click()Printfibonacci(12)EndSubFunctionfibonacci(xasinteger)Ifx=1orx=2thenfib=1Elsefibonacci=fibonacci(x-1)+fibonacci(x-2)EndIfEndFunction,-,Dim语句自动变量作用范围取决于其声明的位置Static语句静态变量作用范围只在于它定义的过程中，但过程结束后，变量值保存Private语句模块级变量只能在窗体/模块的通用声明段声明（过程外），作用范围是窗体/模块中的所有过程Public语句全局变量只能在窗体/模块的通用声明段声明（过程外），变量有效范围从声明点算起，生存期是整个应用程序,5.5变量的作用范围,-,VisualBasic应用程序的模块化结构,应用程序工程文件（.vbp）,窗体模块（.frm）文件,类模块（.cls）文件,标准模块（.bas）文件,事件过程（sub）,子过程（sub）,函数过程（Function）,子过程（sub）,函数过程（Function）,-,-,DimxAsInteger,yAsIntegerPrivateSubCommand1_Click()DimResultAsSinglex=10:Result=x-yPrintResultEndSubPrivateSubCommand2_Click()DimResultAsSingley=20:Result=x+yPrintResultEndSub,思考：先单击Command1，再单击Command2，输出？分析：先单击Command1X=10Result=10-0=10再单击Command2，Y=20Result=10+20=30,思考：先单击Command2，再单击Command1，输出？,-,通过文本框输入若干个值，每输入一个按Enter键，直到输入的值为100，输入结束，求输入数的平均值。,PrivateSubText1_Ke