VisualBasic程序设计银红霞第4章节VisualBasic程序代码设计.ppt

馋死 (1) Public：表示Sub过程是“公用”过程，可在整个程序范围被调用(但需要指明该子程序所在的对象名，如果在窗体 Form1中定义了一个程序Sub1，在窗体From2中调用它，应该用：Call Form1.Sub1。 (2) Private：表示Sub过程是“私用”过程，只能被本窗体中的其他过程访问，不能被其他模块的过程访问。 (3) Static：表示该过程中的局部变量是静态变量，在过程被调用后其值仍然保留；如果省略“Static”，则局部变量就默认为“自动”的，即在每次调用过程时，局部变量被初始化为0或空字符串。Static对在过程之外的变量没有影响，即使这些变量在过程中使用。 说明： (4) 参数表：是含在调用时传给该过程的简单变量名或数组名，各名字之间用逗号隔开。 “参数表”指明了调用时传送给过程的参数的类型和个数，每个参数的形式： ［ByVal］(变量名［()］［As 类型，］……］) 参数也称形参或哑元，在定义时没有值。ByVal表示该过程被调用时，参数是值传递，否则引用传递。定义子过程或子函数时，都可以无参数，但函数过程无参数时，函数过程名后的括号不能省略。这是函数过程与子过程的区别。 (5) 过程名：不能与同一级别的变量同名。在同一个模块中，同一个名称，不能既用作Sub过程名，又用作Function过程名。 (6) [Exit Sub]：表示退出子过程。 按照子过程的功能，Visual Basic的子过程可以 分为事件过程和通用过程。 （1）事件过程 事件过程是应用程序对事件发生后的响应，决定该事件发生后要执行的动作。例如：用鼠标单击命令按钮时，会自动执行Command_Click事件过程。 每个对象都有一组固定的事件，是Visual Basic内部定义的，用户不能自行添加事件。 （2）通用过程 创建（定义）通用过程的两种方法： 执行“工程”菜单 “添加模块” “新建” 双击“模块”图标，打开模块代码窗口。 执行“工具”菜单 “添加过程”，打开“添加过程”对话框。 模块代码窗口 “添加过程”对话框 ① 在窗体的代码窗口创建 ② 在模块中创建 执行“工程”菜单 “添加模块” “新建” “模块” “打开”，则创建并打开一个新模块。 模块代码窗口 以上两种方法创建的模块均为标准模块文件(.BAS)。 例：定义一个计算求K! 阶乘的子过程。 Public Sub jc (k%,t) For i=1 to k t=t*i Next i End Sub 函数与过程相似，也是用来完成特定功能的独立程序代码，它与过程不同的是，函数可以返回一个值给调用程序。 2. 函数过程的定义 自定义函数过程的格式如下： [Public|Private|Static] Function 函数名(参数表)[As 类型] 程序段 [过程名=表达式] [Exit Function] 程序段 End Function ’调用一个函数过程要返回一个值，因此通过将“表达式”的值赋给“过程名”实现。 例：定义一个计算求K! 阶乘的Function过程。 Private Function jc (k%) as Long jc=1 For i=1 to k jc=jc*i Next i End Function ‘将“表达式”的值赋给“过程名” 4.3.2 过程的调用 (2) 直接使用过程名调用Sub过程，而不必有Call。格式： 过程名［实参［实参］……］ 说明：不用括号把实参括起来。 (1) 使用Call语句调用Sub过程。 格式： Call 过程名(［实参表列］) 说明：实参的个数、数据类型都要与被调用过程的参数一一对应。 m! 例4-15：求组合数：Cmn= n!(m-n)! Private Sub Form_click() Dim m%,n