创建子例程（VBscript）

这应该是非常容易，但我是新的VB脚本，由于某种原因，我不能得到一个子程序的工作。我得到错误“VBScript编译错误” 它指向第5行

子添加（a，b）

---

很抱歉问这么简单的问题。谢谢您的时间。

一个子例程或一个函数应该在任何其他子例程之外定义，并且应该在需要时从主子例程调用它

Function Add(A, B)
  Add = CInt(A) + CInt(B)
End Function
'Here Add should be a Function, not a Subroutine.

Sub CATmain()
Dim Sum
  Sum = Add(5, 3)
  'Calling Add and store its result in Sum Variable
  MsgBox "Sum: " + CStr(Sum)
End Sub

CATmain
'Calling your main Subroutine CATmain

用于声明在VB脚本中构成子过程主体的名称、参数和代码

Function Add(A, B)
  Add = CInt(A) + CInt(B)
End Function
'Here Add should be a Function, not a Subroutine.

Sub CATmain()
Dim Sum
  Sum = Add(5, 3)
  'Calling Add and store its result in Sum Variable
  MsgBox "Sum: " + CStr(Sum)
End Sub

CATmain
'Calling your main Subroutine CATmain