跳到主要内容

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函数