在起始声明语句(Sub 或 Function)和结束声明语句(End Sub 或 End Function)之间将过程括起来。 所有过程的代码都位于这些语句之间。
过程不能包含另一个过程,因此其起始语句和结束语句必须位于任何其他过程之外。
如果代码在不同位置执行相同的任务,则可以将任务编写为过程一次,然后从代码中的不同位置调用它。
创建一个不返回值的函数或过程
在任何其他过程外,使用
Sub语句,后接End Sub语句。在
Sub语句中,关键字Sub后应跟随过程的名称,然后在括号中列出参数列表。将过程的代码语句放在
Sub和End Sub之间。
创建一个返回值的函数
在任何其他过程外,使用
Function语句,后接End Function语句。在
Function语句中,紧跟Function关键字之后使用过程的名称,然后在括号中给出参数列表,接着添加As子句来指定返回值的数据类型。将过程的代码语句放在
Function和End Function之间。使用
Return语句将数值返回给调用代码。
将新过程与旧的重复代码块连接起来
请确保在旧的代码可以访问的地方定义新过程。
在旧的重复代码块中,将执行重复任务的语句替换为调用
Sub或Function过程的单个语句。如果过程是
Function返回值的过程,请确保调用语句使用返回的值执行作,例如将其存储在变量中,否则该值将丢失。
示例:
以下 Function 过程计算直角三角形的最长一侧或斜边,给定其他两边的值:
Function Hypotenuse(side1 As Double, side2 As Double) As Double
Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function