VB 向上保留一位小数

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

网站设计、网站制作介绍好的网站是理念、设计和技术的结合。成都创新互联公司拥有的网站设计理念、多方位的设计风格、经验丰富的设计团队。提供PC端+手机端网站建设，用营销思维进行网站设计、采用先进技术开源代码、注重用户体验与SEO基础，将技术与创意整合到网站之中，以契合客户的方式做到创意性的视觉化效果。

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 怎么样保留后面的小数位

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

保留两位小数，看千分位。是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点虐 怎么设置数字保留小数点位数

举个例子

Dim a As Decimal = 1.999

Dim b As Decimal = Math.Round(a, 2)

结果为b = 2.00

四舍五入保留两位

分享标题：vb点虐 保留一位小数 vb数据保留两位小数
浏览地址：http://ybzwz.com/article/ddsidce.html