vb第07章

19
【例7-6】编写计算n！的Sub过程。 由于Sub过程名称不能返回值，因此需要在形 参表中引入另一个参数来返回阶乘值。
Sub S(N As Integer, F As Long) ' 增加参数F用于返回
阶乘值
Dim I As Integer F=1 For I = 1 To N
F=F*I
Next I End Sub
形参 Sub SubTest(n As Integer,Sum As Single)
…
End Sub
调用语句:
Call SubTest( a , s ) 实参
27
说明:
一般情况下，形参表与实参表中对应参数个数、 类型、位置顺序必须一一对应。
形参表中的参数可以是: 除固定长度字符串之外的合法变量名、数组名() 实参表中的参数可以是: 常量、变量、表达式、数组名() 形参与实参的结合有两种方式:
17
【例7-5】编写一个根据三角形的三条边计算 三角形面积及其内切圆面积的Sub过程。 在Sub过程中可以引入5个参数，其中： 3个参数用于接收三角形的三条边a、b、c， 2个参数用来返回三角形面积Area1和内切圆面 积Area2 。设r为三角形内切圆的半径。 计算三角形内切圆的面积可以使用以下公式：
21
7.2.2 Sub过程的调用 格式一： Call 过程名[(实参表)]
格式二：
过程名 [实参表]
说明: (1) <过程名>: 要调用的Sub过程名。 (2) <实参表>: 可以是常量、变量或表达式，各参数 之间用逗号分隔。如果是数组参数，则要在数 组名之后跟一对空括号。
22
(3) 用Call语句调用一个Sub过程时，如果过程本身 没有参数，则省略<实参表>和括号。 (4) 格式二省略了Call关键字，同时<实参表>两边 也不能带括号。
【例7-8】输入三角形的三条边，调用例7-5的Sub 过程求三角形的面积和它的内切圆的面积。
Text1 Text4 Text5 Command1
23
Text2
Text3
Private Sub Command1_Click() a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) Call S(a, b, c, Area1, Area2) ' 调用Sub过程 Text4.Text = Format(Area1, "0.000") ' 显示三角形面积，
5
7.1.1 Function过程的定义
1. Function过程的格式
[Public|Private][Static] Function <函数过程名>
([<形参表>]) [As <类型>] [<语句组>] <函数过程名> = <表达式> [Exit Function] 函数过程体
[<语句组>]
' 调用Area过程计算面积，并显示 在Text4中 Text4.Text = Area(a, b, c) End Sub
12
【例7-4】输入m和n的值，调用例7-2的函数过 程求组合数。求组合数公式如下：
m! C n!(m n )!
n m
Text1
Text3
Text2
Command1
13
到函数过程名中
End If End Function
9
【例7-2】编写一个计算N！的函数过程。
Function Fact(N As Integer) As Long ' 设参数N为Integer 类型、函数Fact为Long类型 Dim I As Integer, F As Long ' 定义过程内部的局部变量 F=1 ' F用于保存阶乘值
(4) <函数过程名>: Function过程的名称，遵循变量 的命名规则。 (5) <形参表>: 表示Function过程的参数变量列表。 多个变量之间用逗号隔开。格式: [ByVal|ByRef] <Байду номын сангаас量名>[( )] [As <类型>]
7
ByVal: 表示该参数按值传递。
ByRef: 缺省值。表示该参数按地址传递。
20
【例7-7】编写Sub过程，打印以下图形。
Sub a() For i = 1 To 5 Print Tab(7 - i); For j = 1 To 2 * i - 1 Print "*"; Next j
* *** ***** ******* *********
Print
Next i End Sub
按值传递和按地址传递。
28
7.3.2 按值传递和按地址传递 1．按值传递 实参把其值传递给形参而不传递实参的地址。 数据的传递是单向的。 (1) 当实参为常量或表达式时，数据传递总是单向 的。 例如:
Sub Test( n As Integer,Sum As Single)
Call Test(10, 1+2)
15
7.2.1 Sub过程的定义
1. Sub过程的格式 [Private|Public][Static] Sub <过程名> [(<形参表>)] [<语句组>] [Exit Sub]
Sub过程体
[<语句组>]
End Sub
16
2. 说明
(1) Exit Sub用于退出Sub过程。 (2) <过程名>不具有值的意义，在Sub过程中不能给 <过程名>赋值，也不能给<过程名>定义类型。 (3) Sub过程通过<形参表>中的参数返回值。 (4) Sub过程的建立方法与Function过程的建立方法 相同。
Private Sub Command1_Click() Dim m As Integer, n As Integer, c As Double n = Val(Text1.Text) m = Val(Text2.Text)
' 调用Fact函数求各阶乘值，计算组合数 c = Fact(m) / (Fact(n) * (Fact(m - n)))
End Function
6
2. 说明
(1) Public: 缺省值。使用Public时表示各模块的所 有其他过程都可以调用该过程。 (2) Private: 使用Private时表示只有本模块中的其他 过程才可以调用该Function过程。
(3) Static: 使用Static时表示将过程中的所有局部变 量说明为静态变量。
结果保留三位小数
Text5.Text = Format(Area2, "0.000") ' 显示内切圆面积，
结果保留三位小数
End Sub
24
【例7-9】调用例7-6求n！的Sub过程，求组 合数。
Private Sub Command1_Click() Dim M As Integer, N As Integer, c As Double Dim f1 As Long, f2 As Long, f3 As Long N = Val(Text1.Text) M = Val(Text2.Text) Call S(M, f1) ' 调用后f1=m! Call S(N, f2) ' 调用后f2=n! Call S(M - N, f3) ' 调用后f3=(m-n)! c = f1 / (f2 * f3) ' 求组合数 Text3.Text = c ' 用Text3显示组合数 End Sub
For I = 1 To N
F=F*I Next I Fact = F End Function
10
' 给函数过程名赋值
7.1.2 Function过程的调用 1. 调用位置 直接在表达式中调用。 2. 调用格式
<函数过程名>([<实参表>]) （1）函数过程名：必须是一个已定义的函数过程的 名称。 （2）实参表：指要传递给函数过程的常量、变量或 表达式，各参数之间用逗号分隔。如果参数是数组， 在数组名之后必须跟一对空括号。
Text3.Text = c End Sub
' 用Text3显示组合数
14
7.2 Sub过程
当需要自定义过程返回一个值时，使用
Function过程很容易实现。
但在实际应用中，可能希望过程不需要返回
值，例如，使用过程打印一个图形；或需要过程
返回多个值，例如，利用过程对一批数据进行排
序，在这些情况下就需要使用Sub过程。
11
【例7-3】输入三角形的三条边的值，调用例7-1 编写的函数过程计算三角形的面积。
Text1
Private Sub Command1_Click()
a = Val(Text1.Text) b = Val(Text2.Text)
Command1
Text2
Text3
Text4
c = Val(Text3.Text)
29
8
【例7-1】编写一个根据三角形的三条边计算三 角形面积的函数过程。
计算公式：
area p(p a )( p b)( p c) , 1 p (a b c) 2
Function Area(a, b, c) If a + b <= c Or b + c <= a Or c + a <= b Then Area = 0 '如果a、b、c不能构成三角形将面积设为0 MsgBox "输入的边长不能构成三角形", vbExclamation, " 注意" Else p = (a + b + c) / 2 Area = Sqr(p * (p - a) * (p - b) * (p - c)) ' 计算面积，保存