02.基本命令03.控制命令
,

Function 函数

文章目录
  1. 1. 功能
  2. 2. 语法
  3. 3. 参数
  4. 4. 返回值
  5. 5. 示例
  6. 6. 备注

功能

定义一个过程（函数）

语法

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

参数

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

返回值

可选，自定义返回值。

示例

1
2
3
4
5
6
7
TracePrint "准备调用函数"
Call 函数()
TracePrint "调用函数结束了"

Function 函数()
   TracePrint "我是被你调用的函数"
End Function
1
2
3
4
5
6
7
8
9
10
Dim 结果
TracePrint "准备调用有返回值的函数"
结果 = 加法(2, 8)
TracePrint "调用函数结束了, 结果 = " & 结果

Function 加法(数字1, 数字2)
   TracePrint "我是被你调用的函数，" & 数字1 & ", " & 数字2
   //返回两个参数相加之和
   加法 = 数字1 + 数字2
End Function
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

备注

  • 函数可以代替所有子程序，而子程序无法代替所有函数，因为函数有返回值，子程序没有返回值。