vb9第九章节 过 程.pptVIP

第九章 过 程 本章要点： 一、Sub 过程 二、函数过程 三、过程的嵌套 四、参数传递 五、变量的作用域 六、变量的生存期 七、代码模块 过程的引入：使同类的操作不重复 （操作方法相同、参数不同） 过程：完成一段独立功能，可供其他程序使用(调用) 过程又称为子程序 主程序：调用其他子程序的程序 过程分类： 事件过程的结构： 窗体事件： Private Sub Form_事件名([形参表]) [语句组] End Sub 控件事件： Private Sub 控件名_事件名([形参表]) [语句组] End Sub 输入：手动输入、使用模板 调用：（1）Call 过程名（[实参表]） （2）过程名 [实参表] 注意：先确定好对象名称，再生成事件过程, 否则，过程名称与对象名称将不一致 例：设窗体上有3个命令按钮： Command1、 Command2、 Command3 Private Sub Command1_Click() Form1.BackColor = vbRed End Sub Private Sub Command2_Click() Command1_Click End Sub Private Sub Command3_Click() Call Command1_Click End Sub 9.1.2 用户自定义过程（通用过程） 一、过程的定义 [Private | Public ] [Static] Sub 过程名 ([形参表]) [语句组] [Exit Sub] [语句组] End Sub 说明： 1.书写位置：窗体模块、标准模块、类模块、 2.Private：定义的过程只能在本模块中被调用 3.Public：定义的过程可以在任何位置被调用（缺省值） 4.Static：所有局部变量在每次调用时不重新分配存储空间 例： Static的作用 Static Sub SS1() For I = 1 To 10 S = S + I Next I Print S End Sub Private Sub Command1_Click() Call SS1 End Sub 设窗体Form1中有按钮： Command1、 Command2 Public Sub aa() MsgBox (这是窗体Form1中的过程) End Sub Private Sub Command1_Click() Call aa End Sub Private Sub Command2_Click() Form2.Show End Sub 窗体Form2中有按钮： Command1 、 Command2 Private Sub Command1_Click() Call Form1.aa End Sub Private Sub Command2_Click() Call Module1.bb End Sub 添加标准模块，编写以下过程： Public Sub bb() MsgBox (这是标准模块中的过程bb) End Sub 例：参数表的作用 Sub SS1(N As Integer) For I = 1 To N S = S + I Next I Print S End Sub Private Sub Command1_Click() Dim M As Integer Call SS1(10) Call SS1(20) M = 30 Call SS1(M)