创建子程序 (VBscript)

Question

这个应该非常简单，但我是 VB 脚本的新手，出于某种原因我无法让子例程工作。我收到错误“VB脚本编译错误” 它指向第 5 行 Sub add(a,b)

Language="VBSCRIPT"
Sub CATmain()

add 5, 3
Sub add (a, b)
sum=a+b
msgbox sum
End Sub

End Sub

抱歉这个简单的问题。谢谢你的时间。

Answer 1

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

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

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

创建子程序 (VBscript)

creating a subroutine (VBscript)

vbscript

subroutine