Sub 子程序

🎯功能

定义一个过程（子程序）。

📜语法

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

📥参数

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

📤返回

无

💡示例

例子1

TracePrint "准备调用子程序"
Call 子程序()
TracePrint "调用子程序结束了"

Sub 子程序()
   TracePrint "我是被你调用的子程序"
End Sub

例子2

Dim x
x = "你好"
TracePrint "准备调用子程序"
Call 子程序(x, "欢迎加入紫猫编程学园", 123)
TracePrint "调用子程序结束了"

Sub 子程序(参数1, 参数2, 参数3)
   TracePrint "我是被你调用的子程序"
   TracePrint "各参数为:", 参数1, 参数2, 参数3
End Sub

例子3

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与参数的括号，则子程序与自定义参数之间必须用空格隔开。
• 可以借助Exit Sub语句强制退出当前Sub函数