vb.net小数显示问题的简单介绍

VB中，例如，保留小数点后3位，应该是1.170，但是它总是显示为1.17,怎么才能显示0？

Format函数的返回值类型是字符串（只有字符串才有可能保留后面的0），如果把它再赋值给一个数值变量（比如Single或Double），那么它又变为数值了，后面的0肯定就没了。换句话说就是Format函数完全做了无用功！

创新互联建站是一家专注于网站建设、成都网站制作与策划设计,西和网站建设哪家好?创新互联建站做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:西和等地区。西和做网站价格咨询:028-86922220

Format函数的作用主要是用来控制输出格式的，不建议用来转换数据的实际格式（比如取整、四舍五入什么的）。取整用Int函数，保留小数位用Round函数。

你测试一下下面的语句就清楚了：

Dim num As Single, s As String

num = 1.17

Print Format(num, "0.000") '显示的将是1.170，说明Format函数是有效的

s = Format(num, "0.000")

Print s '显示的也是1.170，因为s是字符型的，所以后面的0被保留了

num = Format(num, "0.000")

Print num '这次显示的将是1.17，因为num是数值型，而小数中最后面的0对于数字来说是无意义的，所以那个0就自动没了。

这是vb6显示小数的方式。自己做一个字符串处理函数吧，如果绝对值小于1，就自动加上一个0。

1）使用Format函数格式显示小数。

Format 函数，返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。

Private Sub Form_Click()

Debug.Print Format(4 / 10, "0.0000")

Debug.Print Format(1 / 7, "0.######")

End Sub

2）开始菜单-控制面板-时间、语言和区域-更改日期、时间或数字格式-其它设置-零起始显示-选0.7。

我靠.你这个要求奇葩哦.都是控制一列的数据类型.你要这样.那你数据库就全部定义成双精度的类型.在读取的时候.

当前行为第一行的CTYPE(内容,De....) 忘记了.这样你第一行就是带小数点的

判断当前行数大于1.全部 CTYPE(内容,INTEGER) 就可以了. 这样一来.第二行开的的全部都是整数型的了

是因为2个DOUBLE 的失准了浮点数是存储方式和其它不一样，它使用基数和指数两部分存储，因此计算时会出现误差。

Dim a As Variant

a = CDec(75.99)-CDec（71.84）就可以了的

Variant 精度会更好，遇到减法的时候用可保万无一失

定义类型的时候用 Variant，要转化的时候用 CDec即可

举个例子

Dim a As Decimal = 1.999

Dim b As Decimal = Math.Round(a, 2)

结果为b = 2.00

四舍五入保留两位

文章名称：vb.net小数显示问题的简单介绍
转载注明：http://scyanting.com/article/hchceo.html