跳到主要内容

Sub 子程序

🎯功能​

定义一个过程（子程序）

📜语法​

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

📥参数​

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

📤返回​

无

💡示例​

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

Sub 子程序()
   TracePrint "我是被你调用的子程序"
End Sub
Dim x
x = "你好"
TracePrint "准备调用子程序"
Call 子程序(x, "欢迎加入紫猫编程学院", 345911220)
TracePrint "调用子程序结束了"

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