06-1-过程.ppt

Ch6-1 过 程 Sub过程 ?事件过程和通用过程 事件过程 事件过程是当发生某个事件时，对该事件作出响应的程序段。事件过程由VB自行声明，用户不能增加或删除。 事件过程有以下几种情形 ◇控件事件过程，其语法格式如下 Private Sub 控件名 _ 事件名（[形参表]） [语句组] End Sub ◇窗体事件过程，其语法格式如下 Private Sub Form _ 事件名（[形参表]） [语句组] End Sub Sub过程 ◇MDI窗体事件过程，其语法格式如下 Private Sub MDIForm _ 事件名（[形参表]） [语句组] End Sub 通用过程 通用过程只能由事件过程调用，不与特定的事件联系。目的是为了减少编写重复代码。存储在窗体或标准模块中。 ?通用过程的创建 在“代码”编辑窗口中输入 [Private|Public][Static] Sub 过程名（[形参表]） [语句组] [Exit Sub] [语句组] End Sub Sub过程 使用添加过程对话框 ① 打开要 添加过程的代码编辑窗口，下图左： ②选择“工具”\“添加过程”命令 ③在“添加过程”对话框中选择有关选项即可，下图右 注： ◇在过程内，不能再定义过程，可以调用其他Sub过程或Function过程。 ◇形参表中的参数语法为： [[Optional][ByVal|ByRef]|ParamArray]变量名[()][As类型][=缺省值]… Sub过程 ?通用过程的调用 有两种调用方法： Call语句：Call 过程名（[实参表]） 直接使用过程名： 过程名 [实参表] 注： ◇ 实参表是实际参数，参数之间用逗号分隔。 ◇使用Call关键字，过程名后必须加括号，若有参数，须放在括号中。 ◇省略Call关键字，过程名后不能加括号，若有参数，直接跟在过程名后，参数与过程名之间用空格分隔。 示例：M=40 Stars M Call Stars (M) 调用过程 …… Call SubA …… Call SubA …… Call SubB …… 子过程SubA 子过程SubB 调用过程示意图 Sub过程 Sub过程 示例1：使用Sub过程。 Private Sub Form_Load() Show Call mysub1(30) Call mysub2 Call mysub2 Call mysub2 Call mysub1(30) End Sub 示例1 Private Sub mysub1(n) Print String(n, *) End Sub Private Sub mysub2() Print *; Tab(30); * End Sub Sub过程 示例2：计算阶乘5!、6!、8!，以及阶乘和 5!+6!+8!。 分析：编写一个通用过程计算阶乘。编写一个命令按钮控件数组的Click()事件过程调用fact通用过程完成程序所要求的功能。 设计步骤如下 ◇建立应用程序用户界面并设置属性，如下图： ◇编写计算阶乘的通用过程fact代码 Sub fact(m As Integer, t As Long) Dim i As Integer t = 1 For i = 1 To m t = t * i Next i End Sub 示例2 Sub过程 ◇编写事件过程代码 Private Sub Command1_Click(Index As Integer) Dim a As Integer, b As Integer, c As Integer Dim s As Long, tot As Long Select Case index Case 0 a = 5:Call fact(a, tot):Label1.Caption =