Function 为什么除法返回错误的余数？

这是VBScript中的一段简单代码，但它没有显示预期的输出。它显示值

1

两次。它应该显示

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

---

5模2的结果是1，因为5-（2*2）=1。因此，您的脚本显示正确的内容。

5 Mod 2的结果是1，因为5-（2*2）=1。因此，您的脚本将显示正确的内容。

您有两个Msgbox。为什么这段代码要显示你的文本三次？@Gosha_Fighten:不，它不会显示结果三次。我需要显示正确的结果。我使用消息框两次来显示正确答案。也许我应该让它忽略错误的一个。你有两个Msgbox。为什么这段代码要显示你的文本三次？@Gosha_Fighten:不，它不会显示结果三次。我需要显示正确的结果。我使用消息框两次来显示正确答案。也许我应该让它忽略错误的一个。