なぜ部門は間違った剰余を返すのですか？

Question

これはVBScriptの単純なコードですが、期待される出力が表示されません。値1が2回表示されます。残りは3であるため、3と表示されます。正確な結果を表示するために新しい変数を定義する必要がありますか？

Dim a, b, c, d 

a = 5 
b = 2 
c = division(a, b) 
MsgBox "The division is zero" & " " & c 
d = division(a, b) 
MsgBox "The division is not zero" & " " & d 

Function division(a,b) 
    Dim Varinfn 
    Varinfn = a Mod b 
    If Varinfn = 0 Then 
    division = Varinfn 
    Else 
    division = Varinfn 
    End If 
End Function 

Answer 1

5 - （2 * 2）= 1であるため、5 Mod 2の結果は1です。したがって、スクリプトは正しいものを表示します。