vb.net小数点位数 vba 小数点

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保留小数点后2位怎么编写？

VB用Format 函数即可实现。

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

Print Format(3.1415926, "#.##")

*#：表示一个数字位。#的个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段长度，则该数值靠区段的左端显示。如果要显示的数值的位数大于指定的区段长度，则数值照原样显示。 要显示多位，只需要设置数字位数即可，例如：

Print format(3.14159262654321,”#.#######”)

显示：3.1415926

Q2: VB.net，小数点直接进一位的函数?

'自定义一个函数vb.net小数点位数：功能是给小数直接进一位

'num 　要操作vb.net小数点位数的小数

'n　保留几位小数vb.net小数点位数，

Function getNumber(num As Double, n As Integer) As Double

Dim a As Double

a = Int(num * (10 ^ n)) / (10 ^ n)

If a = num Then

getNumber = a

Else

getNumber = a + 1 / (10 ^ n)

End If

End Function

-------------------------

调用一下vb.net小数点位数：

Private Sub Command1_Click()

MsgBox (getNumber(3.1415926, 2))

End Sub

得到3.15

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

举个例子

Dim a As Decimal = 1.999

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

结果为b = 2.00

四舍五入保留两位

Q4: 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小数点位数和vba 小数点的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。