怎么判断两个数是否10的倍数?on line 怎么判断两个数是否10的倍数?疑问:vb中,CDbl("101.5") - CDbl("91.5") / 10 结果怎么为9.999999999999999哪位有经验的DXJM给个好方法? online 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub Form_Load()MsgBox CDbl("101.5") - CDbl("91.5") / 10End Sub92.35 Private Sub Form_Load() MsgBox (CDbl("101.5") - CDbl("91.5")) / 10 End Sub 看看这个结果 楼上的意思是你给的示例结果不是9.99999999是92.35这个是数据类型的精度问题,你尝试转换为currency,改cdbl为 ccur Private Sub Form_Load()MsgBox (CDbl("1001.5") - CDbl("91.5")) / 10End Sub输入结果是91 Private Sub Form_Load() MsgBox (CDbl("101.5") - CDbl("91.5")) Mod 10End Sub用Mod取余,如果结果等于0就是10的倍数。 Private Sub Form_Load()MsgBox (CDbl("191.5") - CDbl("91.5")) / 10End Sub结果是10 不对吧Private Sub Form_Load()'MsgBox (CDbl("191.5") - CDbl("91.5")) / 10MsgBox 100.1 Mod 10End Sub你看一下输出多少? Private Sub Form_Load() If Int(100.1 / 10) = 100.1 / 10 Then MsgBox "倍数" Else MsgBox "不是倍数" End IfEnd Sub这样呢? 那就看看6楼的方法,转换成Currency格式的,不知道行不行? 这是浮点小数表示精度的问题。2 进制小数(计算机的方式)来表示 10 进制小数常常是无穷循环的。如果你的小数位数不超过 4 位,可以选择 Currency 数据类型,因为它在机内实际上是用整数表示的。(ccur("101.5") - ccur("91.5")) mod 10,等于 0 就是 10 的整数倍。 CDB1是什么呀,是个函数不是啊,要是你就写下吧! 让listview同步更新或刷新 好久沒來了,散散分,順便出個算法題,共同學習一下~~ 关于一个VB三角型运算的问题求解 “我的工程中MSHFlexGrid控件两种增加一行的方法怎么不管用?高手指教” 那么多人喜欢散分?!我也散100分! 写法问题(简单的) 一个关于MSFlexGrid的很菜的问题,小妹妹先谢谢大哥哥喽。 api 如何把各个刷卡机中ACCESS 的数据定时 服务器SQL SERVER 中 请问怎样才能像读txt文件那样读word文档? VB6 中怎样把Date类型转化为2008-12-1 12:4:25.123格式的字符串? vb 按钮怎么写
MsgBox CDbl("101.5") - CDbl("91.5") / 10
End Sub
92.35
Private Sub Form_Load()
MsgBox (CDbl("101.5") - CDbl("91.5")) / 10
End Sub 看看这个结果
MsgBox (CDbl("1001.5") - CDbl("91.5")) / 10
End Sub输入结果是91
Private Sub Form_Load()
MsgBox (CDbl("101.5") - CDbl("91.5")) Mod 10
End Sub用Mod取余,如果结果等于0就是10的倍数。
MsgBox (CDbl("191.5") - CDbl("91.5")) / 10
End Sub结果是10
不对吧
Private Sub Form_Load()
'MsgBox (CDbl("191.5") - CDbl("91.5")) / 10
MsgBox 100.1 Mod 10
End Sub你看一下输出多少?
Private Sub Form_Load()
If Int(100.1 / 10) = 100.1 / 10 Then
MsgBox "倍数"
Else
MsgBox "不是倍数"
End If
End Sub这样呢?