本章主要内容通用过程su

本章主要内容通用过程su

ID:5381215

大小:810.00 KB

页数:58页

时间:2017-11-09

本章主要内容通用过程su_第1页
本章主要内容通用过程su_第2页
本章主要内容通用过程su_第3页
本章主要内容通用过程su_第4页
本章主要内容通用过程su_第5页
资源描述:

《本章主要内容通用过程su》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、第7过程本章主要内容通用过程Sub过程/Function过程参数传递过程的嵌套与递归调用变量的作用范围多窗体与SubMain过程程序举例第7章过程VB应用程序是由过程组成的,过程是完成某种特殊功能的一组独立的程序代码。两大类过程。事件过程Sub过程通用过程Function过程事件过程是当某个事件发生时,对该事件作出响应的程序段,它是VB应用程序的主体通用过程是独立于事件过程之外,可供其他过程调用的程序段过程调用示例把相同的任务编成相对独立的“子过程”当事件过程需要执行这个任务时,可使用调用语句(如Call)实行调用。子过程执行完后,会返回事

2、件过程中调用语句Call的后续语句继续执行通用过程又分为Sub(子程序)过程和Function(函数)过程调用过程……CallSubA……CallSubA……CallSubB……子过程SubA子过程SubB7.1通用过程例7.1使用Sub过程的示例1PrivateSubForm_Load()ShowCallmysub1(30)Callmysub2Callmysub2Callmysub2Callmysub1(30)EndSub程序运行结果PrivateSubmysub1(n)PrintString(n,"*")EndSubPrivateSubmysub2()Prin

3、t"*";Tab(30);"*"EndSub7.1.1Sub过程Form_Load()事件过程Callmysub1(30)Callmysub2Callmysub2Callmysub2Callmysub2Callmysub1(30)Mysub1过程Mysub2过程调用过程在上述事件过程Form_Load()中,通过Call来分别调用两个Sub过程在Sub过程mysub1(n)中,n为参数(也称形参),当调用过程(即Form_Load())通过Callmysub1(30)(30称为实参)调用时,就把30传给n,这样调用后就输出30个“*”号过程mysub2()不带参数,其

4、功能是输出左右两边的“*”号定义格式:[Private|Public|Static]Sub过程名([参数表])语句块[ExitSub] EndSub说明:·局部(Private)过程、全局(公用,Public)过程和静态(Static)过程·参数表定义格式:[ByVal

5、ByRef]变量名[()][As数据类型]…ByVal表示该参数按值传递,ByRef表示该参数按地址传递·通过参数表传送参数Sub过程可以获取调用过程传送的参数,也能通过参数表的参数,把计算结果传回给调用过程1.Sub过程的定义Sub过程可以保存在两种模块中:窗体模块(.frm)和标准模块(.b

6、as)可以在代码窗口中直接键入来创建Sub过程选择“工具”菜单中的“添加过程”命令2.Sub过程的建立事件过程是通过事件驱动和由系统自动调用的,而Sub过程则必须通过调用语句实行调用调用Sub过程有以下两种方法:(1)使用Call语句。格式:Call过程名([实参表])(2)直接使用过程名,格式:过程名[实参表]例如,调用名为SubCal的过程:CallSubCal(10)SubCal103.Sub过程的调用PrivateSubForm_Load()ShowPrint"VB的基本特点是:"CallSub_ContPrint"面向对象的可视化编程"CallSub

7、_ContPrint"事件驱动的编程机制"CallSub_ContPrint"结构化的设计语言"EndSub在事件过程Form_Load()中,有三处调用Sub过程Sub_Cont()PrivateSubSub_Cont()DimrespAsStringDoWhileTrueresp=InputBox("是否继续(y/n)?")IfUCase(resp)="N"ThenEndIfUCase(resp)="Y"ThenExitDoLoopEndSub例7.2使用Sub过程示例2因为计算5!和10!都要用到阶乘n!(n!=1×2×3×…×n)所以把计算n!编成Sub过程采

8、用Print直接在窗体上输出结果,程序代码:PrivateSubForm_Load()ShowDimyAsLong,sAsLongCallJc(5,y)s=yCallJc(10,y)s=s+yPrint"5!+10!=";sEndSub程序运行结果:5!+10!=3628920PrivateSubJc(nAsInteger,tAsLong)DimiAsIntegert=1Fori=1Tont=t*iNextiEndSub注意参数n及t的调用情况例7.3计算5!+10!允许用户自定义函数过程(又称Function过程)1.定义Function过程可

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。