vb第六章过程

第六章过程（8学时）一、教学内容本章讨论VB6.0中Sub子过程和Function过程的定义与调用以及过程调用中数据传递的方式。二、目的要求通过对本章的学习，使学生掌握子过程(Sub过程的定义、调用)；掌握函数过程（Function过程）的定义、调用；了解值传递、地址传递的传递规则。三、教学重点与难点教学重点：1.Sub过程及Function过程的定义与调用2.过程调用中数据的传递。教学难点：过程调用中数据的传递。四、教学方法课堂教学为主。适当提问，加深学生对概念的理解。6.1Sub过程（2学时）一、教学内容本节介绍事件过程和通用过程的区别，通用过程的定义以及通用过程的调用。二、目的要求了解事件过程和通用过程的区别，掌握通用过程的定义以及通用过程的调用。三、教学重点与难点教学重点：通用过程的定义以及通用过程的调用。教学难点：通用过程的调用四、教学方法课堂教学。五、教学过程在VB中，的Sub子过程分为：事件过程和通用过程6.1.1事件过程（1）窗体事件的语法PrivateSubForm_事件名(参数列表)＜语句组＞EndSub（2）控件事件的语法PrivateSub控件名_事件名(参数列表)＜语句组＞EndSub6.1.2通用过程（Sub过程）的定义1.子过程的定义形式如下：[Public|Private][Static]Sub子过程名([形参表])局部变量或常数定义＜语句组＞[ExitSub]＜语句组＞EndSub说明：（1）子过程名：命名规则与变量名规则相同。子过程名不返回值，而是通过形参与实参的传递得到结果，调用时可返回多个值。（2）形式参数列表：形式参数通常简称“形参”，仅表示形参的类型、个数、位置，定义时是无值的，只有在过程被调用时，虚实参结合后才获得相应的值。（3）过程可以无形式参数，但括号不能省。（4）参数的定义形式：[ByVal｜ByRef]变量名[()][As类型][,…]，ByVal表示当该过程被调用时，参数是按值传递的；缺省或ByRef表示当该过程被调用时，参数是按地址传递的。提问1：如何编写一个交换两个整型变量值的子过程。2.通用过程的建立6.1.3过程的调用1、用Call语句调用Sub过程格式：Call子过程名(参数列表)2、把过程名作为一个语句来使用格式：子过程名[参数列表]说明：（1）参数列表称为实参或实元，它必须与形参保持个数相同，位置与类型一一对应。（2）调用时把实参值传递给对应的形参。其中值传递（形参前有ByVal说明）时实参的值不随形参的值变化而改变。而地址传递时实参的值随形参值的改变而改变。（3）当参数是数组时，形参与实参在参数声明时应省略其维数，但括号不能省。（4）调用子过程的形式有两种，用Call关键字时，实参必须加圆括号括起，反之则实参之间用“，”分隔。提问2：如何调用提问1写出的过程？七、作业P154习题6.1、6.106.2Function过程（2学时）一、教学内容：本节将介绍Function过程的定义以及调用过程二、教学重点：Function过程的定义以及调用过程三、教学难点：Function过程的调用过程四、教学方法：课堂教学为主，并适当提问、收集学生学习情况。五、教学要求：掌握Function过程的定义以及调用过程六、教学过程：VisualBasic函数分为内部函数和外部函数，外部函数是用户根据需要用Function关键字定义的函数过程，与子过程不同的是函数过程将返回一个值。6.2.1函数过程（Function过程）的定义[Public|Private][Static]Function函数名([参数列表])[As类型]局部变量或常数定义语句块[函数名=返回值][ExitFunction]语句块[函数名=返回值]EndFunction说明：（1）函数名：命名规则与变量名规则相同。（2）在函数体内，函数名可以当变量使用，函数的返回值就是通过对函数名的赋值语句来实现的，在函数过程中至少要对函数名赋值一次。（3）AS类型：是指函数返回值的类型，若省略，则函数返回变体类型值（Variant）。（4）ExitFunction：表示退出函数过程，常常是与选择结构（If或SelectCase语句）联用，即当满足一定条件时，退出函数过程。（5）形参数列表：形参的定义与子过程完全相同。提问1：如何编写一个编写一个求圆面积的函数？6.2.2函数的调用调用形式如下：函数名（实参列表）说明：在调用时实参和形参的数据类型、顺序、个数必须匹配。函数调用只能出现在表达式中，其功能是求得函数的返回值。提问2：如何调用求圆面积的函数？七、作业P154习题6.3－6.66.3参数的传递（2学时）一、教学内容：本节简要地介绍了形参与实参，可选参数与可变参数，数组和记录参数的传递，对象参数的传送，重点讲解了参数的传递方式二、教学重点：形参与实参、参数的传递方式。三、教学难点：参数的传递方式。四、教学方法：课堂教学为主，注意结合例子进行讲解。五、教学要求：掌握形参与实参的定义，可选参数与可变参数的定义，数组和记录参数的传递方式，对象参数的传送方式，尤其是参数的两种传递方式。六、教学内容：VisualBasic中不同模块（过程）之间数据的传递有两种方式：通过过程调用实参与形参的结合实现；使用全局变量来实现各过程中共享数据。6.3.1形参与实参1、形式参数是指在定义通用过程时，出现在Sub或Function语句中的变量名后面园括号内的数，是用来接收传送给子过程的数据，形参表中的各个变量之间用逗号分隔。2、实际参数实际参数是指在调用Sub或Function过程时，写入子过程名或函数名后括号内的参数，其作用是将它们的数据（数值或地址）传送给Sub或Function过程与其对应的形参变量。6.3.2参数传递（虚实结合）参数传递指主调过程的实参（调用时已有确定值和内存地址的参数）传递给被调过程的形参，参数的传递有两种方式：按值传递、按地址传递。形参前加“ByVal”关键字的是按值传递，缺省或加“ByRef”关键字的为按地址传递。传址与传值传址：形参得到的是实参的地址，当形参值的改变同时也改变实参的值。传值：形参得到的是实参的值，形参值的改变不会影响实参的值。6.3.3数组作过程的参数VisualBasic允许把数组作为实参传送到过程中。数组作参数是通过传地址方式传送。在传送数组时，除遵守参数传送的一般规则外，还应注意以下几点：1．为了把一个数组的全部元素传送给一个过程，应将数组名分别写入形参表中，并略去数组的上下界，但括号不能省略。PrivateSubSort(a()Assingle)……EndSub其中形参“a()”即为数组。2．被调过程可通过Lbound和Ubound函数确定实参数组的上、下界。3．当用数组作形参时，对应的实参必须也是数组，且类型一致。4．实参和形参结合是按地址传递，即形参数组和实参数组共用一段内存单元。【例6.1】定义了实参数组b(1to8)，给它们赋了值，调用Sort()函数过程的形式如下：Sortb()或CallSort(b())实参数组后面的括号可以省略，但为便于阅读，建议一般不要省略为好。调用时形参数组a和实参数组b虚实结合，共用一段内存单元，如图所示。因此在Sort()过程中改变数组a的各元素值，也就相当于改变了实参数组b中对应的元素的值，当调用结束时，形参数组a成为无定义。b(1)b(2)b(3)b(4)b(5)b(6)b(7)b(8)a(1)a(2)a(3)a(4)a(5)a(6)a(7)a(8)参数为数组时虚实结合示意图【例6.2】在窗体层声明数组：DimValues()AsInteger编写如下通用过程：StaticSubchangeArray(Min%，Max%，p()AsInteger)Fori%=Min%ToMax%p(i%)=i%^3Nexti%EndSubStaticSubPrintArray(Min%，Max%，p()AsInteger)Fori%=Min%ToMax%Printp(i%)Nexti%EndSub编写如下事件过程：SubForm_Click()ReDimValues(1To5)AsIntegerCallchangeArray(1，5，Values())CallPrintArray(1，5，Values())EndSub【例6.3】编写一个Function过程，求数组的最大值。求数组最大值的通用过程如下：PrivateFunctionFindMax(a()AsInteger)DimStartAsInteger，FinishAsIntegerDimiAsIntegerStart=Lbound(a)Finish=Ubound(a)Max=a(Start)Fori=StartToFinishIfa(i)MaxThenMax=a(i)NextiEndFunction该过程先求出数组的上界和下界，然后从整个数组中找出最大值。过程中的数组是一个形式参数，可以在下面的事件过程中调用该过程：SubForm_Click()ReDimb(4)AsIntegerb(1)=30b(2)=80b(3)=234b(4)=874c=FindMax(b())PrintcEndSub执行程序后，单击窗体，输出结果为：874。6.3.5对象参数的传送VisualBasic还允许用对象（窗体或控件）作为通用过程的参数。其格式为：Sub过程名（形参表）语句块[ExitSub]语句块EndSub“形参表”中形参的类型通常为Control和Form。注意，在调用含有对象的过程时，对象只能通过传地址方式传送。因此在定义过程时，不能在其参数前加关键字ByVal。1.窗体参数的传送2.控件参数的传送【例6.5】编写一个通用过程，在过程中设置字体属性，并调用该过程显示指定的信息。SubFontout(TestCtrl1AsControl，TestCtrl2AsControl)TestCtrl1.FontSize=16TestCtrl1.FontName=隶书TestCtrl1.FontItalic=TrueTestCtrl1.FontBold=TrueTestCtrl1.FontUnderline=FalseTestCtrl2.FontSize=18TestCtrl2.FontName=TimesnewRoman”TestCtrl2.FontItalic=FalseTestCtrl2.FontUnderline=FalseEndSub上述过程有两个参数，其类型均为Control。该过程用来设置控件上所显示的文字的各种属性。为了调用该过程，在窗体上建立两个文本框，然后编写如下的事件过程：PrivateSubForm_Load()Text1.Text=欢迎光临Text2.Text=中国武汉光谷EndSubPrivateSubForm_Click()FontoutText1,Text2EndSub运行上面的程序，单击窗体，执行结果如P150页图6.9所示。七、作业P154习题6.7－6.96.4过程的作用域（2学时）一、教学内容本节介绍代码的模块以及过程的作用域二、目的要求了解VB6.0中的三个模块的功能与结构，掌握过程的作用域。三、教学重点与难点教学重点：过程的作用域教学难点：过程的作用域四、教学方法课堂教学。五、教学过程6.4.1代码的模块一般来说，VB应用程序由窗体模块、标准模块和类模块组成。这三个模块中都可以包含声明和过程，它们形成了工程的一种模块层次结构，既便于较好地组织工程，也便于代码的维护。1.窗体模块2.标准模块3.类模块6.4.2过程的作用域如果使用Public关键字定义过程，那么所有模块（包括窗体模块、标准模块和类模块）中的过程都可以调用该过程，这样的过程称作公有过程如果使用Private关键字定义过程，那么只有与该过程定义在同一个模块中的其它过程才能调用该过程，而其它模块中的所有过程却不能够调用该过程，就像它根本不存在一样，这样的过程称作