la création d'un sous-programme (VBscript)

Question

Celui-ci devrait être extrêmement facile mais je suis nouveau script VB et pour une raison quelconque, je ne peux pas obtenir un sous-programme pour travailler. Je reçois l'erreur "erreur de compilation VBScript" il pointe à la ligne 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 

Désolé pour la question simple. Merci pour votre temps.

Answer 1

Un sous-routine ou une fonction doivent être définies en dehors de toute autre sous-routines et il devrait être appelée main Subroutine en cas de besoin.

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 permet de déclarer le nom, les arguments et le code qui forment le corps d'une sous-procédure dans VB Script.