检查2个数字是否为倍数

Question

我需要一种方法来检查两个不同的数字是否是使用VB脚本相互的倍数。因此2和4将返回yes或positive但2和5将返回no或negative。

Answer 1

您可以使用Mod：

If int1 Mod int2 = 0 Then
    WScript.Echo int1 & " is a multiple of " & int2
End If

修改

如果你想测试 是否是另一个的倍数：

If int1 Mod int2 = 0 Then
    WScript.Echo int1 & " is a multiple of " & int2
ElseIf int2 Mod int1 = 0 Then 
    WScript.Echo int2 & " is a multiple of " & int1
Else
    WScript.Echo "Neither " & int1 & " nor " & int2 & " is a multiple of the other."
End If

编辑2：

Per @ Ansgar的建议如下，如果你只是需要知道一个是否是另一个的倍数但是不知道哪个，这里只是一个返回布尔值的函数：

Function TestMultiple(int1, int2) 
    TestMultiple = (int1 Mod int2 = 0) Or (int2 Mod int1 = 0)
End Function