VB用Format 函数即可实现。
我们提供的服务有：成都网站设计、成都网站制作、微信公众号开发、网站优化、网站认证、新丰ssl等。为数千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的新丰网站制作公司
Format 函数，返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
Print Format(3.1415926, "#.##")
*#：表示一个数字位。#的个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段长度，则该数值靠区段的左端显示。如果要显示的数值的位数大于指定的区段长度，则数值照原样显示。 要显示多位，只需要设置数字位数即可，例如：
Print format(3.14159262654321,”#.#######”)
显示：3.1415926
'这一个题我有答过了。可以看我回答的链接。
'使用Format返回指定的格式
Dim Numd As Double = 66.6666666666
Label1.Text = Format(Numd , "#.#####") '#.# 可自定格式化显示长度。
用这个函数把
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用Format 函数来实现。
Format 函数，返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
Private Sub Command3_Click()
Print Format(5 / 256, "#.##")
End Sub
举个例子
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
结果为b = 2.00
四舍五入保留两位