VB考试教程之Function过程[1]

    Function过程

    VB包含内置的或内部的函数，还可用Function语句编写自己的Function过程。在定义了一个函数之后，可以像调用任何一个VB的内部函数一样使用它，即可以在任何表达式，语句或函数中引用它。

    函数过程是标准模块中位中Function语句与End Function 语句之间的一系列语句。函数中的这些语句完成某些有意义的工作，一般是处理文本，进行输入或计算一个值。

    通过将函数名与任何所需的参数一起置于一条程序语句中，可以调用该函数。换句话说，使用函数过程与使用内置函数（比如Time,Int或Str等）的方法完全相同。

    每个函数完成一种服务，比如进行计算并返回一个值。

    在标准模块中声明的函数在缺省的状态下是公用函数，它们可在任何事件中过程中使用。

    （1）Function（函数）过程的定义

    Function过程的定义格式：

    [Public|Private|Friend|Static]Function 过程名[(参数列表)][As数据类型]

        [程序段]

        [过程名=表达式]

        [Exit Function]

        [程序段]

        [过程名=表达式]

    End Function

    说明：

    1）Function过程以Function开头，End Function 结束，之间是描述过程操作的语句块，即“过程体”或“函数体”。格式中的“过程名”、“参数列表”、Public、Private、Friend、Static、Exit Function的含义与Sub过程相同。“As数据类型”是由Function过程返回的值的数据类型，如省略，则为Variant。

    如：已知直角三角形两直角边的值，计算斜边，可定义一个Function函数。

    Function hypotenuse(A as integer,B as integer) as string

        hypotenuse=sqr(A^2+B^2)

    End function

    再例如：

    Function BinarySearch(Lower,Upper As Integer) As Boolean

        ……
    If Lower = Upper Then
        BinarySearch = True
        Exit Function
    Else
        BinarySearch = False         '过程名=表达式
    End If
    ……

    End Function

    2）调用Sub过程相当于执行一个语句，不返回值；而调用Function过程要返回一个值，因此可以像内部函数一样在表达式中使用。

    在VB中调用Function过程的方法和调用任何内部函数的方法是一样的，如调用上面的“hypotenuse”函数：

    　　label1.caption=hypotenuse(Cint(text1.text),cint(text2.text))

    　　strX=hypotenuse(width,height)