Function 函数

🎯功能

定义一个过程（函数）。

📜语法

Function 函数名([自定义参数1, 自定义参数2, ...])
    执行语句
    [函数名=返回值]
End Function

📥参数

参数	类型	解释
函数名	标识符	任意有效的标识符。
执行语句	代码块	任意有效的代码块。
自定义参数	标识符	可选参数，允许多个，任意有效的标识符。

📤返回

可选，自定义返回值。

💡示例

例子1

TracePrint "准备调用函数"
Call 函数()
TracePrint "调用函数结束了"

Function 函数()
   TracePrint "我是被你调用的函数"
End Function

例子2

Dim 结果
TracePrint "准备调用有返回值的函数"
结果 = 加法(2, 8)
TracePrint "调用函数结束了, 结果 = ", 结果

Function 加法(数字1, 数字2)
   TracePrint "我是被你调用的函数，", 数字1, 数字2
   //返回两个参数相加之和
   加法 = 数字1 + 数字2
End Function

例子3

Dim i
i = 1
TracePrint "准备调用函数"
Call 函数(i)
TracePrint "调用函数结束了"

Function 函数(i)
   TracePrint "我是被你调用的函数，i =", i
   If i = 1 Then
      TracePrint "函数强制退出了"
      Exit Function
   End If
   TracePrint "函数正常退出"
End Function

📘备注

• 函数可以代替所有子程序，而子程序无法代替所有函数，因为函数有返回值，子程序没有返回值。
• 可以借助Exit Function语句强制退出当前Function函数