VB 向上保留一位小数
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/08/13 05:46:16
VB 向上保留一位小数
编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五入.
如果不重新定义函数,还有其它办法吗?比如EXCEL里面有roundup函数,vb里面有吗?
编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五入.
如果不重新定义函数,还有其它办法吗?比如EXCEL里面有roundup函数,vb里面有吗?
![VB 向上保留一位小数](/uploads/image/z/19896238-46-8.jpg?t=VB+%E5%90%91%E4%B8%8A%E4%BF%9D%E7%95%99%E4%B8%80%E4%BD%8D%E5%B0%8F%E6%95%B0)
VB有Round()函数,但是是四舍五入,你的这个需要编写一个过程或函数:
![](http://img.wesiedu.com/upload/b/e8/be8a07302411feca1bd436fe8ae624a5.jpg)
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 Su
![](http://img.wesiedu.com/upload/b/e8/be8a07302411feca1bd436fe8ae624a5.jpg)
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 Su