'这一个题我有答过了。可以看我回答的链接。
成都创新互联公司始终坚持【策划先行，效果至上】的经营理念，通过多达十年累计超上千家客户的网站建设总结了一套系统有效的营销推广解决方案，现已广泛运用于各行各业的客户，其中包括：成都木包装箱等企业，备受客户称誉。
'使用Format返回指定的格式
Dim Numd As Double = 66.6666666666
Label1.Text = Format(Numd , "#.#####") '#.# 可自定格式化显示长度。
举个例子
Dim a As Decimal = 1.999
Dim b As Decimal = Math.Round(a, 2)
结果为b = 2.00
四舍五入保留两位
举个例子
dim
a
as
decimal
=
1.999
dim
b
as
decimal
=
math.round(a,
2)
结果为b
=
2.00
四舍五入保留两位