判断两数是否可以除尽

最新推荐文章于 2021-04-27 20:02:23 发布

weixin_33910434

最新推荐文章于 2021-04-27 20:02:23 发布

阅读量2.7k

点赞数

文章标签：数据库 java python

原文链接：https://my.oschina.net/tedzheng/blog/2963086

版权

2019独角兽企业重金招聘Python工程师标准>>>

声明：思路来自于EXCELHOME的小fisher，此处只是搬运一下。

两个数转成整数后，

把除数中的因数2和5去掉，

然后判断除数和被除数是否存在整除关系就可以了

'函数:判断两数是否可以除尽
Function IsDivisible(x, y) As Boolean
'去除小数点
x = Replace(x, ".", "")
y = Replace(y, ".", "")
'转成长整型
x = CLng(x)
y = CLng(y)

'去除因子2
Do While y Mod 2 = 0
    y = y / 2
Loop

'去除因子5
Do While y Mod 5 = 0
    y = y / 5
Loop

'除数和被除数是否整除
If x Mod y = 0 Then
    IsDivisible = True
Else
    IsDivisible = False
End If
'sDivisible = IIf(a Mod b = 0, True, False)
End Function

Sub Main()
    Debug.Print IsDivisible(701, 15)
End Sub

转载于:https://my.oschina.net/tedzheng/blog/2963086