3、VBA 编程基础(6)

常数、变量、或是表达式等来调用它。如果一个Function 过程没有参数，它的 Function 语句必须包含一个空的圆括号。函数会在过程的一个或多个语句中指定一个值给函数名称来返回值。

在下面的示例中，Celsius 函数会根据华氏温度来计算摄氏温度。当 Main 过程调用此函数时，会有一包含参数值的变量传递给此函数。而计算的结果会返回到调用的过程，并且显示在一个消息框中。 Sub Main（）

temp = Application.InputBox（Prompt:= _

"Please enter the temperature in degrees F.",

Type:=1）

MsgBox "The temperature is " & Celsius（temp） & "

degrees C."

End Sub

Function Celsius（fDegrees）

Celsius = （fDegrees - 32） * 5 / 9

End Function

11.3.5.2 Sub 过程

Sub 过程是一系列由 Sub 和 End Sub 语句所包含起来的 VisualBasic 语句，它们会执行动作却不能返回一个值。Sub 过程可有参数，例如常数、变量、或是表达式等来调用它。如果一个 Sub 过程没有参数，则它的 Sub 语句必须包含一个空的圆括号。

下面 Sub 过程中，每一行都有注释来解释它的作用：

声明过程命名为 GetInfo

该 Sub 过程没有参数

Sub GetInfo（）

声明字符串变量命名为 answer

Dim answer As String

指定 InputBox 函数的返回值给 answer

answer = InputBox（Prompt:="What is your name?"）

条件 If...Then...Else 语句

If answer = Empty Then

调用 MsgBox 函数

MsgBox Prompt:="You did not enter a name."

Else

MsgBox 函数与 answer 变量连接。

MsgBox Prompt:="Your name is " & answer

结束 If...Then...Else 语句

End If

结束 Sub 过程

End Sub

11.3.5.3 属性过程

属性过程是一系列的 Visual Basic 语句，它允许程序员去创建并操作自定义的属性。属性过程可以用来为窗体，标准模块，以及类模块创建只读属性。可被用来在代码中代替 Public 变量，当设置属性值时上述动作应被执行。