大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net保留1位小数,net保留两位小数

VB 向上保留一位小数

VB有Round()函数,但是是四舍五入,你的这个需要编写一个过程或函数:

创新互联建站服务项目包括深圳网站建设、深圳网站制作、深圳网页制作以及深圳网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,深圳网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到深圳省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!

Dim AA As String     '模块级变量

Private Sub Command1_Click()

Dim XX As Single, YY As Single    '过程级变量

XX = Val(Text1.Text)

If AA = "整数" Then

If XX / 1 - XX \ 1 = 0 Then   '判断小数部分是否小于0.5

YY = Round(XX, 0) + 1

ElseIf XX / 1 - XX \ 1  0 Then   '判断小数部分是否大于0.5

YY = Round(XX, 0)

End If

ElseIf AA = "小数" Then

If XX / 1 - XX \ 1 = 0 Then   '判断小数部分是否小于0.5

YY = Round(XX, 1) + 0.1

ElseIf XX / 1 - XX \ 1  0 Then   '判断小数部分是否大于0.5

YY = Round(XX, 1)

End If

End If

Text2.Text = YY

End Sub

Private Sub Form_Load()

Option1(0).Value = True

End Sub

Private Sub Option1_Click(Index As Integer)

If Option1(0).Value = True Then

AA = "整数"

Else

AA = "小数"

End If

End Sub

VB.net,小数点直接进一位的函数?

'自定义一个函数:功能是给小数直接进一位

'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

VB.NET 怎么样保留后面的小数位

保留两位小数的一般方法是四舍五入法。

保留两位小数,看千分位。是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


标题名称:vb.net保留1位小数,net保留两位小数
分享路径:http://dzwzjz.com/article/dsisgoc.html
在线咨询
服务热线
服务热线:028-86922220
TOP