第7章 过程过程1.ppt

第 7 章 过程 教学要求 掌握VB的两种过程：事件过程和通用过程 掌握Sub过程的定义 掌握Function过程的定义 掌握过程的调用 掌握参数的传递——按值传递和按地址传递 掌握递归算法 掌握变量的作用域 Private Sub Form_事件名（[参数列表]） [局部变量和常数声明] 语句块 End Sub 4. 通用Sub过程的定义 [格式]： [Private|Public] [static] Sub 过程名([参数列表]) 过程体 End Sub * 7.1 Sub过程 7.2 Function过程 7.3 过程调用 7.4 参数的传递 7.5 递归过程 7.6 变量的作用域 7.7 程序示例 7.8 创建与设置启动过程 教学内容 基本思想：将一个大的程序按功能分割成一些小模块 特点： 各模块相对独立、功能单一、结构清晰、接口简单 控制了程序设计的复杂性 避免程序开发的重复劳动 易于维护和功能扩充 模块化程序设计 c n m = m!(n-m)! n! Private Sub Command1_Click() n = Val(Text1.Text) m = Val(Text2.Text) k = n t = 1 For i = 1 To k t = t * i Next i s = t k = m t = 1 For i = 1 To k t = t * i Next i s = s / t k = n - m t = 1 For i = 1 To k t = t * i Next i s = s / t Text3.Text = Str(s) End Sub 共同代码 计算k！ 能不能简化？ 计算： 模块化程序设计举例 函数定义 计算k！ Private Sub Command1_Click() Dim m As Integer, n As Integer Dim s As Long n = Val(Text1.Text) m = Val(Text2.Text) s = fact(n) / (fact(m) * fact(n - m)) Text3.Text = Str(s) End Sub Private Function fact(k As Integer) As Long Dim i As Integer fact = 1 For i = 1 To k fact = fact * i Next i End Function 函数调用（三次） 使用函数 过程的分类 事件过程 Sub 过程 通用过程 子程序过程 Sub 函数过程 Function 7.1 Sub过程--事件过程 1. 概念：由控件对象通过事件触发所执行的一系列代码。 2. 说明： 事件过程之前一般都有Private Sub，表明事件过程是局部的，只在本窗体中有效。 事件过程是否有参数由系统自动添加，不能人为改动。 3. 分类： 窗体事件过程 控件事件过程 Private Sub 控件名_事件名（[参数列表]） [局部变量和常数声明] 语句块 End Sub 窗体的事件过程名中不使用其具体名称，而固定用Form 控件的事件过程名中必须使用其具体名称 7.1 Sub过程--事件过程 4. 窗体启动时的4个相关事件 （p.126） Initialize(初始化)事件——配置窗体，在Load之前。 Load(加载)事件——窗体加载到内存时触发。 Activate(激活)事件——成为被激活窗体时触发 GotFocus(聚焦)事件——窗体成为当前焦点时触发,一般是窗体上的控件成为焦点，而不是窗体。 执行次序： Initialize Load Activate Gotfocus 注意： 窗体的Initialize、Load事件发生在窗体被显示之前，其中可放置系统初始化命令，但其中语句有所限制； 窗体加载后，只要不被卸载，就不会再执行Initialize、Load事件，但Activate事件会多次发生； 当访问另一窗体上的“非可视”数据或调用其中定义的全局过程时，只会触发该窗体的Initialize事件，而Load事件不触发； 当访问另一窗体上的“可视”数