【课件教程】第4.5章 过程 Visual Basic 大学计算机二级VB考试学习复习资料.pptVIP

第4.5节 过 程 引入: 例:求S=3!+7!+10! 过程的引入: 使同类的操作不重复 (操作方法相同、参数不同) 过程: 完成一段独立功能，可供其他过程使用(调用)。 过程又称为子程序 调用过程: 调用其他过程的过程 4.5.1 Function过程 一、 Function过程的定义 1. Function过程的格式 [Public|Private][Static] Function 函数过程名 ([形参表]) [As 类型] [语句组] [函数过程名 = 表达式] [Exit Function] End Function 2. 说明 (1) 函数过程名: Function过程的名称，遵循变量 的命名规则。 (2) 形参表: 表示在调用时要传递给Function过程的参数变量列表。多个变量之间用逗号隔开。 (3) As 类型: 声明函数值的类型。 (4) Exit Function语句: 从Function过程中退出。 (5) Function过程通过赋值语句： 函数过程名 = 表达式 将函数的返回值赋给函数过程名。 (6) Function过程的定义不能嵌套。 Function过程的建立: ? 直接在代码窗口中输入。 ? 在代码窗口: 工具→ 添加过程。 【例9-1】编写一个计算n！的Function过程。 Function Fact(N As Integer) As Long Dim I As Integer, F As Long F = 1 F用于保存阶乘值 For I = 1 To N F = F * I Next I Fact = F 给函数过程名赋值 End Function 【例】编写一个Function过程，计算下面表达式的值。 【例】利用Function过程计算阶乘，求组合数。设计界面如下图。 定义求阶乘的函数Fact Function Fact(n As Integer) As Long Dim F As Long, i As Integer F = 1 For i = 1 To n F = F * i Next i Fact = F End Function 【例】编写Function过程求最大公约数，并通过命令按钮的单击事件过程调用该函数过程。 Function hcf(m As Integer, n As Integer) As Integer Dim r As Integer r = m Mod n Do While r 0 m = n n = r r = m Mod n Loop hcf = n End Function Private Sub Command1_Click() Dim m As Integer, n As Integer m = Val(Text1.Text): n = Val(Text2.Text) if mn then t=m : m=n : n=t Label3.Caption = “的最大公约数是：” Str(hcf(m, n)) End Sub [例4-19] 输入n，计算1 + 2！+ 3！+……+n！。 4.5.2 Sub过程 一、 Sub过程的定义 1. Sub过程的格式 [Private|Public][Static] Sub 过程名[(形参表)] [语句组] [Exit Sub] [语句组] End Sub 2. 说明 (1) Exit Sub用于退出Sub过程。 (2) 过程名不具有值的意义，在Sub过程中不能给过程名赋值，也不能给过程名定义类型。 (3) Sub过程通过形参表中的参数返回值。 (4) Sub过程的建立方法与Function过程的建立方法相同。 【例】编写计算n!的Sub过程。 分析: 参数表中应有一个参数n，还应有另一个参数F用来返回阶乘值。 Sub Fact(N As Integer, F As Long) Dim I As Integer F = 1 For I = 1 To N F = F * I Next I End Sub 【例】编写