vb课件第六章过程.ppt

引例(找出100以内的素数) 引例(找出100以内的素数) 引例(找出100以内的素数) VB应用程序是由过程组成的，过程是完成某种特殊功能的一组独立的程序代码。两大类过程。 事件过程 Sub过程 通用过程 Function过程 事件过程是VB应用程序的主体 通用过程是独立于事件过程之外，可供其他过程调用的程序段 一、 Sub过程定义格式： [Private｜Public ｜ Static] Sub 过程名([形参数表]) 语句块 [Exit Sub] End Sub 二、定义Sub过程的方法 1、工具菜单 2、在代码窗口直接定义 三、调用Sub过程有以下两种方法： 1、使用Call语句。格式： Call 过程名(［实参表］) 2、直接使用过程名，格式： 过程名［实参表］ 例如：调用名为SubCal的过程： Call SubCal(10) SubCal 10 ByVal , ByRef ByVal：表明其后的形参是按值传递参数或称为“传值”(Passed by Value)参数 ByRef：表明其后的参数是按地址传递(传址)参数或称为“引用”(Passed by reference)参数，若形式参数前缺省ByVal 和ByRef关键字，则这个参数是一个引用参数 “传值”相当于传递变量的值，“引用”相当于传递变量本身 传值参数示例 传值内部机制 按地址传递参数示例 按地址传递参数内部机制 6.5.5 数组参数 定义过程时VB允许把数组作为形式参数，格式是： 形参数组名() [As 数据类型] 形参数组只能是按地址传递的参数 对应实参必须也是数组且数据类型与形参相一致 调用过程时只要把数组名放在实参表中即可，后面不加() 在过程中不可以用Dim语句对形参数组进行声明 在使用动态数组时，可以用ReDim语句改变形参数组的维界，重新定义数组的大小 Option Explicit Option Base 1 Private Sub Form_Click() Dim Arraya() As Integer, I As Integer ReDim Arraya(5) Print 调用前数组维上界是:; UBound(Arraya) Call Changedim(Arraya) Print 调用后数组维上界是:; UBound(Arraya) Print 数组各元素值是:; For I = 1 To UBound(Arraya) Print Arraya(I); Next I Print End Sub Private Sub Changedim(A() As Integer) Dim I As Integer ReDim Preserve A(7) For I = 1 To 7 A(I) = I Next I End Sub 6.5.6 实参与形参类型匹配的问题 如果按地址传递的实参是常数或表达式，且与形参类型不同，则转换成形参类型传递，如果不能转换，则显示类型不匹配的错误（示例） 形实匹配的示例 Private Sub Form_Click() Dim S As Single S = 125.5 Call Convert((S), 12 + .5) End Sub Private Sub Convert(Inx As Integer, Sing As Single) Inx = Inx * 2 Sing = Sing + 23 Print Inx=; Inx; Sing=; Sing End Sub 6.7 变量的作用域及生命期 6.7.1 过程级变量 6.7.2 模块级变量 6.7.3 全局变量 6.7.4 静态变量 6.7.5 关于同名变量 过程级变量 在过程中声明的变量是过程级的变量，其作用范围仅限于该过程。 也就是说在包含它们的过程中才能访问或改变这些变量的值；而这些变量仅存在于这个过程之中才有意义 过程级变量又称为局部变量。 过程级变量 示例 Private Function Local_Va