八过程与函数.pptVIP

《计算机语言与程序设计》 Visual Basic 6.0 计算机公共课教研室 · 2010年 上章回顾 图形控件 图片框 图像框 显示图形 [对象名.]Picture=LoadPicture(文件名) 删除图形 [对象名.]Picture=LoadPicture( ) 驱动器列表框（DriveListBox） Drive属性 目录列表框（DirListBox） Path属性 文件列表框（FileListBox） Path属性 第八章 过程与函数 过程的引入 例：某同学遇到了这样的一个编程问题：1!+3!+5!=？ 过程的引入 过程的引入: 使同类的操作不重复 (操作方法相同、参数不同) 过程: 完成一段独立功能，可供其他过程使用(调用)。 过程又称为子程序 调用过程: 调用其他过程的过程 8.1 Function过程 8.1.1 Function过程的定义 1. Function过程的格式 [Public|Private][Static] Function 函数过程名 ([形参表]) [As 类型] [语句组] [函数过程名 = 表达式] [Exit Function] [语句组] [函数过程名 = 表达式] End Function 8.1 Function过程 2. 说明 (1) Public: 缺省值。 (2) Private: (3) Static: 使用Static时表示将过程中的所有局部变量说明为静态变量。 (4) 函数过程名: Function过程的名称，遵循变量的命名规则。 (5) 形参表: 表示在调用时要传递给Function过程的参数变量列表。多个变量之间用逗号隔开。 8.1 Function过程 (6) Exit Function语句: 从Function过程中退出。 (7) Function过程通过赋值语句 函数过程名 = 表达式 将函数的返回值赋给函数过程名。 (8) Function过程的定义不能嵌套。 8.1 Function过程 3.Function过程的建立: ? 直接在代码窗口中输入。 ? 在代码窗口: “工具”菜单→ “添加过程”命令。 8.1 Function过程 8.1 Function过程 【例8-2】利用Function过程计算阶乘，求组合数。界面如下图所示。运行时，在文本框Text1和Text2中输入m和n值，单击按钮计算组合数，结果显示于文本框Text3中。 8.1 Function过程 自定义求阶乘的函数Fact Function Fact(N As Integer) As Double Dim F As Double, i As Integer F = 1 For i = 1 To N F = F * i Next i Fact = F End Function 8.1 Function过程 按钮的Click事件过程 Private Sub Command1_Click() Dim m As Integer, n As Integer, c As Double m = Val(Text1.Text): n = Val(Text2.Text) 调用Fact函数求各阶乘值 c = Fact(m) / (Fact(n) * (Fact(m - n))) Text3.Text = Trim(Str(c)) End Sub 8.2 Sub过程 8.2.1 Sub过程的定义 1. Sub过程的格式 [Private|Public][Static] Sub 过程名[(形参表)] [语句组] [Exit Sub] [语句组] End Sub 2. 说明 (1) Exit Sub用于退出Sub过程。 (2) 过程名不具有值的意义，在Sub过程中不能给过程名赋值，也不能给过程名定义类型。 (3) Sub过程通过形参表中的参数返回值。 (4) Sub过程的建立方法与Function过程的建立方法相同。 8.2 Sub过程 8.2.2 Sub过程的调用 格式一: Call 过程名[(实参表)] 格式二: 过程名[实参表] 说明: (1) 过程名: 要调用的Sub过程名； (2) 实参表: 可以是常量、变量或表达式，各参数之间用逗号分隔。如果是数组参数，则要在数组名之后跟一对