VBscrīpt的SubProcedure以Sub开始,以End Sub结束,中间是VBscrīpt语句。Sub procedure完成一系列的动作,但是不产生返回值。SubProcedure也可以携带参数(如常量、变量、或表达式)。如果SubProcedure不携带参数,则Sub语句也必须带有一对空括号。
下面的这个SubProcedure例子使用了两个内建VBscrīpt函数MsgBox以及InputBox。InputBox用来弹出提示框,提示用户输入相关信息;MsgBox用以显示计算结果。计算功能由用户自建的FunctionProcedure来实现,相关信息在接下来的内容中另行讨论。
Sub ConvertTemp()
temp = InputBox("Please enter the temperature in degrees F.", 1)
MsgBox "The temperature is " &Celsius(temp)& " degrees C."
End Sub
2. Function Procedures
FunctionProcedure以Function开始,以End Function结束,中间是VBscrīpt语句。FunctionProcedure与SubProcedure相似,但是FunctionProcedure可以返回值。FunctionProcedure也可以携带参数(常量、变量、表达式)。如果FunctionProcedure不携带参数,Function语句也必须带有一对空括号。FunctionProcedure在语句中,通过赋值语句将值赋给Funciton的名称,由此FunctionProcedure得到返回值。返回值的数据类型总是Variant类型。
在下面的例子中,用户定义的FunctionCelsius将华氏温度换算为摄氏度。当在SubprocedureConvertTemp中用Celsius(temp)调用这个Function时,将参数“Temp”传到Function中(注意:此时参数Temp已经有明确的数据了)。然后在Function中,进行换算工作,并将换算结果赋给Function名称“Celsius”,由此换算结果就成了Function的返回值,返回给调用它的Sub procedure,并通过Message语句显示出来。
Sub ConvertTemp()
temp = InputBox("Please enter the temperature in degrees F.", 1)
MsgBox "The temperature is " & Celsius(temp) & " degrees C."
End Sub
Function Celsius(fDegrees)
Celsius = (fDegrees - 32) * 5 / 9
End Function
3. 将数据传入或传出Procedure
Procedure只能通过参数获得数据。参数名可以是任何有效的变量名称。用户可以用Sub语句或Function语句创建Procedure,无论是用哪种方式创建,Procedure名称后面都必须带有一对括号。所有的参数包括在这一对括号之中,用逗号分隔。
在下面的例子中,“fDegrees”是一个参数,它将值传入Function“Celsius”。
Function Celsius(fDegrees)
Celsius = (fDegrees - 32) * 5 / 9
End Function
要想从procedure获取返回值,必需使用Funciton procedure。要记住:只有Function procedure有返回值,Sub procedure没有返回值。
4. 如何在脚本中使用Sub Procedure或Function Procedure
Function总是放置于变量赋值语句的右侧,或放置于表达式中。如
Temp=Celsius(fDegrees)
或
MsgBox "The Celsius temperature is " & Celsius(fDegrees) & " degrees."
在调用Sub procedure时,在procedure名字后带上所有必须的参数,参数之间用逗号隔开。Call语句不是必须的,但是如果使用Call语句来调用它,procedure名字后面的参数必须用括号括起来。
下面的例子表达了两种不同的调用方法:一个使用Call语句来调用,另一个没有使用Call语句。两种方法的是殊道同归。
Call MyProc(firstarg, secondarg)
MyProc firstarg, secondarg
注意:在使用Call语句调用Sub Procedure时,参数必须用括号括起来。