在vb中如何定义函数？

takeiteasy

在vb中如何定义函数？

tony_sun76421

定义自己的函数-Funtion 过程
Visual Basic 包含内置的、或内部的函数，如 Sqr、Cos 或 Chr。此外，还可用 Function 语句编写自己的 Function 过程。

函数过程的语法是：

Private|Public][Static]Function procedurename (arguments) [As type]
statements

End Function

与 Sub 过程一样，Function 过程也是一个独立的过程，可读取参数、执行一系列语句并改变其参数的值。与子过程不同，Function 过程可返回一个值到调用的过程。在Sub 过程与Function 过程之间有三点区别：

一般说来，让较大的语句或表达式的右边包含函数过程名和参数 (returnvalue = function)，这就调用了函数。

与变量完全一样，函数过程有数据类型。这就决定了返回值的类型。（如果没有 As 子句，缺省的数据类型为 Variant。）

给 procedurename 自身赋一个值，就可返回这个值。Function 过程返回一个值时，该值可成为较大表达式的一部分。
例如，下面是已知直角三角形两直角边的值，计算第三边（斜边）的函数：

Function Hypotenuse (A As Integer, B As Integer) As String
   Hypotenuse = Sqr (A ^ 2 + B ^ 2)
End Function

在 Visual Basic 中调用 Function 过程的方法和调用任何内部函数的方法是一样的：

Label1.Caption = Hypotenuse(CInt(Text1.Text), _
CInt(Text2.Text))
strX = Hypotenuse (Width, Height)

详细信息 关于函数过程的详细信息，请参阅语言参考中的“Function 语句”。调用各种类型的过程的技巧，在本章后面的“调用过程”部分有详细讨论。