子程序与函数

《子程序与函数》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第9章子程序与函数《VB6.0程序设计》包头职业技术学院计算机与信息工程系本章内容提要9.1子程序19.2过程29.3内置函数39.4综合实例4包头职业技术学院计算机与信息工程系9.1子程序9.1子程序对于日常工作来说，可以把复杂的工作分成由多个小工作来组成，然后逐步完成各个小工作。编写应用程序也可以如此，可以把整个程序分解成各个子程序。程序其他部分可以调用这个子程序而无需重新编写代码。如果程序中有多处要使用相同代码段，这时就可以编写一个子程序。子程序的使用大大提高了代码的可重用性，简化了编程任务，并使程序更具有可读性。运用子程序还可以把大的程序分成相对独立的子程序，以便于

2、调试和改正应用程序中的错误。包头职业技术学院计算机与信息工程系9.2过程当创建较多或较大的程序时，常会遇到在一个或多个程序的几个地方需要多次使用相同代码块的情况。过程实质上是一个独立的代码段，它通常供别处的程序代码调用来执行某一特定任务，执行完后再返回到它们的调用处继续执行后续程序。编程的一个主要内容就是定义和调用自定义的过程。用过程编程有几个显著的优点：（1）过程一经编好并调试成功，就可以被任意调用。（2）可使程序模块化，易于调试，并使代码的组织结构适应程序的功能结构，这就使得跟踪和消除应用程序的逻辑错误变得容易。（3）可以变成增强和扩展VB的构件，比如一个程序中的过程，

3、往往不必修改或只需稍作改动，便可以成为另一个程序的构件。调用程序与被调用过程之间的数据交换通过参数的传递来实现。包头职业技术学院计算机与信息工程系9.2过程VB中的过程分为事件过程和通用过程两大类。事件过程是当发生某个事件时，对该事件作出响应的程序段，如：Command1_Click（）、Text1_LostFocus（），它必须是作用于某个对象的，是VB应用程序的主体。通用过程和具体的对象没有内在关联，通常又分为下列几种：（1）Sub过程，又叫子过程或子程序，它不返回值。（2）Function过程，又叫函数过程，它有返回值。包头职业技术学院计算机与信息工程系9.2过程9.

4、2.1子程序1．Sub过程的定义和调用Sub过程的语法如下：[Private

5、Public][Static]Sub过程名（[参数列表]）[局部变量和常数声明]语句块[ExitSub]语句块EndSub说明：过程是以Sub开头，以EndSub结束的一段程序，在这两句之间是语句块，称为“过程体”或“子程序体”。包头职业技术学院计算机与信息工程系9.2过程例9-1下面是一个例子，当使用不同的参数值调用此过程，会出现不同的消息框。PrivateSubmsg（aAsInteger）sname="超越系统"SelectCaseaCase1MsgBox"数据错误，请注意！",vbOKOn

6、ly+vbInformation,sname+"报错"Case2MsgBox"是否继续？",vbYesNo+vbQuestion,sname+"提问"EndSelectEndSub包头职业技术学院计算机与信息工程系9.2过程2．创建Sub过程在VB中可通过如下两种方法创建：方法1：（1）打开标准模块代码窗口或窗体模块的代码窗口，将光标放置在要插入过程的位置。（2）选择菜单“工具”→“添加过程”，打开“添加过程”对话框，如图9-1所示。（3）输入过程名称，如果有参数在此可一并输入，如PrintMsg(MsgasString)，选中相应的单选框，如此处选中“子程序”单选框，再选

7、中相应的范围，单击“确定”按钮，就建立好一个没有语句块的过程了。在过程中写入过程语句即可。此方法同样适用于函数过程、属性过程等的创建。包头职业技术学院计算机与信息工程系9.2过程方法2：在模块对应的代码编辑窗口中，将光标放置在要插入过程的位置；在对象框中选择“通用”，输入类似PublicSubfindtext（）的过程开头，按回车键，系统自动加上EndSub。例9-2编写一个打印字符串的过程。PublicSubPrintMsg（Msg$）ClsPrintMsg$EndSub图9-1“添加过程”对话框包头职业技术学院计算机与信息工程系9.2过程3．调用Sub过程（1）用Cal

8、l语句调用Sub过程。格式：Call过程名[（实际参数）]说明：如果过程没有参数，则参数和括号可以省略。（2）把过程名作为一个语句来使用。格式：过程名[实际参数]说明：在这种格式中，参数不能使用括号，过程名和参数之间使用空格分隔，参数和参数之间使用逗号分隔，如果过程没有参数，则不需要参数。包头职业技术学院计算机与信息工程系9.2过程例9-3调用上面例9-1中的Msg过程。PrivateSubCommand1_Click（）Msg1EndSub调用上面例9-2中的PrintMsg过程。CallPrintMsg（“Pr