サブルーチンを作成する（VBscript）

Question

このスクリプトは非常に簡単ですが、私は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 

行目にポイント エラー「VBScriptのコンパイルエラー」を取得します。御時間ありがとうございます。

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プロシージャの本体を形成名、引数、コードを宣言するために使用されます。