VB 向上保留一位小数编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五
来源：学生作业帮助网 编辑：六六作业网 时间：2025/02/05 15:31:52
VB 向上保留一位小数编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五
VB 向上保留一位小数
编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五入.
如果不重新定义函数,还有其它办法吗?比如EXCEL里面有roundup函数,vb里面有吗?
VB 向上保留一位小数编写一个VB 程序,要求最终运算结果,VAL(Label)和TEXT的数值向上保留一位小数,比如123.1111,那么最终运算的结果为123.2,如果是整数的话,则为124,重点是向上保留,而不是四舍五
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