[计算机软件及应用]chap8-过程.pptVIP

第8章 过程 过程的引入：使同类的操作不重复 (操作方法相同、参数不同) 过程：完成一段独立功能，可供其他过程使用(调用)。过程又称为子程序。 8.1 Sub过程 8.1.1 事件过程 Private Sub 控件名_事件名( ) …… End Sub 8.1.2 通用过程的定义 1. Sub过程的格式 [Private|Public] Sub 过程名[(形参表)] [语句组] End Sub 2. 说明 (1) 过程名不具有值的意义，在Sub过程中不能给过程名赋值，也不能给过程名定义类型。 (2) Sub过程通过形参表中的参数返回值。 【例】编写计算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 Private Sub Command1_Click() Dim x As Integer, A As Long x = Val(Text1.Text) 调用Fact过程求x阶乘，阶乘值存于实参A中 Call Fact(x, A) Label3.Caption = A End Sub 【例】编写Sub过程，打印以下图形。 分析: 打印以上图形，不需要返回值，因此无需引入参数。 8.1.3 Sub过程的调用 格式一：Call 过程名 (实参1,实参2,…) 格式二：过程名 实参1,实参2,… 说明： 用Call语句调用一个Sub过程时，如果过程本身没有参数，则省略实参表和括号。 8.2 Function过程 8.2.1 函数过程的定义 1. Function过程的格式 Function 函数过程名(形参表) [As 类型] [语句组] [函数过程名 = 表达式] End Function 8.3 参数的传递 8.3.1 形参和实参 形参： 出现在Sub或Function语句中。 实参： 出现在调用程序中。 例如，定义如下一个过程： Sub Fact(n As Integer,F As Single) … End Sub 调用语句： Call Fact( A , B ) 形参表格式: [ByVal|ByRef]变量名 [As 类型] ByVal：表示该参数按值传递。 ByRef：表示该参数按地址传递。 实参把其值传递给形参，而不传递实参的地址。在过程中对形参的任何操作不会影响到实参。数据的传递是单向的。 (1) 当实参为常量或表达式时，数据传递总是单向的。 例如: Call SubTest(10, A+B) Sub SubTest( n As Integer,Sum As Single) (2) 实参是变量时，要实现按值传递需要在形参之前用关键字ByVal来实现。 例如: Sub S(ByVal X, ByVal Y, ByVal Z) X = X + 1：Y = Y + 1：Z = Z + 1 End Sub Private Sub Command1_Click() A = 1：B = 2：C = 3 Call S(A, B, C) Print A, B, C End Sub 运行时，单击命令按钮在窗体上打印: 8.3.3 按地址传递 指将实参的地址传给形参，使形参和实参具有相同的地址，即形参与实参共享同一存储单元。 (1) 当实参为变量或数组时，形参使用关键字ByRef定义(或省略)表示要按地址传递。 (2) 按地址传递可以实现调用过程与子过程之间数据的双向传递。 例: Sub S(ByRef X, ByRef Y