vb保留三位小数

这个较简单,我给你一个函数：XiaoShu(保留小数前的原始数值,保留位数）

创新互联主要从事成都网站设计、成都做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务南郑,十载网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575

调用方法如下：

假设你的数字存在变量A中,现在要将A中的数字保留三位小数（不四舍五入）放入B中,则

Dim A as Single, B as Single

A = 1.2568

B=XiaoShu(A,3)

Print A  "保留3位小数点的结果是（不四舍五入） "  B

从输出B的值可以看到,已经是三位数了（没有进位）.

下面的函数复制到你的vb代码的最后即可：

Function XiaoShu(ByVal a As Single, b As Long) As Single

a = CStr(a)

XiaoShu = Left(a, InStr(1, a, ".") + b)

End Function

vb.net如何保留三位非零数

方法如下：

方法一：

保留三位整数：

Dim X As Single

X = Val(InputBox("输入一个任意实数！"))

Print Format(X, "000")

保留三位小数：

Dim X As Single

X = Val(InputBox("输入一个任意实数！"))

Print Format(X, ".000")

方法二：

用Format函数，比如通过text输入，转换后在窗体打印：Private Sub Command1_Click()

n = Text1.Text

t = Format(n, "000.###")

Print t

End Sub

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

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

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就自动没了。

VB.NET中 datagridview单元格内容改变时设置单元格显示为3位小数

DataGridViewCellStyle方法不通用，区域性设置太麻烦了。

以下是程序方法：

可以先将数据源放入一张表中，不要直接绑定。新表是可以改string的。

那个列必须是string，不能是single

代码写在cellendedit的过程中，每次用户退出单元格编辑后引发

dim a1 as single

dim a2 as string

Try

a1=csng(当前单元格值)

Catch ex As Exception

MessageBox.Show("输入条件不符合要求！", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

Exit Sub

End Try

if a11 then

a2=formate(a1,"0.0000")

else

....

endif

完事后a2赋值给当前单元格即可。

分享名称：vb.net中三位小数点,c小数点后两位用什么类型
文章地址：http://scyanting.com/article/dsegsjs.html