vb标准课时第08章(10学时)

《vb标准课时第08章(10学时)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第八章过程8.2Function函数定义及调用8.4递归过程8.3参数的传递8.1SUB过程及其调用8.5变量的作用域8.6程序示例8.7实验如同常量的定义一样，有时不仅仅是几个数字反复出现在程序中，而且是很多段代码在做几乎同样的事，如果有一些通用的代码可供调用的话，那么程序就会简练得多，而且更为清晰，这就是过程与函数。Vb中使用的过程分为子程序过程、函数过程和属性过程。§8过程过程子程序过程（SUB）函数过程（FUNCTION）属性过程（PROPERTY）事件过程通用过程窗体过程控件过程§8.1SUB

2、过程及其调用通用过程过程事件过程（1）打开代码窗口（双击控件或窗体，单击查看代码）—选择对象和事件—输入代码——保存1、建立事件过程加入对发生事件进行处理的代码的过程，称为事件过程。§8.1.1事件过程（2）“工具”菜单——“添加过程”（如下图）——输入代码——保存（1）控件事件过程形式：§8.1.1事件过程PrivateSub控件名_事件名([argumentlist])语句块EndSub说明：（1）控件名必须与窗体中某个控件相匹配，否则为通用过程且该过程也属于私有过程。（2）argumentlist

3、指的是参数列表，所谓参数，就是指过程操作所需的指导条件。有无参数由事件本身决定，用户不可以自行添加。2、定义事件过程PrivateSubcmd1_Click()endEndSubPrivateSubForm_事件名([argumentlist])语句块EndSub2）窗体事件过程形式：§8.1.1事件过程说明：（1）Private表明该过程的使用范围是模块级的，在该窗体之外是不可见的。（2）不论定义的窗体名称为什么，均用Form或MIDFORM（多文档界面窗体）表示。（3）事件由VB提供。注意部分事件的

4、发生顺序：Initialize、Load、Activate、GotFocus事件的发生顺序是依次的。如有一窗体名为f1，则可以有如下代码：PrivateSubForm_Activate()L2.ForeColor=RGB(0,255,255)EndSub例题§8.1.1事件过程演示引例1：编程时经常要用到两个数的交换，可以将其编写成过程。§8.1.2通用过程将多次被重复使用的程序段设计成一个具有一定功能的独立程序段，即为通用过程。§8.1.2通用过程1、建立通用过程（1）打开代码编辑器窗口——选择工具菜

5、单——选择添加过程（2）在代码编辑器窗口中选择“通用——声明”形式如下：[Private/Public][Static]Sub过程名（[参数列表]）[局部变量和常量声明]语句块[ExitSub]语句块EndSub2.通用过程的定义:§8.1.2通用过程PublicSubswap(x,y)DimtAsIntegert=x:x=y:y=tEndSub例说明：（1）[Private/Public]可缺省，若缺则系统默认为Public。Static如果不省则指定过程中的局部变量为“静态”变量。（2）过程名命名规

6、则和变量名相同，且不能重名。（3）参数列表中的参数是形式参数，可以是变量名或数组名（此时要加（）），参数可以省略，但是外层（）不可省，若有多个参数，则用逗号分开。（4）过程体中ExitSub可以有多个，执行到此语句，立即退出该过程。Sub过程不可以嵌套。§8.1.2通用过程3.SUB过程调用§8.1.2通用过程格式1：CALL过程名[（实参表）]格式2：过程名[实参1，[实参2，……]]说明：（1）过程名是被调用过程的名字，当调用程序执行到此代码时，VB将开始执行被调用过程。（2）实参是传送给被调用过程

7、的变量、常数或表达式。实参的个数和类型、顺序应与被调过程的形参相匹配，且个参数之间应用逗号分隔。对于格式1，若被调过程无参数，则（实参表）可以省略。而格式2，不论是否有参数，实参列表均不需要加括号。例题§8.1.2通用过程若在应用程序中用“PrivateSubSub1(XAsInteger,YAsSingle)”定义了子程序Sub1，调用程序中的变量I,J均为Integer型，则正确调用子程序Sub1的Call语句是______。①CallSub1(I,J)②CallSub1(3.1415,I)③Cal

8、lSub1(3.14,234)④CallSub1("245","231.5")A.①③B.③④C.①②③D.无例1：调用两数交换过程§8.1.2通用过程PublicSubswap(x,y)DimtAsIntegert=x:x=y:y=tEndSubPrivateSubCommand2_Click()DimaAsInteger,bAsIntegera=Val(Text2.Text):b=Val(Text3.Text)callswap(a,b)