第50课 Function函数介绍 - 《按键精灵9 · 经典教程》

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

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

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

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