private sub text1_change()
创新互联-专业网站定制、快速模板网站建设、高性价比赣州网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式赣州网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖赣州地区。费用合理售后完善，十载实体公司更值得信赖。
text1.text=format(val(text1.text),"0.00")
end sub
代码分析：
Math.Floor:返回小于或等于指定数字的最大整数。
Fix:返回数字的整数部分。
Math.Floor 和 Fix 函数都移除 Number 的小数部分并返回得到的整数值。
Math.Floor 和 Fix 函数之间的区别在于：如果 Number 为负，则 Math.Floor 返回小于或等于 Number 的第一个负整数，而 Fix 返回大于或等于 Number 的第一个负整数。例如，Math.Floor 将 -8.4 转换成 -9，而 Fix 将 -8.4 转换成 -8。
你的要求：如果你的要求是直接舍去，那么应当采用Fix方法，考虑到时负数的情况，那么采用Math.Floor将会出现非预期的结果。
测试结果：见附图。
欢迎交流。
VB用Format 函数即可实现。
Format 函数，返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
Print Format(3.1415926, "#.##")
*#：表示一个数字位。#的个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段长度，则该数值靠区段的左端显示。如果要显示的数值的位数大于指定的区段长度，则数值照原样显示。 要显示多位，只需要设置数字位数即可，例如：
Print format(3.14159262654321,”#.#######”)
显示：3.1415926
