第5章++过程与模块.ppt

第5章过程与模块
过程的概念
函数过程
子过程
参数传递
递归程序
标准模块
过程的概念
在前面的学****中,我们经常要在一个事件过程中编写代码。事件过程是当发生某个事件时,如单击命令按钮,对该事件作出响应的程序段。有些情况下,多个不同的事件过程可能要执行一段相同的程序代码,那么可以将这一段代码抽出来,建立一个独立的过程,这样的过程称为通用过程,供事件过程或其他通用过程调用。
在Visual Basic中,通用过程分为两类:子程序过程和函数过程,前者也称为Sub过程,后者称为Function过程。
函数过程的定义和使用
Function过程名[(形式参数表)][As类型]
[语句块]
[过程名=表达式]
[Exit Function]
[语句块]
[Return 表达式]
End Function
函数过程
由Function过程返回的值放在上述格式中的“表达式”中,并通过“过程名=表达式”把它的值赋给“过程名”。除通过“过程名=表达式”返回函数值外,还可以通过Return语句返回函数值。其格式为:Return 表达式
在Function过程中,Return语句有两个作用,一是返回函数值,二是退出Function过程。
如果在Function过程中省略“过程名=表达式”或“Return表达式”,则过程返回一个默认值。
过程可以有参数,也可以不带任何参数。没有参数的过程为无参过程。对于无参过程,调用时只写过程名(包括括号)即可。
例如,定义计算阶乘的Function过程如下:
Function facts(Byval intN As Integer) As Long
Dim i As Integer
Dim intResult As Long
intResult = 1
For i = 1 To intN
intResult = intResult * i
Next
Return intResult
End Function
该函数过程包含一个Integer型的形参,其返回值为Long型。可以看到,过程体中包含Return语句,返回值等于参数intN的阶乘。
函数过程的调用
调用函数过程的方式有两种:
1、变量=过程名(实际参数表)
2、过程名(实际参数表)
由于Function过程返回一个值,可以像其它函数一样来调用。将它作为单独的语句来调用,就无法得到函数的返回值。
例如,要调用前面定义的计算阶乘的Function过程facts,可以采用下面的程序段:
Dim intM As Integer = 12
Dim lngY As Long
lngY = facts(intM)
当执行到lngY = facts(intM)时,将调用函数过程facts。首先将实参intM传递给形参intN,然后执行该函数过程的过程体,当执行到End Function时,完成过程的运行,将Return后面表达式的值带回调用处,即赋给变量lngY。然后从调用处继续执行。
例:二进制—十进制转换(function过程的使用)
Private Sub btnCalc_Click(ByVal sender As , ByVal e As ) Handles
Dim number As Long, BitCount As Integer
If = True Then
BitCount = 8
ElseIf = True Then
BitCount = 16
Else
BitCount = 32
End If
If <> "" Then
number = CLng()
= ConvertToBinary(number, BitCount)
ElseIf <> "" Then
= ConvertToDecimal()
End If
End Sub