VisualBasic程序设计-江苏省计算机等级考试.ppt

第 8 章 过程 教学要求 掌握VB的两种过程：事件过程和通用过程 掌握Sub过程的定义 掌握Function过程的定义 掌握过程的调用 掌握参数的传递——按值传递和按地址传递 掌握递归算法 掌握变量的作用域 8.1 Sub过程 8.1.1 事件过程 当对象识别某事件后，进行的操作处理——以代码的形式存储在事件过程中。 分类： 窗体事件过程 控件事件过程 1 定义事件过程 [形式]： Private Sub Form_事件名（[参数列表]） [局部变量和常数声明] 语句块 End Sub 2 窗体的Initialize、Load、 Activate、 Gotfocus事件 Initialize（初始化）事件——配置窗体时触发 Load（加载）事件——窗体装入内存时触发 Activate（激活）事件——窗体被激活时触发 Gotfocus事件（得到焦点）事件——窗体成为当前焦点时触发 窗体上无可视控件时，触发窗体的Gotfocus事件； 窗体上有可视控件时，触发控件的Gotfocus事件； 执行次序： Initialize Load Activate Gotfocus 注 意 窗体的Initialize、Load事件发生在窗体被显示之前，其中可放置系统初始化命令，但其中语句有所限制； 窗体加载后，只要不被卸载，就不会再执行Initialize、Load事件，但Activate事件会多次发生； 当访问另一窗体上的“非可视”数据或调用其中定义的全局过程时，只会触发该窗体的Initialize事件，而Load事件不触发； 当访问另一窗体上的“可视”数据时，会同时触发该窗体的Initialize和Load事件； 3 定义控件的事件过程 [一般形式]： Private Sub 控件名_事件名（[参数列表]） [局部变量和常数声明] 语句块 End Sub 4 建立事件过程 打开“代码编辑器”窗口； 先选定某对象，再选定事件过程； 编辑代码； 8.1.2 通用过程 完成某一特定功能的程序段 ——通用过程（自定义） 必须显式调用方可执行; 分为： 公有过程（Public） 私有过程（Private） 1 通用Sub过程的定义 [一般形式]： [Private|Public] [static] Sub 过程名([参数列表]) 过程体 End Sub 8.4 参数的传递 8.4.1 形式参数和实在参数 形式参数： 过程定义时，在过程名后面的圆括号里的一系列变量； 过程被调用执行时，系统才给形参分配存储空间； 可以是除定长字符串外的任一简单变量； 可以是数组，变量名后接括号； 简称“形参” 8.7 程序示例 例 8-5 例 8-6 例 8-7 ★ 例 8-11 [例8-5] 利用级数法编程求反正弦函数值 [分析]：求解这一类累加和的题目，关键是两点：一是通项的表示，二是求解的精度，即当通项小于等于给定的误差值时，就停止累加。 [一般形式]如下两种： 例：使用递归算法计算裴波拉挈数列。 Private Function Cal(n As Integer) If n = 1 Or n = 2 Then Cal = 1 Else Cal = Cal(n - 1) + Cal(n - 2) End If End Function Private Sub Form_Click() Dim n As Integer n = InputBox(求数列的第几项) Print “数列中第”; n; “项是”; Cal(n) End Sub Private Sub Form_Click() Dim fb() As Integer Dim i As Integer,, n as integer n = InputBox(“求数列中第几项的值”) Redim fb(n) fb(1)=1:fb(2)=1 For i = 3 To n fb(i)=fb(I-1)+fb(I-2) Next i Print 数列中的第; n; 项是; fb(n) End Sub 上例的非递归解法——例5-7（P109）。 递推法：利用未知项与已知项之间存在的某种关系，从已知项逐项推出未知项的方法。 Privat