Sub 子程序

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

功能

定义一个过程(子程序)。

语法

1
2
3
Sub 子程序名([自定义参数1, 自定义参数2, ...])
执行语句
End Sub

参数

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

返回值

示例

例子1
1
2
3
4
5
6
7
TracePrint "准备调用子程序"
Call 子程序()
TracePrint "调用子程序结束了"

Sub 子程序()
TracePrint "我是被你调用的子程序"
End Sub
例子2
1
2
3
4
5
6
7
8
9
10
Dim x
x = "你好"
TracePrint "准备调用子程序"
Call 子程序(x, "欢迎加入紫猫编程学院", 123)
TracePrint "调用子程序结束了"

Sub 子程序(参数1, 参数2, 参数3)
TracePrint "我是被你调用的子程序"
TracePrint "各参数为:", 参数1, 参数2, 参数3
End Sub
例子3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i
i = 1
TracePrint "准备调用子程序"
Call 子程序(i)
TracePrint "调用子程序结束了"

Sub 子程序(i)
TracePrint "我是被你调用的子程序,i =", i
If i = 1 Then
TracePrint "子程序强制退出了"
Exit Sub
End If
TracePrint "子程序正常退出"
End Sub

备注

  • 函数可以代替所有子程序,而子程序无法代替所有函数,因为函数有返回值,子程序没有返回值。
  • 若省略调用关键字Call与参数的括号,则子程序与自定义参数之间必须用空格隔开。