新Visual Basic程序设计案例教程 湖南省教育科学“十一五”规划重点项目 教学课件 李勇帆 第12讲.pptVIP

Visual Basic 程序设计 第十二讲 2课时 教学目标及基本要求 掌握数组参数的传送 掌握可选参数的用法 掌握可变参数的用法 掌握对象参数的用法 教学重点 数组参数的传送 可选参数 可变参数 教学难点 可选参数与可变参数； 教学内容 数组参数的传送 可选参数的用法 可变参数的用法 对象参数的用法 参数传送 数组参数的传送 数组参数的传送过程 例如，假定定义了如下过程： Sub S(a( ),b( )) … End Sub 可以用下面的语句调用该过程： Call S(p( ),q( )) 参数传送 【例8.6】编写一个Function过程，求数组的最大值。 求数组最大值的通用过程如下： Private Function FindMax(a( )As Integer) Dim Start As Integer, Finish As Integer, i As Integer Start=LBound(a) Finish=UBound(a) Max=a(Start) For i=Start To Finish If a(i)Max Then Max=a(i) Next i FindMax=Max End Function 可选参数与可变参数 可选参数 使用Optional关键字，定义带可选参数的过程，并在过程体中通过IsMissing函数测试调用时是否传送可选参数。 可选参数与可变参数 可选参数 Sub Multi(fir As Integer, sec As Integer, Optional third) n=fir*sec If Not IsMissing(third) Then n=n*third End If Print n End Sub 在调用上面的过程时，可以提供两个参数，也可以提供3个参数，都能得到正确的结果。 可选参数与可变参数 可选参数 例如，如果用下面的事件过程调用： Private Sub Form_Click() Multi 10,20 End Sub 则结果为200 而如果用下面的过程调用： Private Sub Form_Click() Multi 10,20,30 End Sub 则结果为6000 可选参数与可变参数 可变参数 可变参数定义 可变参数过程通过ParamArray命令来定义，一般格式为： Sub过程名(ParamArray 数组名) 可选参数与可变参数 可变参数 举例说明可变参数过程的用法 Sub Multi (ParamArray Numbers( )) n=1 For Each x In Numbers n=n*x Next x Print n End Sub Private Sub Form_Click() Multi 2,3,4,5,6 End Sub 对 象 参 数 用对象作为参数与用其他数据类型作为参数的过程没有什么区别，其格式为 Sub过程名（形参表） 语句块 [Exit Sub] End Sub 对 象 参 数 窗体参数 【例8.7】假定要设计一个含有多个窗体的程序，该程序有4个窗体，要求这4个窗体的位置、大小都相同。 对 象 参 数 【例8.8】编写一个通用过程，在过程中设置字体属性，并调用该过程显示指定的信息。 通用过程如下： Sub Fontout(TestCtrl1 As Control,TestCtrl2 As Control) TestCtrl1.FontSize=18 TestCtrl1.FontName=幼圆 TestCtrl1.FontItalic=True TestCtrl1.FontBold=True TestCtrl1.FontUnderline=True TestCtrl2.FontSize=24 TestCtrl2.FontName=Times New Roman TestCtrl2.FontItalic=False TestCtrl2.FontUnderline=False End Sub 小结 作业 1．如果形参是数组，调用时实参是否一定要求使用数组？ 2．在定义函数过程时，函数名在函数中可以当简单变量一样使用吗？ * * 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： Visual Basic6.0提供了十分灵