VBScript 过程

在 VBScript 中，过程被分为两类：Sub 过程和 Function 过程。 [h1]Sub 过程[/h1][b]Sub[/b] 过程是包含在 [b]Sub[/b] 和 [b]End Sub[/b] 语句之间的一组 VBScript 语句，执行操作但不返回值。[b]Sub[/b] 过程可以使用参数（由调用过程传递的常数、变量或表达式）。如果 [b]Sub[/b] 过程无任何参数，则 [b]Sub[/b] 语句必须包含空括号 ()。 下面的 [b]Sub[/b] 过程使用两个固有的（或内置的）VBScript 函数，即 MsgBox 和 InputBox，来提示用户输入信息。然后显示根据这些信息计算的结果。计算由使用 VBScript 创建的 [b]Function[/b] 过程完成。此过程在以下讨论之后演示。

[code] Sub ConvertTemp()    temp = InputBox("[/code]请输入华氏温度。[code]", 1)[/code][code]    MsgBox "[/code]温度为[code] " & Celsius(temp) & " [/code]摄氏度。[code]"[/code][code] End Sub[/code]

[h1]Function 过程[/h1][b]Function[/b] 过程是包含在 [b]Function[/b] 和 [b]End Function[/b] 语句之间的一组 VBScript 语句。[b]Function[/b] 过程与 [b]Sub[/b] 过程类似，但是 [b]Function[/b] 过程可以返回值。[b]Function[/b] 过程可以使用参数（由调用过程传递的常数、变量或表达式）。如果 [b]Function[/b] 过程无任何参数，则 [b]Function[/b] 语句必须包含空括号 ()。[b]Function[/b] 过程通过函数名返回一个值，这个值是在过程的语句中赋给函数名的。[b]Function[/b] 返回值的数据类型总是 [b]Variant[/b]。 在下面的示例中，Celsius 函数将华氏度换算为摄氏度。[b]Sub[/b] 过程 ConvertTemp 调用此函数时，包含参数值的变量被传递给函数。换算结果返回到调用过程并显示在消息框中。

[code] Sub ConvertTemp()     temp = InputBox("[/code]请输入华氏温度。[code]", 1)[/code][code]     MsgBox "[/code]温度为[code] " & Celsius(temp) & " [/code]摄氏度。[code]"[/code][code] End Sub[/code][code] Function Celsius(fDegrees)[/code][code]     Celsius = (fDegrees - 32) * 5 / 9[/code][code] End Function[/code]

[h1]过程的数据进出[/h1]给过程传递数据的途径是使用参数。参数被作为要传递给过程的数据的占位符。参数名可以是任何有效的变量名。使用 [b]Sub[/b] 语句或 [b]Function[/b] 语句创建过程时，过程名之后必须紧跟括号。括号中包含所有参数，参数间用逗号分隔。例如，在下面的示例中，fDegrees 是传递给 Celsius 函数的值的占位符：

[code] Function Celsius(fDegrees)    Celsius = (fDegrees - 32) * 5 / 9 End Function[/code]

要从过程获取数据，必须使用 [b]Function[/b] 过程。请记住，[b]Function[/b] 过程可以返回值；[b]Sub[/b] 过程不返回值。 [h1]在代码中使用 Sub 和 Function 过程[/h1]调用 [b]Function[/b] 过程时，函数名必须用在变量赋值语句的右端或表达式中。例如：

[code] Temp = Celsius(fDegrees)[/code]

或

[code] MsgBox "[/code]温度为[code] " & Celsius(fDegrees) & " [/code]摄氏度。[code]"[/code]

调用 [b]Sub[/b] 过程时，只需输入过程名及所有参数值，参数值之间使用逗号分隔。不需使用 Call 语句，但如果使用了此语句，则必须将所有参数包含在括号之中。 下面的示例显示了调用 MyProc 过程的两种方式。一种使用 [b]Call[/b] 语句；另一种则不使用。两种方式效果相同。

[code] Call MyProc(firstarg, secondarg) MyProc firstarg, secondarg[/code]

请注意当不使用 [b]Call[/b] 语句进行调用时，括号被省略。