第五章过程.docVIP

第五章 过程 教学目标：通过讲授和学生的动手练习，使学生了解VB的通用过程（子程序）的用法。 教学类型：在多媒体教室直观讲授，引导学生进行简单程序设计操作。加深对本次课内容的理解。 教学内容：SUB过程，FUNCTION过程，过程的调用、参数传递，递归方法。 讲授40分钟 5.1 通用过程 “通用过程”与过去常用的“事件过程”不同，它是一种独立的程序模块或子程序，能够被其它程序调用。Visual Basic 6.0中的通用过程有Sub过程和Function过程。 一、Sub过程 1、Sub过程语句 格式： [Static][Private][Public] Sub 过程名 [([ByVal|ByRef] 变量名[()][As 类型]......)][Exit Sub] End Sub 说明： Static—说明过程中的变量是“局部”的，每次调用过程时，变量值不变。 Private—说明过程中的变量是“私有”的，只能在本模块中使用。 Public—说明过程中的变量是“全局”的，可在程序中的任何地方调用。 过程名—是合法的变量名或数组名，命名规则与变量的命名规则相同。 [BrVal]变量名 [As 数据类型]，通过参数可以在子程序被调用时向子程序传递数据。参数的个数可以是零，也可以是多个，参数之间以逗号分隔。[ByVal | ByRef] 为子程序调用的参数传递方式：两种方式只取一种，当方式省略时，为传址调用方式。 ??????ByVal 为传值调用（By Value）； ??????ByRef 为传址调用（By Reference）；变量名[( )（）][As 类型]定义变量名称及其类型，变量命名与以前所述变量命名规则相同，圆括号省略时为一个变量传递数据，否则为整个数组变量传递数据。变量的类型可以是VB的各种数据类型、自定义型以及对象类型，省略时为不定型。 Exit Sub在子程序中可以用此语句提前离开子程序。 End Sub为子程序的结束边界。 递归调用子程序可以递归调用，即在定义子程序的结构中可以调用该子程序，利用自身调用来完成一项给定的任务。但是，这一功能有可能导致堆栈的溢出。除了要合理的设计退出子程序的功能外，通常在递归的子程序中不使用Static关键字。Sub过程。 Static Sub JC(n As Integer) t = 1 For i = 1 To n t = t * i Next i MsgBox 阶乘值为： t End Sub Private Sub Form_Click() Dim x As Integer x = InputBox(输入X的值：) JC x End Sub 2、Sub过程的建立和调用 （1）建立方法 ①若建立全局性的Sub过程，则要建立在标准模块内 选择“工程”菜单→“添加模块” →在对话框中点击“打开” →在窗体中输入和编辑Sub过程语句。 例子：将上面的Sub过程语句编辑在标准模块内。 ②可将Sub过程建立在窗体的“通用—声明”部分。 例子：将上面的Sub过程语句编辑在Form1内。 （2）调用方法 调用Sub过程的语句有两种形式： 第一种形式：Call 过程名(实际参数表) 例子：在窗体模块内编一个计算机自然数和的Sub过程，通过Click事件进行调用。 Static Sub s1(n As Integer) t = 0 For i = 1 To n t = t + i Next i MsgBox 自然数的和为： t End Sub Private Sub Form_Click() Dim x As Integer x = InputBox(输入X的值：) Call s1(x) End Sub 第二种形式：过程名 实际参数表 例子：编一个计算长方体体积的Sub过程，Sub过程代码编辑在标准模块内。在窗体模块内调用。 Static Sub S2(a, b, c) t = a * b * c Form1.Label1.Caption = 长方体体积： + Str$(t) End Sub Private Sub Form_Click() x = InputBox(输入长方体的长度值：) y = InputBox(输入长方体的宽度值：) z = InputBox(输入长方体的高度值：) S2 x, y, z End Sub 二、 Function过程 1、Function过程语句 （1）格式： [Static][Private][Public] Function过程名 [参数表][As 数据类型] 语句块 [Exit Sub] End Sub （2）说明： S