VB教程第7章教案

《VB教程第7章教案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第7过程VB应用程序由若干个过程组成。过程保存在模块文件中。有三类模块：即窗体模块、标准模块和类模块。本章主要内容第7章过程退出通用过程参数传递过程的嵌套与递归调用变量的作用范围程序举例多窗体与SubMain过程Function过程Sub过程前面已经使用了很多过程，例如按钮事件过程、窗体装载事件过程等。过程是完成某种特殊功能的一组独立的程序代码。VB应用程序是由过程组成的。两大类过程：事件过程Sub过程通用过程Function过程事件过程是VB应用程序的主体通用过程是独立于事件过程之外，可供其他过程调用的程序段PrivateSubCommand1_Cl

2、ick()……EndSubPrivateSubForm_Load()……EndSub过程有两个重要作用：一是把一个复杂的任务分解为若干个小任务，可以用过程来表达，从而使任务更易理解，更易实现，将来更易维护；二是代码重用，使同一段代码多次复用。过程的作用过程调用示例把相同的任务编成相对独立的“子过程”当事件过程需要执行这个任务时，可使用调用语句(如Call)实行调用。子过程执行完后，会返回事件过程中调用语句Call的后续语句继续执行通用过程又分为Sub(子程序)过程和Function(函数)过程调用过程……CallSubA……CallSubA……Ca

3、llSubB……子过程SubA子过程SubB7.1通用过程例7.1使用Sub过程的示例1PrivateSubForm_Load()ShowCallmysub1(30)Callmysub2Callmysub2Callmysub2Callmysub1(30)EndSub程序运行结果PrivateSubmysub1(n)PrintString(n,"*")EndSubPrivateSubmysub2()Print"*";Tab(30);"*"EndSub7.1.1Sub过程例7.11.Sub过程定义格式：[Private｜Public｜Static]S

4、ub过程名([参数表])语句块[ExitSub]EndSub2.调用Sub过程有以下两种方法：(1)使用Call语句。格式：Call过程名(［实参表］)(2)直接使用过程名，格式：过程名［实参表］例如，调用名为mysub1的过程：Callmysub1(30)mysub130Sub过程的定义和调用因为计算5!和10!都要用到阶乘n!(n!＝1×2×3×…×n)所以把计算n!编成Sub过程采用Print直接在窗体上输出结果，程序代码：PrivateSubForm_Load()ShowDimyAsLong,sAsLongCallJc(5,y)s=

5、yCallJc(10,y)s=s+yPrint"5!+10!=";sEndSub程序运行结果：5!+10!＝3628920PrivateSubJc(nAsInteger,tAsLong)DimiAsIntegert=1Fori=1Tont=t*iNextiEndSub注意参数n及t的调用情况例7.2计算5!+10!例7.21.Function过程定义格式：[Private

6、Public

7、Static]Function函数名([参数表])[As数据类型]语句块［函数名＝表达式］［ExitFunction］EndFunction2.Functio

8、n过程的调用方法：一般采用直接调用的方法像使用VB内部函数一样，只需写出函数名和相应的参数即可例如：s=Max(a,b)PrintMax(s,c)7.1.2Function过程能从过程中直接返回一个值Functionmax(m,n)AsSingle……EndFunctionFunction过程返回值把求两个数中的大数编成Function过程，过程名为Max本例采用InputBox函数输入三个数，判断出最大数后采用Print直接输出在窗体上。PrivateSubForm_Load()ShowDimaAsSingle,bAsSingle,cAsSingl

9、eDimsAsSinglea=Val(InputBox("输入第一个数"))b=Val(InputBox("输入第二个数"))c=Val(InputBox("输入第三个数"))s=max(a,b)Print"最大数是:";max(s,c)EndSubFunctionmax(m,n)AsSingleIfm>nThenmax=mElsemax=nEndIfEndFunction例7.3输入三个数，求出它们的最大数例7.3调用调用通用过程(Sub/Function)过程可以保存在两种模块中：窗体模块(.frm)和标准模块(.bas)(1)在窗体模块中创建通用

10、过程：可以在代码窗口中直接键入来创建Sub过程选择“工具”菜单中的“添加过程”命令(2)在标准