vb程序设计 第八章

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

1、VisualBasic程序设计教程ptc.imust.cn内蒙古科技大学实践训练中心第八章过程8.1过程的定义与调用VB的过程：⑴系统提供的内部函数过程，其中，事件是构成VB应用程序的主体，应用设计基本上是对事件过程进行设计；⑵用户根据应用的需要而设计的过程；VB的过程分类：⑴以”Sub”保留字开始的子过程；⑵以“Function”保留字开始的函数过程；⑶以“Property”保留字开始的属性过程；⑷以“Event”保留字开始的事件过程；8.1过程的定义与调用8.1.1Sub过程的定义与调用用户自定义子过程通常来完成一个特定的功能，其名字可由用户根据自己的习惯而

2、定义。VB的事件过程只在用户触发该事件后启动，而用户自定义的子过程只有在被其他过程调用时才启动。1、用户自定义子过程的一般格式[Static][Private

3、Public]Sub子过程名[(参数列表)]语句块[ExitSub]语句块EndSub说明：⑴格式中“Sub子过程名”和”EndSub“不可缺；子过程名的命名规则与变量命名规则相同；8.1过程的定义与调用8.1.1Sub过程的定义与调用⑵Static：在过程名之前使用Static，表示过程中的局部变量都是静态变量。当程序退出该程序时，局部变量的值仍然保留作为下次调用的初值。Static对数组变量也有效，但

4、对动态变量则无法转换为静态变量；⑶Private：表示该过程为私有过程，只有本模块中的其他过程访问，不能被其他模块中的模块访问；⑷Public：表示该过程为公有过程，即可以被程序中所有模块调用。本窗体和其他模块均可调用，但过程名必须是唯一的，否则在过程名前加上该过程所在的窗体名或模块名。⑸参数列表：其他过程与本过程进行参数传递和交换的形式参数，当参数个数大于等于2时，参数之间用”，”隔开；⑹ExitSub：在过程任意位置终止过程的运行而退出过程而使用的语句；⑺EndSub：过程结束标识，用来正常终止过程；8.1过程的定义与调用8.1.1Sub过程的定义与调用⑻过

5、程参数的传递默认方式为引用(地址)传递(ByRef)，若只传参数(实参)的值则必须将形式参数说明为Byval，格式如下：Byval变量名或数组名()[As数据类型]⑼过程内部不能再定义其他过程，可以调用其他合法的过程，事件过程中也不允许定义子过程。subcommand_click()calltest()endsubstaticsubtest()dima(2)asintegera(0)=a)(0)+1a(1)=a(1)+1printa(0);a(1)endsub8.1过程的定义与调用8.1.1Sub过程的定义与调用定义过程的方式：⑴手工方式：在过程、事件代码窗口中

6、，编写事件程序：sub过程名([参数列表])…EndSub⑵系统方式①进入模块代码窗口：系统菜单”工程“－>”添加”－>“新建”，则新建一个模块，在标准模块中填写子过程代码；②系统菜单”工具“－>”添加过程“，确定子过程的名称以及类型后，即回到模块的代码窗口；8.1过程的定义与调用8.1.1Sub过程的定义与调用2、子过程调用⑴Call过程名[(实参列表)]；如：calltext(12,”abc”)⑵过程名[实参列表]；如：test12,”abc”例[8-1]求n!解题思路：在标准模块中定义一个子过程n，用于实现求任意正整数的阶乘。PublicSubn(aAsI

7、nteger)DimiAsIntegerDimfAsDoublef=1Fori=1Toaf=f*iNextForm1.Label1.Caption=Str(a)&"!的阶乘的值为："&Str(f)EndSubCalln(Val(Text1.Text))8.1过程的定义与调用8.1.1Sub过程的定义与调用2、子过程调用⑴Call过程名[(实参列表)]；如：calltext(12,”abc”)⑵过程名[实参列表]；如：test12,”abc”例[8-2]给出矩形的长和宽，求矩形的面积。解题思路：定义一个过程area，计算矩形的面积。PrivateSubarea(a

8、AsSingle,bAsSingle)DimsumAsDoublesum=a*bForm1.Label3.Caption="矩形面积为："&Str(sum)EndSubCallarea(Val(Text1.Text),Val(Text2.Text))8.1过程的定义与调用8.1.2Function过程的定义与调用函数过程(Function)与子过程一样，可将一组完成特定功能的程序代码组织起来，作为一个相对独立的过程使用；但子过程没有值的返回，函数过程有值的返回。1、函数过程的定义[Static][Public][Private]Function函数过程名[(参数

9、列表)][As类型]语句