使用Math.Round()，注意返回值可能为Double或Decimal。
创新互联建站成立与2013年，先为甘泉等服务建站，甘泉等地企业，进行企业商务咨询服务。为甘泉企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
如果取整，第二个参数不填或者填0
默认采用 四舍六入五成双，如果想四舍五入，请采用MidpointRounding.AwayFromZero作为第三个参数
Dim 数字 As Double = 2.45
Dim r1 As Double = Math.Round(数字, 1, MidpointRounding.ToEven) ' r1 = 2.4 四舍六入五成双
Dim r2 As Double = Math.Round(数字, 1, MidpointRounding.AwayFromZero) ' r2 = 2.5 四舍五入
round是vb6.0的吧，我刚才查了一下，在vb.net里变成了枚举了成员为
成员名称 说明
RoundToBillionth 数字四舍五入为 9 个小数点位。
RoundToHundred 数字四舍五入为百位数。
RoundToHundredMillionth 数字四舍五入为 8 个小数点位
RoundToHundredth 数字四舍五入为 2 个小数点位
RoundToHundredThousand 数字四舍五入为十万位数。
RoundToHundredThousandth 数字四舍五入为 5 个小数点位。
RoundToMillion 数字四舍五入为百万位数。
RoundToMillionth 数字四舍五入为 6 个小数点位
RoundToTen 数字四舍五入为十位数。
RoundToTenBillionth 数字四舍五入为 10 个小数点位
RoundToTenMillionth 数字四舍五入为 7 个小数点位
RoundToTenth 数字四舍五入为 1 个小数点位。
RoundToTenThousand 数字四舍五入为万位数。
RoundToTenThousandth 数字四舍五入为 4 个小数点位。
RoundToThousand 数字四舍五入为千位数。
RoundToThousandth 数字四舍五入为 3 个小数点位。
RoundToUnit 数字四舍五入为个位数。要求
dim a as integer
a=15563
万位=a\10000
千位=a\1000 mod 10
百位=a\100 mod 10
if a mod 105 then 百位+=1
保留两位小数的一般方法是四舍五入法。
保留两位小数，看千分位。是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