vb中integer类型四舍五入问题.我的程序很简单,是这样的PrivateSubCommand1Click()DimaAsStringa=Val(Text1.Text)MsgBox"结果为:"&CInt(a)EndSub运行这个程序时,我在text1中输入的每一个偶数后带.5都不会进

Question

vb中integer类型四舍五入问题.
我的程序很简单,是这样的
Private Sub Command1_Click()
Dim a As String
a = Val(Text1.Text)
MsgBox "结果为:" & CInt(a)
End Sub
运行这个程序时,我在text1中输入的每一个偶数后带.5都不会进行四舍五入
比如说2.5,4.5,8.6,12.5 124.5 ,这些数运行后是小数点前的整数,并没有四舍五入,如果改成.6就会四舍五入了,这是为什么.
我现在还是初学者,希望大家可以仔细的说明下.

Answer 1

有个国家标准GB3101-93,在其附录B中对数值的修约有详细规定.
简明口诀为 “4舍6入5看齐,奇进偶不进 ”.再详细点说,就是
4舍6入5看右
5右有数便进1
5右为0看左方
左为奇数要进1
左为偶数全舍去
2.5,4.5等,都因为“5后为0看左方,左为偶数全舍去”,就成了2,4等.
.6就不用说了,因为“6入”.
还有Cint(3.5)=4,因为“左为奇数要进1”
Cint(4.5)=4,因为“左为偶数全舍去”.