Question

四舍六入五单双为修约规则

四舍六入五单双为修约规则：
如下例题，修约至小数点后一位数：
26.84——————26.8__四舍（8后面小于等于4的舍去）
26.86——————26.6__六入（8后面大于等于6的进位）
26.85——————26.8__五双舍（8后面的数正好等于5，但8为双数，将5舍去）
26.95——————27.0__五单进行（9后面的数正好等于5，但9为单数，将5进位）

修约数字时，一定要一次修约，不能分次修约。如26.9499，不能先修约为26.95，再修约至27.0，而应一次修约至26.9。这一点在回弹表格插值时不会碰到，因为碳化深度精确至0.5，表格中也是按0、0.5、1.0......6.0列出，不会出现对碳化深度的插值。只是后面的查表对于回弹平均值精确到0.2，因此计算中对于0.1,0.3......等数则需要插值。编制回弹计算程序，一定要考虑修约规则，否则会出现手算与电算不一至致的情况。
谁能帮我编个vba代码

Answer 1

input a
if a*100 mod 10 >=6 or a*100 mod 10=5 and a*10 mod 2=1 then a=fix(a*10)/10+0.1
else if a*100 mod 10<=4 or a*100 mod 10=5 and a*10 mod 2=0 then a=fix(a*10)/10
我写的是BASIC可能格式不太对，我写的就是你那道数学题的程序。应该是对的。