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

Sub 子程序

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

功能

定义一个过程（子程序）

语法

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

参数

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

返回值

无

示例

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

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

Sub 子程序(参数1, 参数2, 参数3)
   TracePrint "我是被你调用的子程序"
   TracePrint "各参数为:" & 参数1 & ", " & 参数2 & ", " & 参数3
End Sub
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与参数的括号，则子程序与自定义参数之间必须用空格隔开。