Function 过程
更新：2007 年 11 月
Function 过程是包含在 Function 语句和 End Function 语句中的一系列 Visual Basic 语句。Function 过程执行任务，接着将控制返回到调用代码。返回控制时，还将一个值返回到调用代码。
每次调用此过程时都运行过程中的语句，从 Function 语句后的第一个可执行语句开始，到遇到的第一个 End Function、Exit Function 或 Return 语句结束。
可以在模块、类或结构中定义 Function 过程。默认情况下此过程为 Public，这意味着您可以从能够访问定义了此过程的模块、类或结构的应用程序中的任何地方调用此过程。
Function 过程能够带参数，如由调用代码传递给它的常数、变量或表达式。
声明语法
声明 Function 过程的语法如下所示：
[修饰符] Function 函数名称[(参数列表)] As 返回类型
' Statements of the Function procedure.
End Function
修饰符 可以指定访问级别以及与重载、重写、共享和隐藏相关的信息。有关更多信息，请参见 Function 语句 (Visual Basic)。
声明每个参数的方法与声明 Sub 过程 的方法相同。
数据类型
每个 Function 过程都具有数据类型，就和每个变量都具有数据类型一样。此数据类型由 Function 语句中的 As 子句指定，它确定函数返回给调用代码的值的数据类型。下面的示例声明演示了这一点。
Function yesterday() As Date
End Function
Function findSqrt(ByVal radicand As Single) As Single
End Function
有关更多信息，请参见 Function 语句 (Visual Basic) 中的“各部分说明”。
返回值
Function 过程发送回调用代码的值称为它的“返回值”。此过程使用以下两种方式之一返回此值：
它在过程的一个或多个语句中给自己的函数名赋值。在执行 Exit Function 或 End Function 语句之前，控制不会返回调用程序。下面的示例演示这一点。
Function 函数名称[(参数列表)] As 返回类型
' The following statement does not transfer control back to the calling code.
函数名称 = 表达式
' When control returns to the calling code, 表达式 is the return value.
End Function
它使用 Return 语句指定返回值，并直接将控制返回调用程序。下面的示例阐释这一点。
Function 函数名称[(参数列表)] As 返回类型
' The following statement immediately transfers control back to the calling code and returns the value of 表达式.
Return表达式
End Function
将返回值分配给函数名的优点是，直到控制遇到 Exit Function 或 End Function 语句时才从过程返回控制。这样就可以先分配一个初步的值，以后如有必要再进行调整。
有关更多信息，请参见 Function 语句 (Visual Basic) 中的“返回值”。
返回数组
如果 Function 过程返回数组数据类型，则不能在函数内部访问数组的各个元素。如果试图这样做，编译器会将它解释为对过程的递归调用。下面的示例演示这一点。
Function allOnes(ByVal n As Integer) As Integer()
For i As Integer = 1 To n - 1
' The following statement generates a COMPILER ERROR.
allOnes(i) = 1
Next i
' The following statement generates a COMPILER ERROR.
Return allOnes()
End Function
在前面的示例中，编译器将尝试的赋值 allOnes(i) = 1 解释为对赋值语句左边的 allOnes 的调用。它将尝试的 Return allOnes() 解释为没有参数的调用。两个语句都将生成编译器错误。
调用语法
调用 Function 过程的方法是将其名称和参数放在赋值语句的右边或表达式中。必须提供所有非可选参数的值，并且必须用括号将参数列表括起来。如果未提供任何参数，则也可以选择省略括号。
调用 Function 过程的语法如下所示：
值 = 函数名称[(参数列表)]
If ((函数名称[(参数列表)] / 3) <= 表达式) Then
当调用 Function 过程时，不必使用它的返回值。如果不使用它的返回值，将执行函数的所有操作，而忽略返回值。通常使用此方式调用 MsgBox。
声明与调用阐释
下面的 Function 过程通过给定的直角三角形的两条直角边计算该三角形的最长边（即斜边）。
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
下面的示例演示对 hypotenuse 的典型调用。
Dim testLength, testHypotenuse As Single
testHypotenuse = hypotenuse(testLength, 10.7)
Visual Basic 运行时函数
Visual Basic 运行时提供了许多函数，它们位于 Microsoft.VisualBasic 命名空间中。其中包括诸如 Beep 函数、MsgBox 函数 (Visual Basic) 和 StrComp 函数 (Visual Basic) 这样的常用函数。可以使用与调用自己的 Function 过程一样的方法调用这些函数。