vb.net取小数 vb取小数点后两位函数

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

用这个函数把

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.

相关问答

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

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

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

如vb.net取小数：3.425保留两位小数就是3.43

3.421保留两位小数就是3.42

又如vb.net取小数： 3.4263保留两位小数就是3.43

3.4233保留两位小数就是3.42

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

Q2: vb.net怎么设置数字保留小数点位数

举个例子

Dim a As Decimal = 1.999

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

结果为b = 2.00

四舍五入保留两位

Q3: 如何vb 取小数点后一位的值

方法1vb.net取小数：

先取10倍后小数vb.net取小数，再取整vb.net取小数，再与10求余数vb.net取小数，得到小数点后一位

代码：

Dim a As Double

a = 3.1415926

MsgBox "小数点后一位为：" Str(Int(a * 10) Mod 10), 0, "提示"

方法2：

先将小数用Format转成只有一位小数字符，然后用Right取最后一位字符，得到小数点后一位

代码：

Dim a As Double

a = 3.1415926

MsgBox "小数点后一位为：" Right(Format(a, ".#"), 1), 0, "提示"

方法3：

先将小数放大1倍，再取整数，然后用Right取最后一位字符，得到小数点后一位

代码：

Dim a As Double

a = 3.1415926

MsgBox "小数点后一位为：" Right(Str(Int(a * 10)), 1), 0, "提示"

方法4：

将数先放大10倍，取整，减去取整后放大10倍的数，得到得到小数点后一位的值

代码：

Dim a As Double

a = 3.1415926

MsgBox "小数点后一位为：" Str(Int(a * 10) - Int(a) * 10), 0, "提示"

关于vb.net取小数和vb取小数点后两位函数的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。