第八章过程与函数.pptVIP

《计算机语言与程序设计》 Visual Basic 6.0;上章回顾;;例：某同学遇到了这样的一个编程问题：1!+3!+5!=？;过程的引入: 使同类的操作不重复 (操作方法相同、参数不同) 过程: 完成一段独立功能，可供其他过程使用(调用)。 过程又称为子程序 调用过程: 调用其他过程的过程;过程分类;8.1 Function过程;2. 说明 (1) Public: 缺省值。 (2) Private: (3) Static: 使用Static时表示将过程中的所有局部变量说明为静态变量。 (4) 函数过程名: Function过程的名称，遵循变量的命名规则。 (5) 形参表: 表示在调用时要传递给Function过程的参数变量列表。多个变量之间用逗号隔开。;(6) Exit Function语句: 从Function过程中退出。 (7) Function过程通过赋值语句 函数过程名 = 表达式 将函数的返回值赋给函数过程名。 (8) Function过程的定义不能嵌套。;3.Function过程的建立: ? 直接在代码窗口中输入。 ? 在代码窗口: “工具”菜单→ “添加过程”命令。;【例8-1】求1!+3!+5!=？ 自定义求阶乘的函数过程Fact Function Fact(N As Integer) As Double Dim i As Integer, F As Double F = 1 F用于保存阶乘值 For i = 1 To N F = F * i Next i Fact = F 给函数过程名赋值 End Function 在按钮的Click事件过程中调用函数过程 Private Sub Form_Click() Dim sum As Double sum = sum + Fact(1) + Fact(3) + Fact(5) 调用函数 Print 1!+3!+5!=; sum End Sub;【例8-2】利用Function过程计算阶乘，求组合数。界面如下图所示。运行时，在文本框Text1和Text2中输入m和n值，单击按钮计算组合数，结果显示于文本框Text3中。; 自定义求阶乘的函数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; 按钮的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.2 Sub过程的调用 格式一: Call 过程名[(实参表)] 格式二: 过程名[实参表] 说明: (1) 过程名: 要调用的Sub过程名； (2) 实参表: 可以是常量、变量或表达式，各参数之间用逗号分隔。如果是数组参数，则要在数组名之后跟一对空括号。 (3) 用Call语句调用一个Sub过程时，如果过程本身没有参数，则省略实参表和括号。 (4) 格式二省略了Call关键字，同时实参表两边也不能带括号。 ;【例8-3】用Sub过程实现求1!+3!+5!。 分析: 参数表中应有一个参数n，还应有另一个参数F用来返回阶乘值。 Option Explicit Sub Fact(N As Integer, F As Double) Dim I As Integer F = 1 For I = 1 To N F = F * I Next I End Sub;Private Sub Command1_Click() Dim F1 As Double, F2 As Double, F3 As Double Dim sum As Double 调用Fact过程求1的阶乘，阶乘值存于实参F1中 Call Fact(