如何:创建返回值的过程
更新:2007 年 11 月
使用 Function 过程将值返回给调用代码。
创建返回值的过程
在任何其他过程之外,使用一条 Function 语句,后跟一条 End Function 语句。
在 Function 语句中,Function 关键字后跟过程名称,随后是放在括号中的参数列表。
在括号后跟 As 子句,以指定返回值的数据类型。
将过程的代码语句放在 Function 语句与 End Function 语句之间。
使用 Return 语句将值返回给调用代码。
下面的 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)