VBS中Sub与Function的区别［资料］

VBS中Sub与Function的区别［资料］
在VBscript中，有两种procedure：Subprocedure与Function procedure。
一、SubProcedures
    VBScript的SubProcedure以Sub开始，以End Sub结束，中间是VBScript语句。Subprocedure完成一系列的动作，但是不产生返回值。SubProcedure也可以携带参数（如常量、变量、或表达式）。如果Sub Procedure不携带参数，则Sub语句也必须带有一对空括号。
    下面的这个SubProcedure例子使用了两个内建VBScript 函数 MsgBox以及InputBox。InputBox用来弹出提示框，提示用户输入相关信息；MsgBox用以显示计算结果。计算功能由用户自建的FunctionProcedure来实现，相关信息在接下来的内容中另行讨论。

复制内容到剪贴板
代码:    SubConvertTemp()
      temp = InputBox("Please enter the temperature in degrees F.",1)
      MsgBox "The temperature is " & Celsius(temp)& " degrees C."
    EndSub

二、
Function Procedures
    FunctionProcedure以Function开始，以End Function结束，中间是VBScript语句。FunctionProcedure与SubProcedure相似，但是FunctionProcedure可以返回值。FunctionProcedure也可以携带参数（常量、变量、表达式）。如果FunctionProcedure不携带参数，Function语句也必须带有一对空括号。FunctionProcedure在语句中，通过赋值语句将值赋给Funciton的名称，由此FunctionProcedure得到返回值。返回值的数据类型总是Variant类型。
    在下面的例子中，用户定义的FunctionCelsius将华氏温度换算为摄氏度。当在Sub procedure ConvertTemp中用Celsius(temp)调用这个Function时，将参数“Temp”传到Function中（注意：此时参数Temp已经有明确的数据了）。然后在Function中，进行换算工作，并将换算结果赋给Function名称“Celsius”，由此换算结果就成了Function的返回值，返回给调用它的Subprocedure，并通过Message语句显示出来。

复制内容到剪贴板
代码:
    SubConvertTemp()
      temp = InputBox("Please enter the temperature in degrees F.",1)
      MsgBox "The temperature is " & Celsius(temp)& " degrees C."
    EndSub
    FunctionCelsius(fDegrees)
      Celsius = (fDegrees - 32) * 5 / 9
    EndFunction

三、将数据传入或传出Procedure
    Procedure只能通过参数获得数据。参数名可以是任何有效的变量名称。用户可以用Sub语句或Function语句创建Procedure，无论是用哪种方式创建，Procedure名称后面都必须带有一对括号。所有的参数包括在这一对括号之中，用逗号分隔。
    在下面的例子中，“fDegrees”是一个参数，它将值传入Function“Celsius”。

复制内容到剪贴板
代码:Function Celsius(fDegrees)
      Celsius = (fDegrees - 32) * 5 / 9
    EndFunction

    要想从procedure获取返回值，必需使用Funcitonprocedure。要记住：只有Function procedure有返回值，Subprocedure没有返回值。三、如何在脚本中使用SubProcedure或Function Procedure
    Function总是放置于变量赋值语句的右侧，或放置于表达式中。如

复制内容到剪贴板
代码:
    Temp=Celsius(fDegrees)
    或
    MsgBox"The Celsius temperature is " & Celsius(fDegrees)& " degrees."

    在调用Subprocedure时，在procedure名字后带上所有必须的参数，参数之间用逗号隔开。Call语句不是必须的，但是如果使用Call语句来调用它，procedure名字后面的参数必须用括号括起来。
下面的例子表达了两种不同的调用方法：一个使用Call语句来调用，另一个没有使用Call语句。两种方法的是殊道同归。

复制内容到剪贴板
代码:
    CallMyProc(firstarg, secondarg)
    MyProcfirstarg, secondarg

    注意：在使用Call语句调用SubProcedure时，参数必须用括号括起来。
引文来源  VBS中Sub与Function的区别