Visual Basic程序设计 第八章节.ppt

Sub过程 以Sub保留字开始的为子过程，在Visual Basic中有两种Sub过程，即事件过程和通用过程。 事件过程 通用过程 事件过程 所谓事件就是能被对象(窗体和控件)所识别的动作。为一个事件编写程序代码，就是使对象按程序指定的方式作用。将事件处理代码放在过程中就形成了事件过程。一个事件发生后，对象能自动地利用和该事件对应的名称引导事件过程。事件名称建立了对象和代码之间的联系。 事件过程 窗体事件过程的一般形式是： Private Sub Form_事件名([参数列表]) 〔局部变量和常数声明〕 语句块 Eud Sub 窗体的若干事件 Initialize（初始化）事件是在窗体被加载之前，窗体被配置的时候触发 Load（加载）事件，VB把窗体从磁盘或从磁盘缓冲区读入内存时发生 Activate（激活）事件是在窗体已经被装入内存，变成被激活的窗体时触发 GotFocus事件在窗体成为当前焦点时触发 窗体各事件的发生次序 窗体各事件的发生次序 通用过程 具有一定功能的独立程序段称为通用过程 通用过程是一个必须从另一个过程(事件过程或其它通用过程)显式调用的程序段 通用Sub过程的定义 建立通用Sub过程 通用Sub过程的定义 通用Sub 过程的一般形式是： [Private | Public] [Static] Sub 过程名 ([形参表]) 　　　　[局部变量和常量声明] 　　　　语句块 　　　　[Exit Sub] 　　　　语句块 　End Sub Sub过程不能嵌套定义，即在Sub过程中不可以再定义Sub过程或Function过程。但可以嵌套调用。 说明 (1) Public: 缺省值。使用Public时表示所有模块的所有其他过程都可以调用该Sub过程。 (2) Private: 使用Private时表示只有本模块中的其他过程才可以调用该Sub过程。 (3) Static: 使用Static时表示将过程中的所有局部变量说明为静态变量。 (4) Sub过程名: Sub过程的名称，遵循变量的命名规则。 (5) 形参表: 表示在调用时要传递给Sub过程的参数变量列表。多个变量之间用逗号隔开。 (6) Exit Sub语句:非正常出口，从Sub过程 中退出。 (7) 过程名不具有值的意义，在Sub过程 中不能给过程名赋值，也不能给过程名 定义类型。 (8)Sub过程通过形参表中的参数返回值。 建立通用Sub过程 创建通用过程的第一种方法是： 打开代码编辑器窗口； 选择“工具”菜单的“添加过程”； 首先在“添加过程”对话框中输入过程名，接着在类型选项中选定过程类型是子程序还是函数，然后在过程的应用范围选项中选定公有还是私有，最后单击“确定” 创建通用过程的第二种方法是： 在代码窗口中的对象列表框中选“通用”，再在代码窗口的文本编辑区空白行处键入“Private Sub过程名”或“Public Sub过程名”； 按Enter键，即可创建一个Sub过程样板 调用过程的执行流程 Private Sub Command1_Click() Dim Inta As Integer, St As String Inta = Text1.Text Call Factor(Inta, St) Text2.Text = St End Sub Private Sub Factor(ByVal N As Integer, S As String) Dim I As Integer For I = 1 To N- 1 If N Mod I = 0 Then S = S Str(I) Next I End Sub 采用Print直接输出在窗体上，程序代码： Private Sub Form_Click() Show Dim i As Integer For i = 1 To 10 Call PRT(i) Next i End Sub Sub PRT(n As Integer) Dim i As Integer Print Tab(25 - n); For i = 1 To 2 * n - 1 Print *; Next i Print End Sub 因为计算5!和10!都要用到阶乘n! (n!＝1×2×3×…×n) 所以把计算n!编成Sub过