Visual Basic语言程序设计教程全套PPT课件.ppt

（3）在定义过程时可以给可选参数提供一个默认值，那么当调用过程时，如果没有提供相应的实参，则该参数按其默认值进行计算；如果提供了实参值，则按得到的实参值进行计算。【例7.15】编写一个函数过程，使其能完成求1～3个数据的总和。程序代码如下：PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegera=3:b=4:c=5ClsPrintsum(a,b,c)Printsum(a,c)Printsum(a,b)Printsum(a)EndSubPrivateFunctionsum(p1%,Optionalp2%,Optionalp3%=-1)AsIntegerDimaAsIntegers=p1IfNotIsMissing(p2)Thens=s+p2IfNotIsMissing(p3)Thens=s+p3sum=sEndFunction【例7.15】运行界面2．可变参数一般来说，过程调用中的实参个数应等于定义过程时的虚参个数。但是在vbVB中，也可以将一个过程定义成能够接受任意多个虚参的形式，从而使一个过程的参数个数是可变的。这种具有可变参数的过程需要用关键字ParamArray来定义，一般格式如下：Sub过程名（ParamArray数组名（））其中：“数组名”为虚参，默认类型为Variant类型。【例7.16】定义一个可变参数过程，计算任意多个数据的乘积。程序代码如下：PrivateSubForm_Click()DimaAsInteger,bAsLongDimcAsVariant,dAsSinglea=6:b=8:c=2.6:d=3multia,b,c,dmulti2,3,4,5,6EndSubSubmulti(ParamArraynumber())n=1ForEachxInnumbern=n*xNextxPrintnEndSub【例7.16】运行界面7.4.4对象参数在VB中定义通用过程时，除了可以使用变量、数组作为过程的虚参外，还允许使用对象，即窗体或控件作为通用过程的参数。在某些情况之下，可以简化程序，提高效率。同样的，在调用过程时，除了可以将数值、字符串、数组作为实参传递给被调过程的虚参外，还可以向过程传递对象（包括窗体和控件）。使用对象作为参数与其他数据类型作为参数并没有什么区别，其格式如下：Sub过程名(虚参表)……[ExitSub]……EndSub其中：“虚参表”中的虚参的类型通常为Control或Form。说明：（1）在调用含有对象的过程时，对象只能通过按址传递方式传递。因此在定义过程时，不能在对象类型的虚参前加ByVal。（2）在使用控件作为参数时，为了能在过程中正确处理控件的各个属性值，必须要知道所操作的控件参数是哪一种控件类型，因为不同的控件其属性是有不同的。为此vbVB提供了一个TypeOf语句，用于测试控件的类型，其格式如下：[If|ElseIf]TypeOf控件名称Is控件类型其中：“控件名称”指的是控件参数（虚参）的名字；“控件类型”指的是代表各种不同控件的关键字这些关键字有：Label（标签）、CommandButton（命令按钮）、TextBox（文本框）、OptionButton（单选按钮）、CheckBox（复选框）、Frame（框架）、ListBox（列表框）、ComboBox（组合框）、HScrollBar（水平滚动条）、VScrollBar（垂直滚动条）、PictureBox（图片框）、Timer（计时器）、DirListBox（目录列表框）、DriveListBox（驱动器列表框）、FileListBox（文件列表框）、Menu（菜单）【例7.17】用控件和窗体作为过程的参数。新建一个窗体Form1，在窗体上添加一个文本框（名称Text1）和一个命令按钮（名称为Command1）。在窗体模块中定义一个通用过程Config，其3个虚参分别为窗体类型、控件类型、控件类型。程序代码如下：PrivateSubForm_Click()调用config过程，实参分别为当前窗体的名称Form1和两个控件Text1、Command1Callconfig(Form1