Function 函数

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

功能

定义一个有返回值的过程(函数)。

语法

1
2
3
4
Function 函数名([...])
执行语句
[Return 返回值1[, ...]]
End Function

参数

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

返回值

可选,数据类型由值决定,允许多个返回值。

示例

例子1
1
2
3
4
5
6
7
TracePrint "准备调用函数"
函数()
TracePrint "调用函数结束了"
Function 函数()
TracePrint "我是被你调用的函数"
End Function
例子2
1
2
3
4
5
6
7
8
9
10
11
Dim 结果
TracePrint "准备调用有返回值的函数"
结果 = 加法(2, 8)
TracePrint "调用函数结束了, 结果 = ", 结果
Function 加法(数字1, 数字2)
TracePrint "我是被你调用的函数,", 数字1, 数字2
//返回两个参数相加之和
Dim 和 = 数字1 + 数字2
Return
End Function
例子3
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim i = 1
TracePrint "准备调用函数"
Call 函数(i)
TracePrint "调用函数结束了"
Function 函数(i)
TracePrint "我是被你调用的函数,i =", i
If i = 1 Then
TracePrint "函数强制退出了"
Exit Function
End If
TracePrint "函数正常退出"
End Function
例子4
1
2
3
4
5
6
7
8
Dim name, qq
name, qq = 函数()
TracePrint name, qq
' 多个函数返回值。
Function 函数()
Return "紫猫学院", 345911220
End Function

备注

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