程序

Question

Private Sub Form_Click( )
Dim i As Integer, Sum As Integer
For I = 0.5 To 8.5 Step 2.5
Sum = Sum + I * 10
Next I
Print Sum
Print I
End Sub最后结果是200
          10
是怎么算的啊 我算出来是170 10.5，哪里不对啊

Answer 1

i参数只能是整数，vb自动5舍6入了，单步跟踪一下就知道了

Answer 2

I = 0.5与Sum = Sum + I * 10 中的i是两个不同的变量是吗

Answer 3

谢谢 
asftrhgjhkjlkttttttt
在vb中都是5舍6入吗

Answer 4

你把I都定义整数，当然不是你要的结果了。
VB不是5舍6入，是0.5以及以下就会舍。但只要比0.5大就会入。
比如0.5+0.00000000000000000001都会入

Answer 5

所以需要四舍五入时，记得把结果+0.0000000000001，然后再用Round()函数，就会得出正确值。