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保留两位小数
网站地址：https://www.cdcxhl.com/article2/dsisgoc.html

成都网站建设公司_创新互联，为您提供网站营销、网站收录、小程序开发、手机网站建设、网站设计、建站公司

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联