大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
直接似乎找不出方法,不过有一个绝招: 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 四舍五入