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

备注

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