如何在VB中实现取小数点后几位的数值?

1、打开VB6.0软件，新建一个标准exe工程；

成都创新互联长期为上千多家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为奎文企业提供专业的成都网站设计、网站制作，奎文网站改版等技术服务。拥有10年丰富建站经验和众多成功案例,为您定制开发。

2、在设计界面上新建一个Command控件；

3、双击Command1控件，进入代码编辑界面，输入代码：

Private Sub Command1_Click()

Dim res As Double

res = Format(1 / 3, "0.000")

Print res;

End Sub

4、运行工程，单击按钮，可以看到数据被保留三位小数；

5、总结，想要保留几位小数，直接设置即可，如想设置保留5位小数，设置如下：

format(1/3,"0.00000")

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.

vb取整数部分取小数部分代码

Option Explicit

Private Type qx

zs As Long

xs As Single

End Type

Private Sub Command1_Click()

Call xs(100.365)

End Sub

Function xs(a As String)

Dim i As Integer, xx As qx

i = InStr(1, a, ".")

xx.xs = Mid(a, i, Len(a) - i + 1)

xx.zs = Mid(a, 1, i - 1)

Print a + "  整数部分" + CStr(xx.zs) + "小数部分" + CStr(xx.xs)

End Function

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

举个例子

Dim a As Decimal = 1.999

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

结果为b = 2.00

四舍五入保留两位

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