第6章__过程与函数.ppt

第6章 过程与函数 本章主要内容 什么是过程 为什么要使用过程 事件过程 与某个对象事件相关 过程名为： 对象名_事件名 如：窗体事件 Private Sub Form_事件名(参数列表) ＜语句组＞ End Sub 如：控件事件 Private Sub 控件名_事件名(参数列表) ＜语句组＞ End Sub 通用过程 与事件无关 表示某项任务 例： Sub过程的定义 格式如下： [Static ][Private][Public] Sub 子过程名([参数表列]) ＜语句块＞ [Exit Sub] ＜语句块＞ End Sub 格式说明 Sub过程以Sub开头，以End Sub结束，在Sub和End Sub之间是描述过程操作的语句块，称为“过程体”或“子程序体”。 End sub 标志着过程的结束，为了能正确运行，每个Sub过程必须有一个End Sub的子句。此外，在过程体内，可以用一个或多个Exit sub语句从过程中退出。 Sub过程不能嵌套定义，但可以嵌套调用 可选项及参量的说明 Static（静态）：指定过程中的局部变量在内存中的默认存储方式。 Private（私有的） ：表示该过程是私有过程，只可被本窗体中的其它过程调用，不能被其他模块中的过程调用。 Public（公有的）：表示该过程是公有过程，可以被本程序中的任何窗体、任何过程调用。 可选项及参量的说明 回顾 过程的分类： Sub过程的建立 Sub过程的建立 在标准模块中建立通用过程的方法： 添加模块： 工程?添加模块?“对话框” ?“新建”?“模块” 添加过程： 直接键入过程名字并回车 工具?添加过程? “对话框” Sub过程的调用 Sub过程的调用 省略Call的调用 格式：过程名 实际参数，… 多个参数时，不用括号 如：swap x,y 一个参数时，可不用括号，也可用括号 如：tryout a 或 tryout (a) 无参函数调用无需添加括号 如：bb 三个数排序，顺序结构实现 Private Sub Cmd_sort_Click() Dim x As Integer, y As Integer, z As Integer, t As Integer x = val(Txt_x.Text) y = val(Txt_y.Text) z = val(Txt_z.Text) If x y Then t = x : x = y : y = t If x z Then t = x : x = z : z = t If y z Then t = y : y = z : z = t Txt_max.Text = x Txt_mid.Text = y Txt_min.Text = z End Sub 三个数排序，用过程实现 Private Sub Cmd_sort_Click() Dim x As Integer, y As Integer, z As Integer, t As Integer x = val(Txt_x.Text) y = val(Txt_y.Text) z = val(Txt_z.Text) Txt_max.Text = x Txt_mid.Text = y Txt_min.Text = z End Sub 参数的类型 参数的类型 参数的类型 调用一个过程时，要把实参传递给形参，即形实结合。 Private Sub Swap( a As Integer, b As Integer) …… End Sub Private Sub Command1_Click() …… If x y Then call swap （ X , Y） If x z Then call swap （ X, Z） If y z Then call swap （ Y, Z） …… End Sub 按名结合： 显示地指出与形参结合的实参， 用 “形参:=实参”来连接 定义： 关于形参与实参的说明 实参可以是常量、变量或表达式。 例如：call swap( 3, a+b ) 在被定义的过程中，必须指定形参的类型。 例如：Sub test(p1 as integer,　p2 as double) 形参与实参类型一致，个数相同。 思考： Sub swap (a as integer, b as integer ) Dim t As Integer temp= a : a = b : b =temp End sub Private Sub Command1_Cli