vb.net保留有效数字 vb中保留一位小数的代码

vb.net 怎样使计算结果只保留四位小数？

用这个函数把

创新互联于2013年成立，先为北京等服务建站，北京等地企业，进行企业商务咨询服务。为北京企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。

Math.Round 方法 (Decimal, Int32)

将小数值舍入到指定精度。

命名空间： System

程序集： mscorlib（在 mscorlib.dll 中）

语法

Visual Basic（用法）

Dim d As Decimal

Dim decimals As Integer

Dim returnValue As Decimal

returnValue = Math.Round(d, decimals)

参数

d

类型：System.Decimal

要舍入的小数。

decimals

类型：System.Int32

返回值中的小数位数（精度）。

返回值

类型：System.Decimal

精度等于 decimals，最接近 d 的数字。

Math.Round(3.4666666, 4) 结果是 3.4667.

VB.NET 怎么样保留后面的小数位

保留两位小数的一般方法是四舍五入法。

保留两位小数，看千分位。是4或比4小舍去；是5或比5大舍去以后向前一位进1。

如：3.425保留两位小数就是3.43

3.421保留两位小数就是3.42

又如： 3.4263保留两位小数就是3.43

3.4233保留两位小数就是3.42

再如：3.4保留两位小数就是3.40

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