189 8069 5689
直接似乎找不出方法，不过有一个绝招： Dim
创新互联公司从2013年成立，先为宛城等服务建站，宛城等地企业，进行企业商务咨询服务。为宛城企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
a
As
Double
=
2.1415
a
+=
0.01
Console.WriteLine("{0:f2}",
a)首先先对要操作数组+0.0……1（若干个0，取决于保留的位数）。然后试用输出。在asp.net中，用string.Format("{0:f2}",输出数字);即可
VB.Net自带函数：
十进制转八进制：Oct(num)
十六进制转八进制：oct("H" num)
十进制转十六进制：hex(num)
八进制转十六进制：hex("O" num)
十六进制转换为十进制：CLng("H" num)
'自定义一个函数：功能是给小数直接进一位
'num 要操作的小数
'n 保留几位小数，
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
-------------------------
调用一下：
Private Sub Command1_Click()
MsgBox (getNumber(3.1415926, 2))
End Sub
得到3.15
使用Math.Round()，注意返回值可能为Double或Decimal。
如果取整，第二个参数不填或者填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 四舍五入