在VisualBasic6.0中实现0.5数值修约

     今天在编程的过程中，需要实现0.5数值修约，想了很长时间，总算研究出来了！

    要求将计算结果进行0.5数值修约，并且保留一位小数。具体实现过程是这样的：首先将需要修约的数值保留两位小数，然后乘以2，保留为整数，最后再除以2，保留1位小数。这样就达到了目的。

    代码如下：

    Text2.Text = Format(Round(Format(Text1.Text, "0.00") * 2, 0) / 2, "0.0")