Question

VB中的一个输出小问题

各位大哥，小弟在VB中写了一小节程序，不理解结果为什么会是这样
Private Sub Command1_Click()
Dim a As Integer
a = 50
MsgBox Int(a * 0.6)
MsgBox a * 0.6
End Sub
第一个输出为29，第二个输出为30.
我想请问一下，为什么会出现这种结果。因为我想当变量A为其它值的时候，只得到整数，不想要小数。请问用什么函数。

Answer 1

你真刺到vb6的痛处了，我测试也是这样，同时在vb2005里面已经修正了，你用的函数没错
如果计算的结果确实存在小数部分的话那就是这个函数，

以下是vb的msdn

返回参数的整数部分。

语法

Int(number)

Fix(number)

必要的 number 参数是 Double 或任何有效的数值表达式。如果 number 包含 Null，则返回 Null。

说明

Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数。

Int 和 Fix 的不同之处在于，如果 number 为负数，则 Int 返回小于或等于 number 的第一个负整数，而 Fix 则会返回大于或等于 number 的第一个负整数。例如，Int 将 -8.4 转换成 -9，而 Fix 将 -8.4 转换成 -8。

Answer 2

试试：
Private Sub Command1_Click()
Dim a As Double
a = 50
MsgBox Int(a * 0.6)
MsgBox a * 0.6
End Sub

Answer 3

这个是VB6的BUG没有办法的。VB2005已经修正。。你只能换别的方式实现了。

Answer 4

估计是浮点精度问题
你逐行测代码，应该会发现
a*0.6=29.99999999什么的
int（29.999999）=2
---------------------------------
Private Sub Command1_Click()
Dim a As Integer
a = 50
MsgBox cInt(a * 0.6)
MsgBox a * 0.6
End Sub
----------------------
cint是四舍五入

Answer 5

int（number）中的number指“不大于该值的最大整数”